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

[reza644 435]

سلام

 

واسه اسکرول متن از چه کدی استفاده کنم؟

 

از کتابخانه فراخوانی 2 استفاده کردم

[حاج حسین 2,098]

ts.LongText(lbl,lbl.Text,l.Text,ScrollView1,"1.5")

عدد 1.5 رو بدون کوتیشن بزارید 

[مهدی ایزدی 9,203]

خدمت شما :

http://answercenter.ir/topic/4131-%D9%81%D8%B1%D8%A7%D8%AE%D9%88%D8%A7%D9%86%DB%8C-%D9%85%D8%AA%D9%86-%D8%A7%D8%B2-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-%D9%88-%DA%AF%D9%86%D8%AC%D8%A7%D9%86%D8%AF%D9%86-%D8%A2%D9%86-%D8%AF%D8%B1-%D8%A7%D8%B3%DA%A9%D8%B1%D9%88%D9%84-%D9%88%DB%8C/

[reza644 435]

خدمت شما :

http://answercenter.ir/topic/4131-%D9%81%D8%B1%D8%A7%D8%AE%D9%88%D8%A7%D9%86%DB%8C-%D9%85%D8%AA%D9%86-%D8%A7%D8%B2-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-%D9%88-%DA%AF%D9%86%D8%AC%D8%A7%D9%86%D8%AF%D9%86-%D8%A2%D9%86-%D8%AF%D8%B1-%D8%A7%D8%B3%DA%A9%D8%B1%D9%88%D9%84-%D9%88%DB%8C/

این ارور رو میده

 

 

 

کد هام

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim lbl As Label
Dim fara As Farakhani
Dim share As Intent
	Private ScrollView1 As ScrollView
	Private Button1 As Button
	Private Button2 As Button
	Dim ts As TextSetting
	Dim l As Label
	Dim cafe As Intent
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("scroll")
lbl.Initialize("")
l.Initialize("")
ts.Initialize
lbl.TextColor=Colors.Black
	If(File.Exists(File.DirRootExternal,"textsize.txt")) Then 
		lbl.Textsize=File.GetText(File.DirRootExternal,"textsize"&".txt")
		l.Text=File.GetText(File.DirRootExternal,"textsize"&".txt")
Else
lbl.Textsize=13

	End If
	
Button1.TextSize=22	
Button2.TextSize=22				


	If(File.Exists(File.DirRootExternal,"textfont.txt")) Then 
	Dim str2 As String
str2 = File.readString(File.DirRootExternal,"textfont"&".txt")
If str2 = "IRYekan.ttf" Then
lbl.Typeface=Typeface.LoadFromAssets("IRYekan.ttf")
Button1.Typeface=Typeface.LoadFromAssets("IRYekan.ttf")
lbl.Typeface=Typeface.LoadFromAssets("IRYekan.ttf")
Button2.Typeface=Typeface.LoadFromAssets("IRYekan.ttf")
Button1.TextSize=15	
Button2.TextSize=15	
else if str2 = "danstevis.otf" Then
	Button1.Typeface=Typeface.LoadFromAssets("danstevis.otf")
lbl.Typeface=Typeface.LoadFromAssets("danstevis.otf")
lbl.Typeface=Typeface.LoadFromAssets("danstevis.otf")
Button2.Typeface=Typeface.LoadFromAssets("danstevis.otf")
Button1.TextSize=22	
Button2.TextSize=22	
else if str2 = "B Traffic_0.ttf" Then
	Button1.Typeface=Typeface.LoadFromAssets("B Traffic_0.ttf")
lbl.Typeface=Typeface.LoadFromAssets("B Traffic_0.ttf")
Button2.Typeface=Typeface.LoadFromAssets("B Traffic_0.ttf")
Button1.TextSize=22	
Button2.TextSize=22	
else if str2 = "IranNastaliq.ttf" Then
	Button1.Typeface=Typeface.LoadFromAssets("IranNastaliq.ttf")
	Button2.Typeface=Typeface.LoadFromAssets("IranNastaliq.ttf")
Button1.TextSize=22	
Button2.TextSize=22	
lbl.Typeface=Typeface.LoadFromAssets("IranNastaliq.ttf")
else if str2 = "phalls_khodkar.ttf" Then
	Button1.Typeface=Typeface.LoadFromAssets("phalls_khodkar.ttf")
	Button2.Typeface=Typeface.LoadFromAssets("phalls_khodkar.ttf")
Button1.TextSize=22	
Button2.TextSize=22	
lbl.Typeface=Typeface.LoadFromAssets("phalls_khodkar.ttf")
Else 
	Button1.Typeface=Typeface.LoadFromAssets("IRYekan.ttf")
	Button2.Typeface=Typeface.LoadFromAssets("IRYekan.ttf")
Button1.TextSize=15
Button2.TextSize=15	
 lbl.Typeface=Typeface.LoadFromAssets("IRYekan.ttf")
End If
	End If
	
	

	
	


	If(File.Exists(File.DirRootExternal,"textcolor.txt")) Then 
		
	Dim str As String
str = File.readString(File.DirRootExternal,"textcolor"&".txt")
If str = "Colors.Black" Then
lbl.textColor = Colors.Black
else if str = "Colors.Red" Then
lbl.textColor = Colors.Red
else if str = "Colors.Blue" Then
lbl.textColor = Colors.Blue
End If
Else
lbl.textColor = Colors.Black		
	End If
fara.FarakhaniMatn("reza.db",Main.sql1,Main.cur,"SELECT * FROM khat where id=",khaterat.meghdar3,lbl,"matn")
ScrollView1.Panel.AddView(lbl,0,0,100%x,100%y)
ts.LongText(lbl,lbl.Text,l.Text,ScrollView1,"1.5")
	lbl.Gravity=Gravity.RIGHT
	
		

share.Initialize(share.ACTION_SEND,"")
share.SetType("text/plain")
share.PutExtra("android.intent.extra.TEXT", lbl.Text)



    Dim verticalPosition As String = "bottom" '"top" or "bottom"
    Dim horizontalPosition As String = "center" '"left", "right" or "center"
    Dim r As Reflector 
    Dim args(3) As Object = Array As Object(r.GetActivity, verticalPosition, horizontalPosition)
    Dim types(3) As String = Array As String("android.app.Activity", "java.lang.String", "java.lang.String")    
    r.RunStaticMethod("ir.adad.AdadB4APlugin", "createAdView", args, types)

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub ScrollView1_ScrollChanged(Position As Int)
	
End Sub
 Sub Button1_click
 share.WrapAsIntentChooser("اشتراک بگذاريد")
StartActivity(share)
	
End Sub
Sub Button2_Click
	cafe.Initialize(cafe.ACTION_EDIT,"bazaar://details?id=com.defa.app.book") 
	StartActivity(cafe) 
End Sub

[مهدی ایزدی 9,203]

برنامه رو در حالت Debug Legecy اجرا کنید ببینید دقیقا از کدوم خط خطا گرفته ؟

[reza644 435]

برنامه رو در حالت Debug Legecy اجرا کنید ببینید دقیقا از کدوم خط خطا گرفته ؟

ts.LongText(lbl,lbl.Text,l.Text,ScrollView1,"1.5")