Ход работы. 1. Создайте папку Лабораторная_работа_№15.
1. Создайте папку Лабораторная_работа_№15.
2. Запустите программу Microsoft Visual Basic 6.0.
3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».
4. Свойству Nameоткрывшейся форме Form1присвойте значение frmБлокнот, а свойству Caption значение Блокнот. Остальные свойства для Формы установите по своему усмотрению (цвет, размеры и т.п.).
5. Разместите на форме компонент TextBox.
6. Удалите у компонента TextBoxсодержимое из свойства Text.
7. Выполните команду Tools → Menu Editor(Отладка → Редактор).
8. В окне редактора меню создайте меню, указав данные, приведенные в таблице 15.5. Для перехода к следующему пункту щелкайте по кнопке Next. Для создания подпункта пользуйтесь стрелками → и ←. В результате меню должно иметь вид, представленный на Рис.15.1 и 15.2.
Таблица 15.5
| Название (Caption) | Уровень (← →) | Имя (Name) |
| Файл | mnuProg | |
| Создать | itmСоздать | |
| Открыть | itmОткрыть | |
| Закрыть | itmЗакрыть | |
| Сохранить | itmСохранить | |
| Сохранить как | itmСохранить_как | |
| Выход | itmВыход | |
| Правка | mnuПравка | |
| Копировать | itmКопировать | |
| Вырезать | itmВырезать | |
| Вставить | itmВставить | |
| Удалить | itmУдалить |
9. Щелкая по очереди левой клавишей мыши на пунктах меню «Правка» наберите нижеследующий программный код, соответствующий каждому пункту. Необходимые комментарии приведены в кавычках в коде программы.
Private Sub itmВставить_Click()
'вставим текст, находящийся в буфере обмена
frmБлокнот.Text1.SelText = Clipboard.GetText()
Дата добавления: 2015-06-12; просмотров: 618;