jsbsan

pictureBox y MovieBox

Apr 12th, 2014
516
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.61 KB | None | 0 0
  1. ' Gambas class file
  2.  
  3. Public Sub _new()
  4.  
  5. End
  6.  
  7. Public Sub Form_Open()
  8.  
  9.   PictureBox1.Picture = Picture["adorable-gatito-6-5.jpg"]
  10.   MovieBox1.Path = Application.path & "/homer002.gif"
  11.  
  12. End
  13.  
  14. Public Sub CheckBoxStrech_Click()
  15.  
  16.   If CheckBoxStrech.value = False Then
  17.     PictureBox1.Stretch = False
  18.   Else
  19.     PictureBox1.Stretch = True  
  20.   Endif
  21.  
  22. End
  23.  
  24. Public Sub ToggleButton1_Click()
  25.  
  26.   If ToggleButton1.value = True Then
  27.     MovieBox1.Playing = True
  28.     ToggleButton1.text = "ejecutandose"
  29.   Else
  30.     MovieBox1.Playing = False
  31.     ToggleButton1.text = "Parado"
  32.   Endif
  33.  
  34. End
Add Comment
Please, Sign In to add comment