Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("formsakht")
If File.Exists(File.DirInternal,"amozesh.txt") = False Then
File.Copy(File.DirAssets, "amozesh.txt" ,File.DirInternal,"amozesh.txt")
End If
Dim font As Typeface
font = Typeface.LoadFromAssets("ahayat.ttf")
Dim auto As AutoSizeScroll
label.Initialize("label")
Dim st As String
st = File.ReadString(File.DirAssets, "amozesh.txt")
label.Text = st
ScrollView1.Panel.AddView(label,0,0,100%x,100%y)
auto.set(label,ScrollView1)
label.TextColor = Colors.red
label.TextSize = 28
label.Typeface = font
label.Gravity = Gravity.CENTER_VERTICAL
End Sub
سوال
mamalliii 214
سلام یه فایل تکس رو توی برنامه لود کردم
متن لیبل رو مساوی قرار دادم با فایل تکس
بعد هم لیبل رو اسکرول کردم
اما متاسفانه کل متن اسکرول نشده
اینم کد های منه
لینک ارسال
به اشتراک گذاری در سایت های دیگر
7 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.