|
Платные хостинги
Раскрутка сайта
Книги по программированию
Системный курсор в виде руки, как сделать?
- Можно ли сделать так, чтобы в программе на Visual BASIC 6.0 над элементами управления был курсор в виде руки (как при наведении на ссылку), но именно системный, а не нарисованный вручную.
- Хм... интересно я его тоже не нашел в системных папках , но нашел в другом месте .Я на мыло к тебе бросил LINK.CUR его и цепляй . А может вызов этого курсора идет через API.... ??!!Код Public Sub HourGlass(obj As Object)Static ordMouse As IntegerStatic fOn As BooleanOn Error Resume Next'если повторный вызовIf Not fOn ThenordMouse = obj.MousePointer 'запомнить старыйobj.MousePointer = vbCustom 'установить новыйfOn = True 'запомнить, что уже вызывалиElse 'Если нужно восстановитьobj.MousePointer = ordMouse 'восстановить курсорfOn = False 'запомнить, что уже восстановилиEnd IfEnd SubPrivate Sub Command1_Click()Call HourGlass(Form1)End Sub highlightSyntax('vbmY2MjJ','vb');
- Спасибо, конечно. Но это не совсем то, что я хотел.Это ведь то же самое, что и рисованный курсор. В WinXP от него, например, нет тени Это не страшно, а вот если у пользователя в настройках указателей стоит вместо этой вот руки что-нибудь другое... Что тогда?Мне кажется, что такой курсор средствами бейсика вообще установить невозможно.Я пробовал средствами API через (код для Си)Код HCURSOR a=LoadCursor(NULL, IDI_HAND); SetCursor(a);highlightSyntax('vbjNhNzJ','vb');И вызывать его, например, по MouseMove. Но это плохой метод, так как при движении мыши (да и при других действиях) бейсик восстанавливает заданный у себя по MousePointer курсор. Это сообщение отредактировал Дрон - 3.9.2003, 19:07
- Это верно... есть такой глюк...А если тебе надо произвольный (вообще левый) курсор, то на форме (или где он должен появляться) поставь MousePointer=99, а потом, во время выполнения в MouseIcon можешь загружать любой *.ico;*.cur
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
