Какая же программа без своего меню! Нашему калькулятору оно, вроде бы, ни к чему, но, все равно, интересно и полезно сделать хотя бы простенькое. Задача: Щелкнув по пункту "Настройка цвета", мы должны увидеть выпадающее меню из двух пунктов. Щелкнув по пункту "Синий" этого выпавшего меню, мы красим калькулятор в синий цвет, щелкнув по пункту "Красный" - в красный. Щелкнув по пункту "О программе", мы вызываем сообщение с кратким описанием программы.

Создаем меню. Чтобы его создать, достаточно в главном меню Visual Basic выбрать Tools Menu Editor. Перед вами возникнет следующее диалоговое окно

Введем в поле Caption текст "Настройка цвета". Это для того, чтобы пункт меню с этим текстом появился на форме. По мере ввода этот текст возникает и в поле, расположенном ниже. Теперь придумаем этому пункту имя, например, пункт_меню_Настройка_цвета, и введем его в поле Name. Это чтобы пункт меню мог заработать. Если хотите вызывать этот пункт не только мышкой, но и с клавиатуры, выберите что-нибудь из списка Shortcut. Щелкните по кнопке Next и займитесь пунктом "Синий", дав ему имя пункт_меню_Синий. Щелкните по кнопке Next и займитесь пунктом "Красный", дав ему имя пункт_меню_Красный. Щелкните по кнопке Next и займитесь пунктом "О программе", дав ему имя пункт_меню_О_программе.

В результате в окне возникает список из 4 пунктов Теперь нужно объяснить компьютеру, что пункты "Синий" и "Красный" входят внутрь пункта "Настройка цвета". Для этого вы- делим их по очереди и сдвинем направо кнопкой. Получается такая картинка Все в порядке - внешний вид меню готов. Запустите проект. Вы видите, что меню желаемого вида появилось на калькуляторе.

Пощелкайте по пунктам. Естественно, ничего не происходит. Для того, чтобы происходило, нужно заставить меню работать, а для этого нужно для каждого пункта написать свою процедуру. В режиме проектирования выберем пункт меню "Синий" и щелкнем по нему. В окне кода появляется заготовка процедуры: Private Sub пункт_меню_Синий_Click() End Sub Вы уже наверняка догадались, что это приглашение объяснить компьютеру, что нужно делать при выборе пункта "Синий". Для этого подойдет парочка операторов: Form1.Picture = LoadPicture() Form1.BackColor = vbBlue Второй оператор красит форму в синий цвет, первый убирает с формы картинку, если она там была. Аналогично программируем пункт "Красный". А сообщение о программе обеспечит оператор MsgBox ("Программа создана в 2013 году") Запустите проект и проверьте, как он работает.