Visual Basic: обработчики событий (CommandButton, MouseMove)

В прошлый раз мы создали простейшую программу, которая выводит "Hello, world". Теперь пришло время заняться чем нибудь посерьезнее. Давайте для начала сделаем нормальную надпись на кнопке. Для этого убедимся, что у нас на кнопке установлен фокус, если нет, щелкнем на нее, что бы она стала обведена квадратиками, как на рисунке*:

Затем переключимся на панель свойств, найдем там свойство Caption и напишем в нем "Нажми на меня". Заодно и имя объекта сделаем не Command1, а cbClickMy*:

Теперь давайте поместим на форму Label и назовем ее (свойство Name) lbComment*:

Щелкнем по кнопке, что бы переключиться на редактор кода. Сверху два списка выбора для выбора объектов и событий. Для объекта cbClickMy выберем событие MouseMove*.

Теперь введем в созданный шаблон код обработчика события. Вот как он будет выглядеть:

Private Sub cbClickMe_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lbComment.Caption = "Мышка на кнопке"
End Sub

Если мы запустим эту программу, то при наведении на кнопку мышкой у нас надпись из "Label1" становиться "Мышка на кнопке".  Правда, когда мы убираем мышку с кнопки, надпись никуда не исчезает. Что бы надпись убрать, щелкнем на самой форме, и таким же макаром создадим обработчик события MouseMove:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lbComment.Caption = ""
End Sub

(C) Шуравин Александр

Скриншоты, помеченные знаком *, являются цитатами и иллюстрациями  программного продукта "Microsoft Visual Studio", авторское право на который принадлежит корпорации Microsoft..