Make your own free website on Tripod.com

AllApi.net

[an error occurred while processing this directive]
 
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetClassWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long
Const GCW_HCURSOR = (-12)
Const IDC_SIZEALL = 32646&
Dim SysCursHandle As Long, Curs1Handle As Long, Curs2Handle As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Load a default cursor
    Curs1Handle = LoadCursor(ByVal 0&, IDC_SIZEALL)
    'Load a cursor from a file
    Curs2Handle = LoadCursorFromFile("C:\Windows\Cursors\pen_1.cur")
    'Set the form's mouse cursor
    SysCursHandle = SetClassWord(Me.hwnd, GCW_HCURSOR, Curs1Handle)
    'Set the button's cursor
    SysCursHandle = SetClassWord(Command1.hwnd, GCW_HCURSOR, Curs2Handle)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'Set the form's cursor back to the original cursor
    SetClassWord Me.hwnd, GCW_HCURSOR, SysCursHandle
    'Clean up
    DestroyCursor Curs1Handle
    DestroyCursor Curs2Handle
End Sub


 
Copyright © 1998-2000, The KPD-Team.
Send mail to KPDTeam@Allapi.net with comments about this web site.
This site is located at
http://www.Allapi.net/