cursor souris

Question

nicolas fr · Answer

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

Je pense qu c'es un problem d'API ?? non ? 

un peu d'aide ne serrai pa de reffus

cs_MasterHack · Answer

c se que fais showcursors, ton code est juste.

Life is short...Learn more Copy Rights <> Rights to Copy

nicolas fr · Answer

ok mais si mon code es just alor pourquoi le cursor n'es cacher que sur la feuille form et non sur tout l'ecran

cs_MasterHack · Answer

car c 'est le travail de cette API pas plus.

Life is short...Learn more Copy Rights <> Rights to Copy

nicolas fr · Answer

Ok , c'es bien ce qu je croyai ! par contr tu pourai pa m'indiquer quelle  es l'api qui effectue la tache qu je demande ?

Gobillot · Answer

essayes avec &#231;a, pas envie d'essayer chez moi.

&#183; 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)

Private Sub Form_Load()

    'KPD-Team 1999

    'URL: http://www.allapi.net/

    'E-Mail: KPDTeam@Allapi.net



    ' Create a 32x32 color cursor shaped somewhat like a yin-yang symbol.

    ' (The bit masks come from Microsoft's documentation on the API cursors function, just to

    ' give them their due credit.)  Note how the masks are loaded into the arrays.  The new

    ' cursor is then set to be the cursor for 10 seconds.

    Dim hnewcursor As Long  ' newly created cursor

    Dim holdcursor As Long  ' receives handle of default cursor

    Dim andbuffer As String, xorbuffer As String  ' buffers for masks

    Dim andbits(0 To 127) As Byte  ' stores the AND mask

    Dim xorbits(0 To 127) As Byte  ' stores the XOR mask

    Dim c As Integer, retval As Long  ' counter and return value



    ' Unfortunately, VB does not provide a nice way to load lots of information into an array.

    ' To load the AND and XOR masks, we put the raw hex values into the string buffers

    ' and use a loop to convert the hex values into numeric values and load them into

    ' the elements of the array.  Yes, it's ugly, but there's no better way.  Note the

    ' use of the line-continuation character here.  Each sequence of eight hex

    ' characters represents one line in the 32x32 cursor.

    andbuffer = "FFFC3FFF" & "FFC01FFF" & "FF003FFF" & "FE00FFFF" & _

           
"F701FFFF" & "F003FFFF" & "F003FFFF" & "E007FFFF" & _

           
"C007FFFF" & "C00FFFFF" & "800FFFFF" & "800FFFFF" & _

           
"8007FFFF" & "8007FFFF" & "0003FFFF" & "0000FFFF" & _

           
"00007FFF" & "00001FFF" & "00000FFF" & "80000FFF" & _

           
"800007FF" & "800007FF" & "C00007FF" & "C0000FFF" & _

           
"E0000FFF" & "F0001FFF" & "F0001FFF" & "F8003FFF" & _

            "FE007FFF" & "FF00FFFF" & "FFC3FFFF" & "FFFFFFFF"

    xorbuffer = "00000000" & "0003C000" & "003F0000" & "00FE0000" & _

           
"0EFC0000" & "07F80000" & "07F80000" & "0FF00000" & _

           
"1FF00000" & "1FE00000" & "3FE00000" & "3FE00000" & _

           
"3FF00000" & "7FF00000" & "7FF80000" & "7FFC0000" & _

           
"7FFF0000" & "7FFF8000" & "7FFFE000" & "3FFFE000" & _

           
"3FC7F000" & "3F83F000" & "1F83F000" & "1F83E000" & _

           
"0FC7E000" & "07FFC000" & "07FFC000" & "01FF8000" & _

            "00FF0000" & "003C0000" & "00000000" & "00000000"

    ' Now load these hex values into the proper arrays.

    For c = 0 To 127

        andbits(c) = Val("&H" & Mid(andbuffer, 2 * c + 1, 2))

        xorbits(c) = Val("&H" & Mid(xorbuffer, 2 * c + 1, 2))

    Next c

    ' Finally, create this cursor!  The hotspot is at (19,2) on the cursor.

    hnewcursor = CreateCursor(App.hInstance, 19, 2, 32, 32, andbits(0), xorbits(0))

    ' Set the new cursor as the current cursor for 10 seconds and then switch back.

    holdcursor = SetCursor(hnewcursor)  ' change cursor

    Sleep 10000  'Wait 10 seconds

    retval = SetCursor(holdcursor)  ' change cursor back

    ' Destroy the new cursor.

    retval = DestroyCursor(hnewcursor)

End Sub


Daniel

nicolas fr · Answer

desoler , je viens de tester ta source mais elle ne fonctionn plus quan je creer le fichier EXE

Cursor souris

7 réponses

Discussions similaires