Seekbar Userchange Questions

klaus said:

What's the problem, your code is right.
You just need to make sure that the Label you are refering to, is in a layout or defined in the code.

Best regards.

Click to expand...

Sub Globals
   Dim lblto As Label
   Dim seekbar1 As SeekBar
End Sub

Sub Activity_Create(FirstTime As Boolean)
   lblto.Initialize("lblto")
   Activity.LoadLayout("Main")
   lblto.SetLayout(5%x,75%y,15%x,7%y)
      
   seekbar1.Max = 100
   
End Sub

Sub seekbar1_Valuechange ( Value As Int, userchange As Boolean)
   If userchange Then
      lblto.Text = Value
   End If
End Sub

klaus said:

If lblto is already defined in the layout file you must remove this line, because lblto is alraed initialized when the layout file is loaded :

B4X:

lblto.Initialize("lblto")

Best regards.

Click to expand...

thedesolatesoul said:

The signature for your event sub is ALSO wrong.
The better way to debug these problems is to add a log when entering or exiting an event so you know that is actually fires.

B4X:

ValueChanged (Value As Int, UserChanged As Boolean)

Click to expand...