Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.138.204.208] |
|
Сообщ.
#1
,
|
|
|
Странно, но в ВБ нельзя исп. Аним. курсоры. Этот код устранит эту проблему
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 Private Const GCL_HCURSOR = (-12) Dim oldCursor As Long, hCursor As Long Private Sub Form_Load() ' Загружаем из файла анимационный курсор hCursor = LoadCursorFromFile("c:\test.ani") ' Привязываем курсор к окну oldCursor = SetClassLong(hwnd, GCL_HCURSOR, hCursor) End Sub Private Sub Form_Unload(Cancel As Integer) ' Восстанавливаем прежний курсор Call SetClassLong(Me.hwnd, GCL_HCURSOR, oldCursor) End Sub |