Advertisement
jsbsan

ScrollBarDial

Apr 9th, 2014
2,570
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.43 KB | None | 0 0
  1. ' Gambas class file
  2.  
  3. Public Sub _new()
  4.  
  5. End
  6.  
  7. Public Sub Form_Open()
  8.  
  9. End
  10.  
  11. Public Sub Slider1_Change()
  12.  
  13.   ProgressBar1.value = Slider1.Value / 100
  14.  
  15. End
  16.  
  17. Public Sub Dial1_Change()
  18.  
  19.   LabelDial.text = Dial1.Value
  20.  
  21. End
  22.  
  23. Public Sub ScrollBar1_Change()
  24.  
  25.   LabelScrollBarVertical.text = ScrollBar1.value
  26.  
  27. End
  28.  
  29. Public Sub ScrollBar2_Change()
  30.  
  31.   LabelScrollBarHorizontal.text = ScrollBar2.Value
  32.  
  33. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement