Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Практическая работа 37. Меню
|
|
Создать меню, команда которого позволяет вывести системную информацию Мicrosoft; ниже дана последовательность действий:
· маркировать форму, стартовать редактор меню,
· cоздать меню, задав: Name = mnuSysInfMicrosoft (Caption = SystInfMicrosoft) и Name = mnuEnd,
· добавить в проект форму About Dialog, для этого использовать меню Проект 
Добавить форму About Dialog Открыть,
· ввести код, данный ниже:
Private Sub mnuSysInfMicrosoft_Click()frmAbout.Show vbModalEnd SubPrivate Sub mnuEnd_Click()EndEnd Sub· после старта проекта выбрать команду меню SysInfMicrosoft, сделать щелчок на этой кнопке, выводится диалоговое окно About, после щелчка на нижней кнопке выведенного диалогового окна выводится системная информация Microsoft.
|
|