Visual Basic FAQ

Как установить анимированный курсор?

Option Explicit

Private Declare Function LoadCursorFromFile Lib _
            "user32" Alias "LoadCursorFromFileA" _
            (ByVal lpFileName As String) As Long
Private Declare Function SetClassLong Lib "user32" _
    Alias "SetClassLongA" _
    (ByVal hwnd As Long, _
     ByVal nIndex As Long, _
     ByVal dwNewLong As Long) As Long

Const GCL_HCURSOR = (-12)
Dim sCursorFile As String
Dim hCursor As Long
Dim hOldCursor As Long
Dim lReturn As Long

Private Sub Command1_Click()
hCursor = LoadCursorFromFile(sCursorFile)
hOldCursor = SetClassLong(Form1.hwnd, GCL_HCURSOR, hCursor)
End Sub

Private Sub Command2_Click()
lReturn = SetClassLong(Form1.hwnd, GCL_HCURSOR, hOldCursor)
End Sub

Private Sub Form_Load()
sCursorFile = Environ("windir") & "\Cursors\dinosaur.ani"
End Sub

Запись опубликована on 02.01.2009 at 9:00 и размещена в рубрике: Мышь. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.