PERSONNALISER VOTRE CURSEUR

---

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.


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