I want ScrollView move in a fix OffsetY after I scroll this Scrollview .
I can do it in B4A
How to modify this code for B4i
Dim Timer As Timer
Dim sc As ScrollView
Dim pp As Int
Timer.Initialize("TimerX", 700)
DoEvents ------> b4i no DoEvent
sc.ScrollOffsetY=Round(pp / 20 ) *20
Sub ScrollViewX_ScrollChanged(Position As Int)
Dim SV1 As ScrollView
SV1=Sender
Timer.Enabled = True
pp=Position
Dim r As Reflector ----> b4i no reflector
r.Target =SV1
r.RunMethod2("setVerticalScrollBarEnabled", False, "java.lang.boolean")
End Sub
Sub TimerX_Tick
Dim ti As Timer
ti=Sender
sc.ScrollOffsetY=Round(pp / Dyy ) *Dyy '
Timer.Enabled = False
End Sub
I can do it in B4A
How to modify this code for B4i
Dim Timer As Timer
Dim sc As ScrollView
Dim pp As Int
Timer.Initialize("TimerX", 700)
DoEvents ------> b4i no DoEvent
sc.ScrollOffsetY=Round(pp / 20 ) *20
Sub ScrollViewX_ScrollChanged(Position As Int)
Dim SV1 As ScrollView
SV1=Sender
Timer.Enabled = True
pp=Position
Dim r As Reflector ----> b4i no reflector
r.Target =SV1
r.RunMethod2("setVerticalScrollBarEnabled", False, "java.lang.boolean")
End Sub
Sub TimerX_Tick
Dim ti As Timer
ti=Sender
sc.ScrollOffsetY=Round(pp / Dyy ) *Dyy '
Timer.Enabled = False
End Sub