رفتن به مطلب
  • 0

مشکل با fullscroll


mohammadnajani

سوال

با سلام خدمت دوستان و اساتید محترم

من یه 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 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

سلام

الان کجا نوشتید کد fullscroll شدن رو؟

باید وقتی آیتم ها اضافه شدن بنویسید یعنی کاملا بعد از حلقه فور.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در در 1397/07/06, 00:51:52، پژمان نیکروان گفته است :

سلام

الان کجا نوشتید کد fullscroll شدن رو؟

باید وقتی آیتم ها اضافه شدن بنویسید یعنی کاملا بعد از حلقه فور.

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 8 ساعت قبل، mohammadnajani گفته است :

ولی وقتی کد فول اسکرول شدن رو داخل رویداد کلیک یه ویو میزارم درست انجام میشه.

بله چون کاملا لیست ها اضافه شدن و در UI کاری درحال انجامی وجود نداره.

برای حل این مورد بعد از Next این کد رو قرار بدید:

DoEvents:DoEvents

و بعد کد فول اسکرول رو زیرش بنویسید.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...