Sub panel1_Click
pager.GotoPage(a,True)
svsee.Panel.RemoveAllViews
Dim z As View
z = Sender
cur=query.ExecQuery("SELECT * FROM ofl Where id='"& z.tag &"'" )
For i = 0 To cur.RowCount -1
cur.Position=i
l.Initialize("")
l.TextColor = Colors.Black
ln.Initialize
svsee.Panel.AddView(l,0,0,100%x,100%y)
Try
l.TextColor = ln.get("n","Color")
l.TextSize= ln.get("n","Size")
l.Typeface = Typeface.LoadFromAssets(ln.get("n","Font"))
Catch
Log(LastException)
End Try
l.Text= cur.GetString("matn")
text = l.Text
Dim s As AutoSizeScroll
s.set(l,svsee)
Next
End Sub
کد 2
Sub panel1_Click
pager.GotoPage(a,True)
svsee.Panel.RemoveAllViews
Dim z As View
z = Sender
cur=query.ExecQuery("SELECT * FROM ofl Where id='"& z.tag &"'" )
For i = 0 To cur.RowCount -1
cur.Position=i
l.Initialize("")
l.TextColor = Colors.Black
ln.Initialize
svsee.Panel.AddView(l,0,0,100%x,100%y)'
Try
l.TextColor = ln.get("n","Color")
l.TextSize= ln.get("n","Size")
l.Typeface = Typeface.LoadFromAssets(ln.get("n","Font"))
Catch
Log(LastException)
End Try
l.Text= cur.GetString("matn")
text = l.Text
'Dim s As AutoSizeScroll
's.set(l,svsee)
dim f1 as farakhani
f1.setscrol(l,lvse)
Next
End Sub
سوال
mr-edris 186
سلام اقا با ست کردنش مشکل دارم
3 نوع کدم امتحان کردم
فونت که بزرگ میشه ست نمیشه دیگه
کد 2
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.