مشکل با اسکرول ویو

[101011 50]

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

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

Sub Globals

	Dim finish As String
		Private sc As ScrollView
		Dim n As Int
End Sub

sc.Initialize2(250%x,"sc")
panel1.AddView(sc, 0,20%x-30, 100%x, 100%X)
			For i = 0 To book.Size - 1
				
finish = "ok"
next

Sub sc_ScrollChanged(position As Int)
Try 
If position = sc.Panel.Height - sc.Height Then
If finish = "ok" Then
n = n + 1 

finish = "off"
Else
End If
End If
	Catch
		Log("c")
		End Try
End Sub

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


کجای این کد رو باید تغییر بدم تا وقتی n بیشتر شد پوزیشن اسکرولم بیاد ب اخرین مولتی پنلم (همونجایی که هست) و در ادامه اون اسکرول بشه



چندین بار تغییرش دادم ولی نتونستم

[shahab.es 5,429]

سلام هموطن

یه بررسی بفرمایید