Можно ли сделать так, чтобы в программе на Visual BASIC 6.0 над элементами управления был курсор в виде руки (как при наведении на ссылку), но именно системный, а не нарисованный вручную.

Хм... интересно я его тоже не нашел в системных папках , но нашел в другом месте .
Я на мыло к тебе бросил LINK.CUR его и цепляй . А может вызов этого курсора идет через API.... ??!!

Код

Public Sub HourGlass(obj As Object) Static ordMouse As Integer Static fOn As Boolean On Error Resume Next 'если повторный вызов If Not fOn Then ordMouse = obj.MousePointer 'запомнить старый obj.MousePointer = vbCustom 'установить новый fOn = True 'запомнить, что уже вызывали Else 'Если нужно восстановить obj.MousePointer = ordMouse 'восстановить курсор fOn = False 'запомнить, что уже восстановили End If End Sub Private Sub Command1_Click() Call HourGlass(Form1) End Sub

Спасибо, конечно. Но это не совсем то, что я хотел.
Это ведь то же самое, что и рисованный курсор. В WinXP от него, например, нет тени Это не страшно, а вот если у пользователя в настройках указателей стоит вместо этой вот руки что-нибудь другое... Что тогда?

Мне кажется, что такой курсор средствами бейсика вообще установить невозможно.

Я пробовал средствами API через (код для Си)

Код

HCURSOR a=LoadCursor(NULL, IDI_HAND); SetCursor(a);

И вызывать его, например, по MouseMove. Но это плохой метод, так как при движении мыши (да и при других действиях) бейсик восстанавливает заданный у себя по MousePointer курсор.

Это сообщение отредактировал(а) Дрон - 3.9.2003, 19:07

Это верно... есть такой глюк...
А если тебе надо произвольный (вообще левый) курсор, то на форме (или где он должен появляться) поставь MousePointer=99, а потом, во время выполнения в MouseIcon можешь загружать любой *.ico;*.cur