Программирование
Веб программирование

Курсор в vb.net

 
 

В VB.Net работа с курсором очень сильно изменилась в лучшую сторону. В VB6 стандартными средствами работать с курсором было практически невозможно, и приходилось использовать API фунукции(об них подробно ты узнаешь в следующих шагах, скажу только что API функции это код(который хранится в *.dll файлах), который написан не на VB6(в основном на C# и C++), и которым можно пользоваться в своих программах. Вобщем VB6-программисты, испоьзовали чужой код), в VB.Net с курсором можно делать практически все.
Для начала сделаем программу, которая будет узнавать координаты курсора. На форме размести 2 метки, и таймер(Interval=100, Enabled=True). Код:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
' В метки записываем координаты курсора по оси X и Y
Label1.Text = Cursor.Position.X
Label2.Text = Cursor.Position.Y
End Sub 

Теперь сделаем программу, которая будет перемещать курсор. На форме размести кнопку, код:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' При нажатии на кнопку передвигаем курсор(Point переводится как пункт, New - новый)
Cursor.Position = New Point(100, 100)
End Sub 

У каждого видимого объекта есть свойство Cursor. Оно нужно для того, чтобы при наводе курсора на объект, у него менялся курсор. Сейчас сделаем программу, в которой при наводе на текст. поле курсора, курсор менялся на стандартны курсор Hand. На форме размести текст. поле, код:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' При загрузке формы, у текст. поля меняем курсор на стандартный. Объект Cursors содержит все стандартные курсоры.
TextBox1.Cursor = Cursors.Hand
End Sub 

В VB.Net(в отличии от предыдущих версий) можно загружать и свои курсоры(т.е. не стандартные). Вот код программы, которая зугружает курсор:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' При загрузке формы, загружаем курсор(с именем 12.cur, НО курсор должен находится в той же папке где и сама программа, или надо писать полный путь(например, C:12.cur))
TextBox1.Cursor = New Cursor("12.cur")
End Sub 

Несколько курсоров можешь скачать Здесь
P.S. Но к сожелению, свойство Cursor не поддерживает анимированные курсоры(*.ani), и файлы - иконки(*.ico(ну это понятно почему..)).
P.S. Программу можно еще украсить иконками. Чтобы изменить иконку надо: у формы в режиме проектирования, на панели свойств изменить свойство Icon на свою иконку. Одну иконку можешь скачать Здесь

P.S. В VB.Net появились утилиты для создания курсоров и иконок. Чтобы их открыть на панели инструментов Standart(если у тебя ее по какой - то причине нет, то нажми: View>>Toollbars>>Standard) нажми на кнопку Add New Item(), и в открывшемся окне выбери Cursor File - для создания курсоров, Icon File - для создания иконок.

Откроется окошко для рисования, самый первый цвет() - прозрачный.
На панели инструментов - Image Editor(если у тебя ее по какой - то причине нет, то нажми: View>>Toollbars>>Image Editor) есть инструменты для рисования(карандаши, линейки, круги..), а также есть кнопка New Image type(). В ней можно выбрать размеры рисунка, а так же цветность.


Есть вопросы? Спроси на нашем форуме!!
Игорь [13.05.2010 00:46]

Спасибо! Все ясно и понятно.

Памирыч [09.07.2011 23:42]

Только курсор чего-то черным становится



Оставлять комментарии можно только зарегистрированным




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