Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.60
Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.60

Private Sub Timer4_Tick(ByVal -sender As System.Object, ByVal e _

As System.EventArgs) Handles Timer4.Tick

Static x As Single

x = Label1.Left

x = x + 1

Label1.Left = x

End Sub

End Class

Рассмотрим еще одну полезную программу. Суть ее заключается в том, чтобы при нажатии клавиши Escape появлялось диалоговое окно, запрашивающее подтверждение на закрытие программы.

Private Sub Forml_KeyDown(ByVal sender As Object, ByVal e _

As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

If e.KeyCode = Keys.Escape Then "27

If MessageBox.Show(«закрыть окно?», «Close», _

MessageBoxButtons.YesNo, MessageBoxIcon.Stop, _

MessageBoxDefaultButton.Buttonl,

MessageBoxOptions.DefaultDesktopOnly) _

= DialogResult.Yes Then

Me.CloseO

End If

End If

End Sub

Если вы заглянете в окно Object Browser и откроете пространство имен System. Windows. Form, то сможете найти там строку Keys. После щелчка этой строки в правом окне появится перечисление всех клавиш. Если выбрать строку с названием нужной клавиши, внизу отобразится цифровой код, который заменяет ее название. В данном примере вместо строки Keys.Escape допустимо употребить число 27. После строки MessageBox. Show открывается скобка и появляется подсказка, которая поможет вам написать текст в окне и заголовке окна, выбрать нужные кнопки, значок и т.д.

Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программированияТрусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования

Генератор

случайных

чисел

Создание любых компьютерных игр немыслимо без использования генератора случайных чисел. Что же это такое? Представьте себе программу, единственной задачей которой является сообщение пользователю некоторых чисел. Причем такая программа, как правило, работает по определенной системе, то есть выдает некий числовой ряд. Вот простейший пример: кнопка Button 1 запускает таймер Timerl, кнопка Button2 останавливает таймер. Каждое включение таймера обеспечивает увеличение статической переменной на единицу.

Private Sub Buttonl_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Buttonl.Click Timerl.Start() End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timerl.Stop() End Sub


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