Creer son logiciel - Changer le curseur

( Temps de lecture estimé à 1 min 03 sec )

LES CURSEURS DE SOURIS EN GAMBAS

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 'EXEMPLE

);

Creer son logiciel - Changer le curseur

( Temps de lecture estimé à 1 min 03 sec )

Réaction à cet article

Écrire un commentaire