Код реализации события:
Скопируйте код кода следующим образом:
Частная подписка mQuit_Click()
Текст1.Текст = ""
Конец
Конец субтитра
Частная подписка mNew_Click()
Текст1.Текст = ""
Form1.Caption = "Без названия"
Конец субтитра
Частная подписка mopen_Click()
CommonDialog1.ShowOpen
Кадр = ОбщийДиалог1.ИмяФайла
Если fname <> "" Тогда
Form1.Caption = имя_фамилии
Текст1.Текст = ""
Открыть имя для ввода как #1
б = ""
Делать до EOF(1)
Линейный вход №1, следующая строка
b = b & следующая строка & Chr(13) & Chr(10)
Петля
Закрыть #1
Текст1.Текст = б
Конец, если
Конец субтитра
Частная подписка mSave_Click()
Если Form1.Caption = "Без названия" Или Form1.Caption = "" Тогда
CommonDialog1.ShowSave
fname = CommonDialog1.FileName
Еще
fname = Форма1.Заголовок
Конец, если
Если fname <> "" Тогда
Form1.Caption = имя_фамилии
Открыть fname для вывода как #1
Печать №1, Текст1.Текст
Закрыть #1
Конец, если
Конец субтитра
Частная подписка mNewSave_Click()
CommonDialog1.ShowSave
Если fname <> "" Тогда
Form1.Caption = имя_фамилии
Открыть fname для вывода как #1
Печать №1, Текст1.Текст
Закрыть #1
Конец, если
Конец субтитра
Необходимо использовать элемент управления CommonDialog!
Код недвижимости:
Скопируйте код кода следующим образом:
Начать VB.Menu mFile
Заголовок = "Файл"
Начать VB.Меню mNew
Заголовок = "Новый"
Конец
Начать VB.Меню mОткрыть
Надпись = "Открыть"
Конец
Начать VB.Меню mСохранить
Надпись = «Сохранить»
Конец
Начать VB.Menu mNewSave
Надпись = «Сохранить как»
Конец
Начать VB.Меню mQuit
Надпись = "Выход"
Ярлык = ^E
Конец
Конец