Creer son logiciel - Changer le curseur( Temps de lecture estimé à 1 min 03 sec )
Dans cet exemple, vous découvrirez les rudiments du code GAMBAS pour manier les types de curseurs.
La propriété du widget lié au curseur est la propriété MOUSE.
Voici le code de cet exemple :
' Gambas class file
PRIVATE lasouris AS String
PUBLIC SUB Form_Open()
ME.center
END
PUBLIC SUB RadioButton1_Click()
lasouris = Mouse.Arrow
PictureBox1.Mouse = Mouse.Arrow
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton2_Click()
lasouris = Mouse.Pointing
PictureBox1.Mouse = Mouse.Pointing
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton3_Click()
lasouris = Mouse.SizeAll
PictureBox1.Mouse = Mouse.SizeAll
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton4_Click()
lasouris = Mouse.Horizontal
PictureBox1.Mouse = Mouse.SizeH
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton5_Click()
lasouris = Mouse.Cross
PictureBox1.Mouse = Mouse.Cross
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton6_Click()
lasouris = Mouse.SizeW
PictureBox1.Mouse = Mouse.SizeSW
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton7_Click()
lasouris = Mouse.SizeN
PictureBox1.Mouse = Mouse.SizeN
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton8_Click()
lasouris = Mouse.SizeS
PictureBox1.Mouse = Mouse.SizeS
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton9_Click()
lasouris = Mouse.Vertical
PictureBox1.Mouse = Mouse.Vertical
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton10_Click()
lasouris = Mouse.Wait
PictureBox1.Mouse = Mouse.Wait
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton11_Click()
lasouris = Mouse.Custom
PictureBox1.Cursor = NEW Cursor(Picture.Load( find-definition_gnome.png ))
PictureBox1.Mouse = Mouse.Custom
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton12_Click()
lasouris = Mouse.Custom
PictureBox1.Cursor = NEW Cursor(Picture.Load( logo.png ))
PictureBox1.Mouse = Mouse.Custom
Label1.Caption = lasouris
END
TELECHARGEZ L 'EXEMPLEVoici le code de cet exemple :
' Gambas class file
PRIVATE lasouris AS String
PUBLIC SUB Form_Open()
ME.center
END
PUBLIC SUB RadioButton1_Click()
lasouris = Mouse.Arrow
PictureBox1.Mouse = Mouse.Arrow
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton2_Click()
lasouris = Mouse.Pointing
PictureBox1.Mouse = Mouse.Pointing
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton3_Click()
lasouris = Mouse.SizeAll
PictureBox1.Mouse = Mouse.SizeAll
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton4_Click()
lasouris = Mouse.Horizontal
PictureBox1.Mouse = Mouse.SizeH
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton5_Click()
lasouris = Mouse.Cross
PictureBox1.Mouse = Mouse.Cross
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton6_Click()
lasouris = Mouse.SizeW
PictureBox1.Mouse = Mouse.SizeSW
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton7_Click()
lasouris = Mouse.SizeN
PictureBox1.Mouse = Mouse.SizeN
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton8_Click()
lasouris = Mouse.SizeS
PictureBox1.Mouse = Mouse.SizeS
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton9_Click()
lasouris = Mouse.Vertical
PictureBox1.Mouse = Mouse.Vertical
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton10_Click()
lasouris = Mouse.Wait
PictureBox1.Mouse = Mouse.Wait
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton11_Click()
lasouris = Mouse.Custom
PictureBox1.Cursor = NEW Cursor(Picture.Load( find-definition_gnome.png ))
PictureBox1.Mouse = Mouse.Custom
Label1.Caption = lasouris
END
PUBLIC SUB RadioButton12_Click()
lasouris = Mouse.Custom
PictureBox1.Cursor = NEW Cursor(Picture.Load( logo.png ))
PictureBox1.Mouse = Mouse.Custom
Label1.Caption = lasouris
END