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
FENETRE FORM - curseur personnalisé
PERSONNALISER VOTRE CURSEUR



 
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

Date de création : 24/09/2010 @ 23:57
Dernière modification : 27/01/2012 @ 22:43
Catégorie : FENETRE FORM
Page lue 5352 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 ^