با سلام و سپاس خدمت دوستان عزیز

 

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

 

 

و با خارج شدن از اون اکتیویتی و باز گشت مجدد و حتی خروج و ورود به برنامه به پوزیشنی که قبل در آن بودید بروید دوباره.

 

Sub Globals
	Dim scr As ScrollView
	Dim position As Int=0
End Sub

Sub Activity_Create(FirstTime As Boolean)

	If File.Exists(File.DirInternal,"position") =False Then
		File.WriteString(File.DirInternal,"position","0")
	End If
	
scr.Initialize(0)
Activity.AddView(scr,0,0,100%x,100%y)
position=File.ReadString(File.DirInternal,"position")
Log(position)
Dim top As Int=0
For i=0 To 500
	Dim lab As Label
	lab.Initialize("lab")
	scr.Panel.AddView(lab,0,top,100%x,10%x)
	lab.Text=i
	top=top+11%x
Next
scr.Panel.Height=top
	Sleep(1)
scr.ScrollPosition=position
End Sub