Comment cacher le curseur de la souris?

Soyez le premier à donner votre avis sur cette source.

Snippet vu 21 104 fois - Téléchargée 85 fois

Commenter

Contenu du snippet

Comment cacher le curseur de la souris?

C'est tout simple, il vous suffit de placer le code suivant, ainsi qu'un bouton, dans votre form:

Source / Exemple : 


Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
     ShowCursor False
End Sub

Conclusion :


Voilà, il est caché!!!!
Pour le faire réaparaître, il suffit de mettre True (Il faut parfois un peu de persévérance, je ne sais pourquoi...)

A voir également

Ajouter un commentaire

Commentaires

Signaler
Seth77
Messages postés
567
Date d'inscription
mardi 30 avril 2002
Statut
Membre
Dernière intervention
24 janvier 2014
 -
je ne comprend pas ca ne marche pas ... c au niveau de :

while etat >= 0

et de

while etat < 0

???
Signaler
BozzoDodo
Messages postés
185
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
10 janvier 2008
 -
Nan ca marche pas la bonne technique est celle de Khakahan.
bonne prog'
Signaler
ckuron
Messages postés
4
Date d'inscription
dimanche 5 mai 2002
Statut
Membre
Dernière intervention
28 juillet 2003
 -
En fait, la fonction marche très bien,
sauf qu'il faut changer quelques trusc :

Comme tu lui envoi la valeur True ou False, il faut changer sa déclaration en :

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Boolean) As Boolean

Et voilà, maintenant vous pouvez faire ShowCursor True ou ShowCursor False autant de fois que vous le souhaitez...
Signaler
cs_Khalahan
Messages postés
7
Date d'inscription
mercredi 11 septembre 2002
Statut
Membre
Dernière intervention
8 octobre 2002
 -
si tu le caches 2 fois de suite, tu dois l'afficher 2x de suite. Donc, pour bien utiliser cette fonction il faudrait mettre un :

' Masque le curseur
etat = Showcursor(False)
while etat >= 0
etat = Showcursor(False)
wend

' Affiche le curseur
etat = Showcursor(True)
while etat < 0
etat = Showcursor(True)
wend

ou alors il faudrait l'appeler qu'une seule fois :)
Signaler
NeoFO
Messages postés
30
Date d'inscription
mardi 17 octobre 2000
Statut
Membre
Dernière intervention
18 juin 2002
 -
C'est bien mais impossible de le cacher deux foix sans être obliger de redmarrer le prog
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Felix)