Advertisement
jsbsan

PictureBox, ImageView y Moviebox

Apr 12th, 2014
5,710
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.66 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.   ImageView1.Image = Image.Load("adorable-gatito-6-5.jpg")
  12.  
  13. End
  14.  
  15. Public Sub CheckBoxStrech_Click()
  16.  
  17.   If CheckBoxStrech.value = False Then
  18.     PictureBox1.Stretch = False
  19.   Else
  20.     PictureBox1.Stretch = True  
  21.   Endif
  22.  
  23. End
  24.  
  25. Public Sub ToggleButton1_Click()
  26.  
  27.   If ToggleButton1.value = True Then
  28.     MovieBox1.Playing = True
  29.     ToggleButton1.text = "ejecutandose"
  30.   Else
  31.     MovieBox1.Playing = False
  32.     ToggleButton1.text = "Parado"
  33.   Endif
  34.  
  35. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement