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

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

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

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

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

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

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

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

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

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

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

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

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

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

CDlg1.Flags = cdlOFNOverwritePrompt Or cdlOFNHideReadOnly

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

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

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

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

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

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

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

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

Close#1

ErrMessage: