Page loading

Share your opinion
What do you think about gambaslinux.fr?
 
Interesting
It miss some informations
Excellent website
Results
WIDGETS GAMBAS
GAMBAS 3 SOFTWARES
TUTORIALS
Library
create own software - Change Cursors
french only sorry...
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

Creation date : 27/09/2009 @ 17:39
Last update : 02/10/2009 @ 21:25
Category : create own software
Page read 5951 times


Print the article Print the article


react.gifReactions to this article

Nobody gave a comment yet.
Be the first one to do it!


QUICK MENU
SEARCH




LANGUAGE
COMPONENTS
Other
LANGUAGE
Where, who?
VISITS

   visitors

   visitors online

ARCHIVES GAMBAS 1/2
^ Top ^