مشکل درScrollView

[mohammad007 1]

دوستان من برای کتابم یک اسکرول گذاشتم وایمیج در بخش مطلب ولی اسکرول کامل متن رو نمیاره یعنی یه مقدلر را نشان نمیدهد

کدهای ان را قرار دادم کمکم کنید ببیند کجا اشتباه کردم ممنون

Private ImageView1 As ImageView
	Private ScrollView1 As ScrollView
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("from2")
	
	If File.Exists(File.DirInternal,"data1.db")=False Then
	File.Copy(File.DirAssets,"data1.db",File.DirInternal,"data1.db")
	End If
	
	If menu.s.IsInitialized=False Then
	menu.s.Initialize(File.DirInternal,"data1.db",False)
	End If

Dim cur As Cursor
cur=menu.s.ExecQuery("select *FROM data1 WHERE Fasl="&menu.fasl)
cur.Position=0
  ImageView1.Bitmap=Namayesh
  
  Dim label1 As Label
  label1.Initialize("Label1")
  label1.Text=cur.GetString("Matn")
 
 If File.Exists(File.DirInternal,"Settings.stg")=True Then
	Dim list1 As List
	list1=File.ReadList(File.DirInternal,"Settings.stg")
	Tanzimat2.font=list1.Get(0)
	Tanzimat2.size=list1.Get(1)
	Tanzimat2.color=list1.Get(2)
	
	Else
	Tanzimat2.font="font3"
	Tanzimat2.size=18
	label1.TextColor=Colors.Black
	
	
	
	
	
	End If
  
  ScrollView1.Panel.AddView(label1,5dip,35%y,ScrollView1.Width-20dip,ScrollView1.Height)
  
  
	Dim before, after As Float
	Dim Obj1 As Reflector
	Obj1.Target = label1
	before = Obj1.RunMethod("getLineHeight")
	Obj1.Target = label1
	Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float") 
	Obj1.Target = label1
	after = Obj1.RunMethod("getLineHeight")
	
	
	
  Dim su As StringUtils
  label1.TextSize=Tanzimat2.size
   label1.Typeface=Typeface.LoadFromAssets(Tanzimat2.font & ".ttf")
  label1.Height=su.MeasureMultilineTextHeight(label1,label1.Text)
  ScrollView1.Panel.Height=su.MeasureMultilineTextHeight(label1,label1.Text)+10%y
  
  Select Case Tanzimat2.color
 Case 1
  label1.TextColor=Colors.Green
  Case 2
  label1.TextColor=Colors.red
  Case 3
  label1.TextColor=Colors.Black
  End Select
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Namayesh As Bitmap
Dim cur As Cursor
cur=menu.s.ExecQuery("select Aks FROM data1  WHERE Fasl="&menu.fasl)
cur.Position=0

Dim bytes() As Byte
bytes=cur.GetBlob("Aks")

Dim input As InputStream
input.InitializeFromBytesArray(bytes,0,bytes.Length)


Dim b As Bitmap
b.Initialize2(input)
input.Close
Return(b)
End Sub
Sub Button1_Click
	
End Sub

Sub Label1_LongClick
	
	Dim b As Label
	b=Sender
	Dim send As Intent
	send.Initialize(send.ACTION_SEND,"")
	send.SetType("text/plain")
	send.PutExtra("android.intent.extra.TEXT","برگرفته از کتاب تاریخ پیامبران : " &CRLF & CRLF & b.Text)
	send.WrapAsIntentChooser("به اشتراک گذاری...")
	StartActivity(send)
End Sub

[nany12 623]

فک کنم در اینجا

 ScrollView1.Panel.AddView(label1,5dip,35%y,ScrollView1.Width-20dip,ScrollView1.Height)

باید لبلتو فراخوانی کنی نه اسکرول ویوتو

 ScrollView1.Panel.AddView(label1,5dip,35%y,ScrollView1.Width-20dip,label1.Height)

یکی تست کن ببین میشه ها

در ضمن دیتابیس هم با کتابخونه فراخوانی , فراخونی کن تو برنامت راحت تره

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

[mohammad007 1]

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

[mohammad007 1]

دوستان کسی راه حل نداره واقعا لازم دارم

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

این رو تست کنید :

label1.Height=su.MeasureMultilineTextHeight(label1,label1.Text)+3%x
ScrollView1.Panel.Height=label1.Height + label1.top + 8%x

و همچنین شما به دلیل امتیاز های منفی بالا از انجمن اخراج شدید

 

موفق باشید