End Sub. 3. Создадим процедуру сохранения файла Сохранить

3. Создадим процедуру сохранения файла Сохранить. С помощью этой процедуры открывается диалоговое окно Save As (Сохранить как). Для того, чтобы можно было работать в этом окне, необходимо:

· разместить на форме или воспользоваться ранее помещенным на форму компонентом Common Dialog, которому мы присвоили имя CDlg1;

· задать в программном коде свойства CancelError, Flags и Filter объекта CommonDialog, относящиеся к окну Save As;

· применить метод ShowSave;

· использовать свойство FileName для того, чтобы файл сохранился под именем, набранным пользователем.

Процедура сохранения файла имеет следующий вид:

Private Sub itmСохранить_Click()

CDlg1.CancelError = True 'Включаем формирование ошибки при щелчке

'на кнопке <Cancel>

On Error GoTo ErrMessage 'Если возникла ошибка (щелчок по кнопке

'<Cancel>, управление переход к строке с

'меткой ErrMessage и выполняется следующий

'за ней оператор

CDlg1.Flags = cdlOFNOverwritePrompt Or cdlOFNHideReadOnly

CDlg1.Filter = "Text files(*.txt)|*.txt|RTF files(*.rtf)|*.rtf"

CDlg1.ShowSave 'Этот метод выводит на экран диалоговое окно

'«Сохранить как (Save as)»

Open CDlg1.FileName For Output As #1 'Файл открывается для записи в него

'в него информации. Свойство FileName

'используется для задания имени

'файла, набранного пользователем

Print #1, Text1.Text 'Запись в файл содержимого текстового поля

Close #1

ErrMessage: