ПОНЯТНО О Visual Basic NET

       

Заставляем меню работать


Каждый пункт меню – это объект. Чтобы убедиться в этом, щелкните в режиме проектирования по пункту «Прозрачный» и загляните в окно свойств. Вы видите, что у пункта меню есть свойства, как и у других объектов. Замените его имя (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).



Содержание раздела