لیبل رو گذاشتم تو اسکرل ویو و فقط نصف متن رو نشون میده
ننوسید سرچ کنید چوه همه جا رو گشتم یه چنتا بودن ولی جواب ندادن رو این
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private ImageView1 As ImageView
Dim bitmap1 As Bitmap
Dim Cursor1 As Cursor
Dim SQL1 As SQL
Dim fara As Farakhani
Private ScrollView1 As ScrollView
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("ajra")
Dim Label1 As Label
Label1.Initialize("label1")
Label1.TextSize=20
fara.FarakhaniMatn("mydb2.db",SQL1,Cursor1,"SELECT * FROM fasl1 WHERE id=",fasl1.ListViewValue,Label1,"matn")
ScrollView1.Panel.AddView(Label1,0,0,ScrollView1.Width,ScrollView1.Height)
Label1.Typeface=Typeface.LoadFromAssets("yekan.ttf")
fara.FarakhaniImage("mydb2.db",SQL1,Cursor1,"SELECT * FROM fasl1 WHERE id=",fasl1.ListViewValue,"aks",bitmap1)
ImageView1.Bitmap = bitmap1
End Sub
سوال
goodarzi 5
سلام من یه اسکرل ویو دارم و یه لیبل
لیبل رو گذاشتم تو اسکرل ویو و فقط نصف متن رو نشون میده
ننوسید سرچ کنید چوه همه جا رو گشتم یه چنتا بودن ولی جواب ندادن رو این
Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Private ImageView1 As ImageView Dim bitmap1 As Bitmap Dim Cursor1 As Cursor Dim SQL1 As SQL Dim fara As Farakhani Private ScrollView1 As ScrollView End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("ajra") Dim Label1 As Label Label1.Initialize("label1") Label1.TextSize=20 fara.FarakhaniMatn("mydb2.db",SQL1,Cursor1,"SELECT * FROM fasl1 WHERE id=",fasl1.ListViewValue,Label1,"matn") ScrollView1.Panel.AddView(Label1,0,0,ScrollView1.Width,ScrollView1.Height) Label1.Typeface=Typeface.LoadFromAssets("yekan.ttf") fara.FarakhaniImage("mydb2.db",SQL1,Cursor1,"SELECT * FROM fasl1 WHERE id=",fasl1.ListViewValue,"aks",bitmap1) ImageView1.Bitmap = bitmap1 End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.