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...)
1 sept. 2005 à 22:28
while etat >= 0
et de
while etat < 0
???
21 juil. 2005 à 19:22
bonne prog'
28 juil. 2003 à 10:03
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...
12 sept. 2002 à 01:30
' 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 :)
14 avril 2002 à 10:29
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.