Шаг 65 - Программное управление курсором формы

Управлять курсором формы можно и динамически. Давайте создадим форму с двумя кнопками по нажатию на которые будет производиться смена курсора.

gif/65_1.gif (2259 b)

Теперь код к ним, мы воспользуется свойствами формы.

' VB Sample Code
Private Sub Command2_Click()
	MouseIcon = LoadPicture("3dgarro.cur")
	MousePointer = 99
End Sub

Private Sub Command3_Click()
	MouseIcon = LoadPicture("AcadDWTAssoc.ico")
	MousePointer = 99
End Sub

Мы сделали все то же самое что и в ручную, установили картинку из файла и свойство произвольный курсор, теперь при нажатии на кнопки будет происходить смена курсора на форме, если есть необходимость изменять курсор на только над кнопкой то все то же самое. Напишем код смены курсора над второй кнопкой.

' VB Sample Code
Private Sub Command3_Click()
	Command3.MouseIcon = LoadPicture("AcadDWTAssoc.ico")
	Command3.MousePointer = 99
End Sub

И теперь после нажатия на кнопку курсор над ней изменится.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.