Написание кода для кнопки "Крутить"
Чтобы снова увидеть графическую форму, в окне Solution Explorer (Обозреватель решений) нажмите кнопку View Designer (Просмотреть конструктор). Когда виден редактор кода, форма, с которой вы работаете, не видна. Ее можно снова вывести на экран с помощью кнопки View Designer (Просмотреть конструктор). Если в Solution Explorer (Обозревателе решений) загружено более одной формы, выберите ту из них, которая вам нужна.
Совет. Чтобы снова показать окно с графической формой, можно выбрать закладку с текстом Form1.vb [Design] у верхнего края редактора кода. Если в верхней части редактора кода нет закладок, в диалоговом окне Options (Параметры) выберите свойство Tabbed Documents (Вкладки), как описано в "Открытие и запуск программы в Visual Basic .NET" .
Дважды щелкните мышью на кнопке Крутить. Через некоторое время появится редактор кода, и рядом с процедурой события Button2 появится процедура события, ассоциированная с кнопкой Button1. Хотя вы изменили текст этой кнопки на Крутить, ее имя в программе осталось Button1. (Имя и текст элемента интерфейса могут различаться, в зависимости от стоящих задач). Любой объект может иметь несколько ассоциированных с ним процедур, по одной для каждого распознаваемого события. Событие щелчок мышью интересует нас сейчас потому, что пользователи при работе с программой будут нажимать на кнопки Крутить и Выход.
Между строками Private Sub и End Sub введите следующие ниже строки программы, нажимая после каждой строки на Enter, делая отступы с помощью клавиши Tab и обращая внимание на правильность ввода конструкций языка, так, как они показаны здесь. (При вводе длинных строк редактор кода будет прокручивать экран.) Если вы сделаете ошибку (обычно ее можно определить по подчеркиванию волнистой линией), удалите неверную строку и введите ее снова.
Совет. Когда вы вводите код программы, Visual Basic форматирует ее текст и отображает различные части программы различными цветами, которые помогают распознавать различные элементы. При вводе свойства Visual Basic покажет список, содержащий все допустимые свойства объекта, так что вы, вместо ввода свойства вручную можно просто выбрать его с помощью мыши. Если Visual Basic выводит сообщение об ошибке, то вы, скорее всего, ввели оператор с ошибкой. Сверьте строку с текстом в книге, сделайте необходимые исправления и продолжайте набирать дальше. (Можно удалить всю строку и начать вводить ее заново.) В дополнение к этому при необходимости Visual Basic может добавлять код автоматически. Например, когда вы будете вводить нижеследующий код, Visual Basic автоматически добавит строку End If.
PictureBox1.Visible = False ' скрыть изображение
Label1.Text = CStr(Int(Rnd() * 10)) ' получить число
Label2.Text = CStr(Int(Rnd() * 10))
Label3.Text = CStr(Int(Rnd() * 10))
' если какой-либо из заголовков - это 7, то отобразить картинку и подать
' звуковой сигнал
If (Label1.Text = "7") Or (Label2.Text = "7") _
Or (Label3.Text = "7") Then
PictureBox1.Visible = True
Beep()
End If
После окончания окно редактора кода должно выглядеть так.
Чтобы сохранить дополнения к программе, в меню File (Файл) выберите команду Save All (Сохранить все) . Команда Save All (Сохранить все) сохраняет все файлы вашего проекта - сам файл проекта, файл с формой, все модули кода и все компоненты, связанные с вашим приложением. Если вы хотите сохранить только тот элемент, с которым работаете в настоящий момент (форму, модуль кода или что-либо еще), используйте команду Save (Сохранить) в меню File (Файл). Если необходимо сохранить текущий элемент с другим именем, используйте команду Save As (Сохранить как).