Auto Scrol

[shahab1392 47]

دوستان چطور میشه که Scrol را کاری کرد که بر اساس زمان پایین بیاد و حرکت کنه ؟

[Farzad Musavi 576]

با استفاده از position اسکرول و تایمر

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

sv1.ScrollPosition=    sv1.ScrollPosition + 10

10 رو هم با توجه به سرعت مورد نظرت تغییر بده

[shahab1392 47]

با استفاده از position اسکرول و تایمر

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

sv1.ScrollPosition=    sv1.ScrollPosition + 10

10 رو هم با توجه به سرعت مورد نظرت تغییر بده

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

Sub Process_Globals


Dim tim As Timer

End Sub

Sub Activity_Create(FirstTime As Boolean)
tim.Initialize("tim",4000)
End Sub


Sub tim_Tick

tim.Enabled=True


ScrollView1.ScrollPosition=    ScrollView1.ScrollPosition + 10
End Sub

[Farzad Musavi 576]

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

Sub Process_Globals


Dim tim As Timer

End Sub

Sub Activity_Create(FirstTime As Boolean)
tim.Initialize("tim",4000)
End Sub


Sub tim_Tick

tim.Enabled=True


ScrollView1.ScrollPosition=    ScrollView1.ScrollPosition + 10
End Sub

یکم به کدت نگاه کنی میفهمی کجا اشتباه کردی

تایمر تا enable نشه که رویدادش اجرا نمیشه تو داخل رویدادش enable کردیش؟

کد

tim.Enabled=True

رو یجا دیگه بنویس مثلا وقتی اسکرول میاد enable شه

[shahab1392 47]

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

Sub Process_Globals
Dim tim As Timer
End Sub

Sub Activity_Create(FirstTime As Boolean)
tim.Initialize("tim",500)
End Sub

Sub tim_Tick
ScrollView1.ScrollPosition=    ScrollView1.ScrollPosition + 10
End Sub

Sub Button1_Click

tim.Enabled=True

End Sub