Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.77
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.77

В событиях KeyDown и KeyUp нужная буква выбирается свойством KeyCode при помощи подсказки, которая появляется после постановки знака равенства.

События MouseDown, MouseUp, MouseMove

Событие MouseDown происходит при нажатии кнопки мыши, MouseUp - при отпускании кнопки мыши, a MouseMove - при движении мыши. В любом случае курсор должен находиться на форме.

В этом примере мы составим программу, при которой объект (надпись Label 1) будет двигаться вслед за курсором. Выберите в меню Class Name строку FormlEvents, а в меню Method Name -MouseMove. Код будет выглядеть следующим образом:

5-Tpycoi

ГЛАВА 15 Т Несколько полезных программ

Private Sub Forml_MouseMove (ByVal sender As _ Object, ByVal e As System.Windows.Forms.Mouse _ Event Args) Handles My Base.MouseMove

If e.Button = MouseButtons.Left Then Labell.Left = e.X Labell.TQp = e.Y End If

End Sub

При нажатии левой кнопки мыши координаты объекта La-bell приобретают значение координат курсора. Если кнопка остается нажатой, объект передвигается за курсором.

Электронные часы и календарь

Нам понадобятся две надписи Label и таймер Timerl. На одной будет отражаться время, на другой - дата.

Private Sub Timerl_Tick (ByVal sender As System._ Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim a As DateTime

a = Now

Labell.Text = a.ToLongTimeString Label2.Text = a.ToLongDateString

End Sub

Простые диалоговые окна

Вы, наверное, обращали внимание, что при закрытии программы, как правило, появляется небольшое диалоговое окно с запросом о подтверждении ваших действий или необходимости сохранения изменений в файле. Такое окно содержит вопрос, пиктограмму и несколько кнопок. Кнопки Да и Нет подтверждают или отвергают запрос, кнопка Отмена отменяет действие диалогового окна и т.д. Чтобы создать диалоговое окно, достаточно набрать код:

Private Sub Buttonl__Click (ByVal sender As System. Object, ByVal e As System.EventArgs) _ Handles Buttonl.Click

MsgBox ("закрыть?") End Sub

5-2

Простые диалоговые окна

Или такой вариант:


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta