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

[mr-edris 186]

سلام اقا با ست کردنش مشکل دارم

3 نوع کدم امتحان کردم

فونت که بزرگ میشه ست نمیشه دیگه

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]

با این پست درستش کردم خودم ممنون

http://answercenter.ir/topic/7158-%D9%85%D8%AA%D9%86-%D9%84%DB%8C%D8%A8%D9%84-%D8%AA%D9%88%DB%8C-%D8%A7%D8%B3%DA%A9%D8%B1%D9%88%D9%84-%D9%88%DB%8C%D9%88-%D9%86%D8%B5%D9%81%D9%87-%D9%85%DB%8C%D8%A7%D8%AF/

[mr-edris 186]

کیست مرا یاری کند ...