VBNet - Форум - Светлана ПО ПОВОДУ АНИМИРОВАННОГО КУРСОРА.

Вопрос: Светлана ПО ПОВОДУ АНИМИРОВАННОГО КУРСОРА. Добавлено: 11.11.02 10:03

Автор вопроса: Svetlana | ICQ: 262385618

Для получения анимированного курсора я вставила этот код, но курсор виден только на самой форме, а на кнопках и на фреймах он не виден. Как это исправить?
Или как сделать анимир. курсор только на кнопке?
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 = "d:\Иконки_Курсоры\Курсоры\GREEN.ani"
End Sub

Ответить

Ответы Всего ответов: 1

Номер ответа: 1
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #1

Добавлено: 11.11.02 13:19

Вот. Но пользуйся этим делом осторожно.
Оно глючное до беспредела.
И ещё. Советую посетитить форумы для начинающих,
в которых объясняют что если форма, то её ручка
Form1.hWnd. Если кнопка - Command1.hWnd

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 sCursorFile2 As String
Dim hCursor As Long
Dim hOldCursor As Long
Dim hOldCursor2 As Long
Dim lReturn As Long

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

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

Private Sub Form_Load()
sCursorFile = "c:\1.ani"
sCursorFile2 = "c:\2.ani"
End Sub

Ответить

Страница: 1 |