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 5675 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

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

RECHERCHE




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
actualite et medias
compteur gratuit
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^