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
FORM WINDOW - Own Cursor
PERSONALISE YOUR MOUSE CURSOR
French only sorry...


 
cursor1.png
Dans votre application Gambas, vous souhaitez personnaliser un curseur par une image de votre choix ?
Il suffit donc d'écrire les lignes suivantes que nous allons commenter :

PUBLIC SUB picturebox1_dblclick()
DIM myimg AS cursor
myimg = new cursor(picture["main.png"])
fmain.mouse = mouse.custom
fmain.cursor = myimg
END

PUBLIC SUB PictureBox1_DblClick()
Je déclenche cet evenement lors d'un double click sur une pictureBox.


DIM myimg AS Cursor
définition d'une variable locale nommé myimg comme curseur

myimg = NEW Cursor(Picture["main.png"])
Creation du nouveau curseur et indication de l'image

FMain.Mouse = Mouse.Custom
Dire à Gambas que la fenetre form va recevoir un curseur personnalisé

FMain.Cursor = myimg
Le curseur de Fmain sera l'image contenue dans myimg

End
fin de la procédure Dblclick

Nous remarquons deux choses importantes :
1) L'image apparait en noir et blanc. Est-ce mon ordinateur ou est-ce pareil chez vous ?

2) lorsque vous saisissez le code, la constante CUSTOM apparait comme un petit rond rouge.

cursor2.png

Il s'agit d'une sous-sous-procedure.C'est à dire dans la procédure FMAIN, j'ai la procédure MOUSE dans laquelle j'ai la procédure CUSTOM.
J'ecris donc le code comme ci dessous :


FMain.Mouse = Mouse.Custom
et non Fmain.Mouse.custom = TRUE car ce n'est pas une propriété.(Ce n'est pas un Grand rond Bleu)
A bientot

Voici le code complet de l'exemple
PUBLIC SUB _new()
END
PUBLIC SUB form_OPEN()
me.center
END
PUBLIC SUB picturebox1_dblclick()'double click sur l'image main
DIM myimg AS cursor
myimg = new cursor(picture["main.png"])
fmain.mouse = mouse.custom
fmain.cursor = myimg
END
PUBLIC SUB picturebox2_dblclick()'double click sur l'image fleche
DIM myimg AS cursor
myimg = new cursor(picture["fleche.png"])
fmain.mouse = mouse.custom
fmain.cursor = myimg
END
PUBLIC SUB button1_click()'bouton fermer
me.CLOSE
END

Creation date : 24/09/2010 @ 23:57
Last update : 27/01/2012 @ 22:43
Category : FORM WINDOW
Page read 5684 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

doc.png DOCUMENTATION
forum.png   FORUM
logiciel.png GB SOFTWARES
 gb3logo.png  GAMBASFORGE
 mailing.png  MAILING LIST
 bugtracker.png  Gambas Bug Tracker

SEARCH




LANGUAGE
COMPONENTS
Other
LANGUAGE
Where, who?
actualite et medias
compteur gratuit
VISITS

   visitors

   visitors online

ARCHIVES GAMBAS 1/2
^ Top ^