رفتن به مطلب
  • 0

مشکل با لیبل


mr.shi

سوال

دوستان سلام

من در حال تهیه کتابی هستم 

مشکل عجیبه من اینه که اطلاعات از فایل txt میخونم و داخل label میریزم اما خط اول لیبل آیکون مستطیل میاد و نمیتونم حذفش کنم

این هم کدهای لود اطلاعاتم

حتی فونت داخل فایل txt هم عوض کردم و بعد از کلی سر و کله زدم فهمیدم کلا اولین خط این مشکل پیش میاد

در ضمن و لیبلمو با AutoSizeScroll کنترل میکنم که لیبلم اسکرول دار باشه

Dim lbl_bio As Label
lbl_bio.Initialize("lbl_bio")
lbl_bio.TextSize=20
lbl_bio.TextColor=Colors.Black
lbl_bio.Typeface=Typeface.LoadFromAssets("b yekan.ttf")
lbl_bio.Gravity=Gravity.RIGHT
scroll_view.Panel.AddView(lbl_bio,0,0,100%x,100%y)
lbl_bio.Text=File.ReadString(File.DirAssets,"bio.txt")
Dim a As TextSetting
autosize.set(lbl_bio,scroll_view)
SetPadding (lbl_bio,5dip,5dip,8dip,5dip)
a.LongText(lbl_bio,lbl_bio.Text ,22,scroll_view,2)

 

post-3775-0-83728900-1445765065_thumb.jpg

لینک ارسال
به اشتراک گذاری در سایت های دیگر

10 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

منم قبلا همین مشکل رو داشتم

 

فک کنم مشکل از فونتت باشه

 

اون کدی که واسه فونت گذاشتی رو پاک یا غیر فعال کن ببین درست می شه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بله UTF-8 هست

اما مشکل اساسیه من همینه که اون مربع در اولین خط میاد

لینک ارسال
به اشتراک گذاری در سایت های دیگر

با فایل های تکست دیگه هم امتحان کنین ببینین مشکل از همون فایل تکسته یا نه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

حتی داخل این سورس هم این مشکل هست

http://answercenter.ir/topic/8553-scrolllable/

بله با همه فایل های تکست مشکل دارم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

شاید مشکل از امولاتوری چیزیه ، اگه امکانش هست سورس رو قرار بدین تست کنیم

لینک ارسال
به اشتراک گذاری در سایت های دیگر


Dim lbl_bio As Label

lbl_bio.Initialize("lbl_bio")

lbl_bio.TextSize=20

lbl_bio.TextColor=Colors.Black

lbl_bio.Typeface=Typeface.LoadFromAssets("b yekan.ttf")

lbl_bio.Gravity=Gravity.RIGHT

lbl_bio.Text=File.ReadString(File.DirAssets,"bio.txt")

scroll_view.Panel.AddView(lbl_bio,0,0,100%x,100%y)

autosize.set(lbl_bio,scroll_view)

SetPadding (lbl_bio,5dip,5dip,8dip,5dip)

lbl_bio.Text.Replace( lbl_bio.Text.SubString2(0,1),"S")

Dim a As TextSetting

a.LongText(lbl_bio,lbl_bio.Text ,22,scroll_view,2)

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...