Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > Как изменить вид курсора


Автор: СВА 25.2.2006, 05:35
Как изменить вид курсора если
Код

Me.MouseIcon = LoadPicture("D:\?????\??????\15.cur")


не работает

Автор: Voldemar2004 25.2.2006, 10:32
Зачем подгружать из файла? Свойство есть такое: mouseicon и mousepointer. Если хочешь сделать свой курсор, то его надо заранее прописать в программе - щелкаешь по свойству MouseIcon - и выбираешь.

Автор: Тутанхамец 25.2.2006, 11:28
Лично у меня работает вот так:

Код

Me.MousePointer = 99
Set Me.MouseIcon = LoadPicture("c:\current\cursor1.cur")


Если MousePointer установлен в 0 (default), то форме плевать, что ты загонишь в mouseicon, она всё равно будет пользоваться стандартным курсором. smile

Автор: СВА 26.2.2006, 05:21
ОК я нашел выход

Ниже приведены значение св-ва MousePointer и их описания

Описание значение

Стрелка 1
Стрелка и песочные часы 13
Стрелка и знак вопроса 14
Крестик 2
Песочные часы 11
Текстовый курсор 3
Указатель «Операция невозможна» 12
Стрелки изменения размера 15
Стрелки во всех направлениях 5
Двусторонняя диагональная стрелка (северо-восток — юго-запад) 6
Двусторонняя вертикальная стрелка 7
Двусторонняя диагональная стрелка (северо-запад — юго-восток) 8
Двусторонняя горизонтальная стрелка 9
Стрелка вверх 10
ползовательский курсор 99

значение 99 позволяет загружать собственные курсоры следующим образом

Код

Me.MouseIcon = LoadPicture("c:\current\cursor1.cur")


Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)