Page en cours de chargement

Donnez votre avis..
Que pensez-vous de gambaslinux.fr?
 
Interessant
Il manque des rubriques
excellent site
Résultats
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
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 5421 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




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^