من یه scrollview توی لایوت تعریف کردم و اومدم با یه حلقه بش یسری آیتم اضافه کردن که همه اوکی هستن و به خوبی اسکرول میشن .
مشکل اینجاس که میخام FullScroll انجا بشه ولی این اتفاق نمیوفته!!!!
کد هایی هم که تا حالا امتحان کردم ایناس :
Private Sub ScrollTo(sv As ScrollView, pos As Int)
Dim r As Reflector
r.Target = sv
r.RunMethod3("scrollTo", 0, "java.lang.int", pos, "java.lang.int")
End Sub
Sub load_data(first As Int)
If first=1 Then
Dim c As Cursor
c = Main.sql.ExecQuery("select * from offline_post_report_dabir ")
For i = 0 To c.RowCount-1
c.Position=i
If 1=c.GetInt("type") Then
panel_add.Initialize("panel_add")
sc.Panel.AddView(panel_add,0,end_position,100%X,100%Y)
panel_add.LoadLayout("post1")
Dim str_matn As String
str_matn=c.GetString("titr")&CRLF&CRLF&c.GetString("matn")
matn.Text=str_matn
matn.TextSize=17
matn.Typeface=Typeface.LoadFromAssets("iran-sans.ttf")
Dim ht As Float
ht = StrUtil.MeasureMultilineTextHeight(matn,str_matn)
matn.Height=ht
p1.Height=11%Y + ht
panel_add.Height=11%Y + ht
end_position=end_position + ht + 12%Y
End If
sc.Panel.Height=end_position
Next
End If
End Sub
سوال
mohammadnajani 12
با سلام خدمت دوستان و اساتید محترم
من یه scrollview توی لایوت تعریف کردم و اومدم با یه حلقه بش یسری آیتم اضافه کردن که همه اوکی هستن و به خوبی اسکرول میشن .
مشکل اینجاس که میخام FullScroll انجا بشه ولی این اتفاق نمیوفته!!!!
کد هایی هم که تا حالا امتحان کردم ایناس :
Private Sub ScrollTo(sv As ScrollView, pos As Int) Dim r As Reflector r.Target = sv r.RunMethod3("scrollTo", 0, "java.lang.int", pos, "java.lang.int") End Sub
sv.ScrollPosition = sv.Panel.Height
ScrollTo(sc.Panel.Height) sc.FullScroll(True) sc.ScrollToNow(2500)
این هم کد های اسکرول ویو
Sub load_data(first As Int) If first=1 Then Dim c As Cursor c = Main.sql.ExecQuery("select * from offline_post_report_dabir ") For i = 0 To c.RowCount-1 c.Position=i If 1=c.GetInt("type") Then panel_add.Initialize("panel_add") sc.Panel.AddView(panel_add,0,end_position,100%X,100%Y) panel_add.LoadLayout("post1") Dim str_matn As String str_matn=c.GetString("titr")&CRLF&CRLF&c.GetString("matn") matn.Text=str_matn matn.TextSize=17 matn.Typeface=Typeface.LoadFromAssets("iran-sans.ttf") Dim ht As Float ht = StrUtil.MeasureMultilineTextHeight(matn,str_matn) matn.Height=ht p1.Height=11%Y + ht panel_add.Height=11%Y + ht end_position=end_position + ht + 12%Y End If sc.Panel.Height=end_position Next End If End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.