WIDGETS GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
VISITES

   visiteurs

   visiteurs en ligne

Où ça, qui ça?
Creer son logiciel - Changer le curseur
LES CURSEURS DE SOURIS EN GAMBAS

souris.png

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

Date de création : 27/09/2009 @ 17:39
Dernière modification : 02/10/2009 @ 21:25
Catégorie : Creer son logiciel
Page lue 3410 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article

Personne n'a encore laissé de commentaire.
Soyez donc le premier !


ACCES RAPIDE
RECHERCHE




LOGICIELS GAMBAS 2
LES INSTRUCTIONS
LES COMPOSANTS
Divers

^ Haut ^