nicolas fr
Messages postés7Date d'inscriptionjeudi 21 avril 2005StatutMembreDernière intervention 2 août 2005
-
1 août 2005 à 04:04
nicolas fr
Messages postés7Date d'inscriptionjeudi 21 avril 2005StatutMembreDernière intervention 2 août 2005
-
1 août 2005 à 19:05
nicolas fr
Messages postés7Date d'inscriptionjeudi 21 avril 2005StatutMembreDernière intervention 2 août 2005 1 août 2005 à 04:19
desoler j'ai effectuer une fauss manip ! donc voila mon problem :
bon voila je voulai creer un petit programm marran qui cach le curseur !mais mon problem es qu'il ne cache le cureur qu sur la feuille form et es donc visible sur le reste de l'ecran .
voila ma source :
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
ShowCursor 0
End Sub
Private Sub lbl_Change()
If lbl = 60 Then
lbl1 = lbl1 + 1
lbl = "00"
End If
End Sub
Private Sub lbl1_Change()
If lbl1 = 60 Then
lbl2 = lbl2 + 1
lbl1 = "00"
End If
End Sub
Private Sub cmd_Click()
lbl = "00"
lbl1 = "00"
lbl2 = "00"
End Sub
Private Sub Timer1_Timer()
lbl = lbl + 1
If lbl = 20 Then
ShowCursor 1
End If
End Sub
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 201934 1 août 2005 à 16:39
essayes avec ça, pas envie d'essayer chez moi.
· hCursor
Identifies the cursor. The cursor must have been created by the CreateCursor or loaded by the LoadCursor or LoadImage function. If this parameter is NULL, the cursor is removed from the screen.
Windows 95: The width and height of the cursor must be the values
returned by the GetSystemMetrics function for SM_CXCURSOR and
SM_CYCURSOR. In addition, the cursor bit depth must match the bit depth
of the display or the cursor must be monochrome.
Private Declare Function CreateCursor Lib "user32" (ByVal hInstance As
Long, ByVal nXhotspot As Long, ByVal nYhotspot As Long, ByVal nWidth As
Long, ByVal nHeight As Long, lpANDbitPlane As Any, lpXORbitPlane As
Any) As Long
Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)