Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

Ход работы. 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()





Дата публикования: 2014-12-28; Прочитано: 211 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2025 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.149 с)...