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

[ah313mad 34]

سلام خسته نباشید

 

من یه کتاب نوشتم که مطالب رو  از دیتابیس میگیره . منتهی بعضی از ستون ها محتوای مطلبش خیلی زیاده و وقتی که برنامه رو اجرا می کنم روی عنوان اون مطلب کلیک میشه خطا میده . چجور می تونم درستش کنم . عکس خطا و سورس اون صفحه رو پایین گذاشتم

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

Sub Process_Globals
	Dim cur As Cursor	
	Dim list1 As List

End Sub

Sub Globals
	Private ScrollView1 As ScrollView
	Private btnFav As Button
	Private Settings As Button
	Dim label1 As Label
	Dim h As HeightLabel

End Sub


Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("frm2")

	If File.Exists(File.DirInternal,"dbelal1.db")= False Then
	File.Copy(File.DirAssets,"dbelal1.db",File.DirInternal,"dbelal1.db")
	End If
	
	If Menu1.SQL1.IsInitialized=False Then
	Menu1.SQL1.Initialize(File.DirInternal,"dbelal1.db",False)
	End If
	
	cur=Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE id="&Menu1.Fasl)

	For i=0 To cur.RowCount-1
	cur.Position=0	
	If cur.GetInt("Fav")=0 Then
	Dim Ba As BitmapDrawable
	Ba.Initialize(LoadBitmap(File.DirAssets,"favorite.png"))
	btnFav.Background=Ba
	Else
	Dim Ba As BitmapDrawable
 	Ba.Initialize(LoadBitmap(File.DirAssets,"favorite1.png"))
	btnFav.Background=Ba
	End If	
	
	Next	

	label1.Initialize("Label1")
	label1.text=cur.GetString("Matn")
	label1.TextColor=Colors.White

	If File.Exists(File.DirInternal,"lineheight.txt") = False Then
	File.Copy(File.DirAssets,"lineheight.txt",File.DirInternal,"lineheight.txt")
	End If
	
	

	
	
	If File.Exists(File.DirInternal,"Settings.txt")=True Then
	Dim list1 As List
	list1=File.ReadList(File.DirInternal,"Settings.txt")
	Setting.font=list1.Get(0)
	Setting.size=list1.Get(1)
	Else
	Setting.font="BYEKAN"
	Setting.size=18
	End If
	
	If File.Exists(File.DirInternal,"setting.txt")=True Then
	Dim a As String
	a= code.getData("setting.txt","FontColor")
	label1.TextColor = code.getData("setting.txt","FontColor")
	Else
	label1.TextColor=Colors.Black
	End If 






	label1.Typeface=Typeface.LoadFromAssets(Setting.font &".ttf")	

	ScrollView1.Panel.AddView(label1,0,5%y,ScrollView1.Width,ScrollView1.Height)

	

	h.Initialize
	Dim t As Float
	t=h.LabelHeight(label1.Text,label1,Typeface.LoadFromAssets(Setting.font &".ttf"),Setting.size,Gravity.CENTER,File.ReadString(File.DirInternal,"lineheight.txt"))

	label1.Height=t
	ScrollView1.Panel.Height=t+5%y


End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnFav_Click       
    Dim cur As Cursor
    cur=Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE id="&Menu1.Fasl)
    For i=0 To cur.rowcount-1
    cur.position=i
    Dim f As Int
    f = cur.GetInt("Fav")
    If f = 1 Then
    Menu1.SQL1.ExecNonQuery("UPDATE Tbl1 SET Fav = 0 WHERE id = "&cur.GetInt("id"))
	Dim bb As BitmapDrawable
	bb.Initialize(LoadBitmap(File.DirAssets,"favorite.png"))
	btnFav.Background=bb 
	ToastMessageShow("از لیست علاقه مندی ها حذف شد",False)
    Else
    Menu1.SQL1.ExecNonQuery("UPDATE Tbl1 SET Fav = 1 WHERE id = "&cur.GetInt("id"))
	Dim bb As BitmapDrawable
	bb.Initialize(LoadBitmap(File.DirAssets,"favorite1.png"))
	btnFav.Background=bb 
	ToastMessageShow("به لیست علاقه مندی ها اضافه شد",False)

    End If

Next
cur.close
End Sub

Sub btnshare_Click
File.Writestring(File.DirInternal,"test.txt",label1.text)	
Dim i As Intent
   i.Initialize(i.ACTION_SEND, "")
   i.SetType("text/plain")
   i.PutExtra("android.intent.extra.TEXT", File.ReadString(File.DirInternal,"test.txt"))
   i.WrapAsIntentChooser("داستان را به اشتراک بگذارید ...!")
   StartActivity(i)
End Sub


Sub OpenList_Click
	StartActivity(Menu1)
	Activity.Finish
End Sub
Sub Searchlist_Click
	StartActivity(Search)
	Activity.Finish
End Sub
Sub Settings_Click
	StartActivity(Setting)
	Activity.Finish
End Sub



Sub btnmessage_Click
	Dim cursor3 As Cursor
    cursor3 = Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE id="&Menu1.Fasl)
    Dim btn2 As Button
    btn2=Sender
    cursor3.Position =btn2.Tag
    Dim matnsms As Label
    matnsms.Initialize("")
    matnsms.text=cursor3.GetString("Matn")
    cursor3.Close
    Dim share As Intent
    share.Initialize(share.ACTION_VIEW, "sms:")
    share.PutExtra("sms_body", matnsms.text)
    StartActivity(share)
End Sub