Activity.LoadLayout ( "matn")
btn.Initialize("")
Dim sql2 As SQL
lbl.Initialize("")
ts.Initialize
lbl.TextColor = Colors.Black
scrmatn.Height = 100%y - scrmatn.Top
If File.Exists(File.DirInternal,"safir.db")=False Then
File.Copy(File.DirAssets,"safir.db",File.DirInternal,"safir.db")
End If
If sql2.IsInitialized=False Then
sql2.Initialize(File.DirInternal,"safir.db",True)
End If
matlab .cur = matlab.sql2.ExecQuery("SELECT * FROM tbl1 WHERE fasl=" & matlab.fasl )
For i = 0 To matlab.cur.RowCount-1
matlab.cur.Position = i
lbl.Text =matlab.cur.GetString("matn")
lbl.Typeface=Typeface.LoadFromAssets("byekan.ttf")
Next
scrmatn.Panel.AddView (lbl,0,0, scrmatn.Width , scrmatn.Height)
lbl.Height=su.MeasureMultilineTextHeight(lbl,lbl.Text)
ts.LongText(lbl,lbl.Text,"16", scrmatn,"2")
سوال
hajmaj 5
لینک ارسال
به اشتراک گذاری در سایت های دیگر
9 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.