У тебя должно быть Меню. Вот его пункты:
Файл
....Создать(Очищение текстового поля)
....Открыть
....Сохранить(это при помощи Open...)
....Сохранить как(это при помощи Common Dialog Control(ShowSave))
....Выход
Правка
....Вырезать
....Копировать
....Вставить
....Удалить
....Дата/время
Справка
....О Проге
Ну и все(это пока), могу только сказать, про сохранить как:
Private Sub Command1_Click()
CD.ShowSave 'Вызываем окно Сохранения файла
'Сохраняем выбранный файл
Open CD.FileName + ".txt" For Output As FreeFile
Print Text1.Text
Close FreeFile
End Sub
Private Sub Form_Load()
CD.FileName = "Безымянный*.txt" 'При вызове окна Сохранения файла в поле "Имя" будет написано Безымянный
CD.Filter = "*.txt" 'В поле Тип - *.txt
>
End Sub
Ну вроде все, делай... Только не забудь что при растягивании/развертывании окна текстовое поле тоже должно растягиватся.
Можешь посмотреть исходник на моем сайте.
Место под Банеры |
![]() |