Заставляем меню работать
Каждый пункт меню – это объект. Чтобы убедиться в этом, щелкните в режиме проектирования по пункту «Прозрачный» и загляните в окно свойств. Вы видите, что у пункта меню есть свойства, как и у других объектов. Замените его имя (Name) на Menu_Прозрачный. Это для того, чтобы им было удобнее пользоваться при программировании.
Теперь сделайте по пункту «Прозрачный» не одиночный, а двойной щелчок мышью. В окне кода возникнет заготовка процедуры, которая будет выполняться при выборе этого пункта меню:
Private Sub Menu_Прозрачный_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_Прозрачный.Click
End Sub
Слова Menu_Прозрачный.Click в правой части заголовка означают, что речь идет о щелчке (Click) мыши по пункту Menu_Прозрачный. Остается написать код для выполняемого действия:
Private Sub Menu_Прозрачный_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_Прозрачный.Click
Me.Opacity = 0.7
End Sub
Здесь словом Me обозначена форма, Opacity – ее свойство непрозрачности (см. 3.4.3). Число 0.7 обозначает величину 70%.
Запустите проект, проверьте работу этого пункта меню.
Аналогично организуем работу остальных 3 пунктов меню. Сначала дайте им имена: Menu_Желтый, Menu_Белый, Menu_О_программе. Затем запрограммируйте их действия в окне кода:
Private Sub Menu_Желтый_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_Желтый.Click
Число1.BackColor = Color.Yellow
Число2.BackColor = Color.Yellow
Результат.BackColor = Color.Yellow
End Sub
Private Sub Menu_Белый_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_Белый.Click
Число1.BackColor = Color.White
Число2.BackColor = Color.White
Результат.BackColor = Color.White
End Sub
Private Sub Menu_О_программе_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_О_программе.Click
MsgBox("Калькулятор создан в 2003 году")
End Sub
В первых двух процедурах речь идет о цвете трех текстовых полей: Число1, Число2, Результат. В операторах все привычно (см. 1.3.9). В последней процедуре создается окно сообщения (см. 3.7).
Введя очередную процедуру, запускайте проект и проверяйте работу соответствующего пункта меню.
Если вам не хочется щелкать по меню мышкой, вы можете для каждого пункта меню выбрать комбинацию клавиш клавиатуры с тем же действием. Эта комбинация называется Shortcut и выбирается установкой одноименного свойства пункта меню в режиме проектирования в окне свойств.
Средствами VB можно создавать, преобразовывать и уничтожать меню, причем не только в режиме проектирования, но и в режиме работы. Но на этом я не буду останавливаться. Кроме обычных меню VB умеет создавать и контекстные меню (как это делать, рассказано в 18.9).
