CommonDialog1.ShowColor

On Error Go To ErrHandler

Exit Sub

ErrHandler

Exit Sub

OpenFile(CDl1.FileName)

CDl1.ShowOpen

On Error Go To ErrHandler

Метод Окно диалога

ShowOpen Open

ShowSave Save As

ShowColor Color

ShowFonts Fonts

ShowPrinter Print

ShowHelp вызывает Windows Help

Окно диалога Open

Окно диалога Open позволяет пользователю указать дисковод, каталог, имя и расширение при открытии файла. В период выполнения, когда пользователь выбирает файл и закрывает окно диалога, для получения выбранного имени файла используется свойство FileName.

Чтобы вывести на экран окно диалога Open необходимо:

1. Задать типы файлов, которые выводятся в списке. Это можно сделать установкой свойства Filter, используя следующий формат:

Описание1/ фильтр1/ описание2/ фильтр…

Описание - строка элемента списка, например“Текстовые файлы (*.txt)”.

Фильтр - фильтр файла, например “*.txt”.

2. Используя метод ShowOpen, открыть на экране окно диалога.

Когда свойство CancelError установлено в True, то для всех окон общего диалога при щелчке пользователя кнопки Cancel генерируется ошибка.

Пример. В следующем коде открывается окно диалога Open, и имя выбранного файла используется в качестве параметра для процедуры, которая открывает файл:

Private Sub Frm1_Click ()

‘В случае ошибки - уйти на метку ErrHandler

‘Установить фильтры

CDl1.Filter=“Всефайлы(*.*)/*.*/Текстовыефайлы(*.txt)/*.txt/_ Командные файлы(*.bat)/*.bat/”

‘фильтр по умолчанию

CDl1.FilterIndex=2

‘Вывести на экран окно диалога Open

‘Вызвать процедуру открытия файла

‘Обработка ошибки

‘Если пользователь нажал кнопку Cancel

Окно диалога SaveAs идентично окну диалога Open.

Окно диалога Color

Окно диалога Color позволяет пользователю выбирать цвет из палитры или создавать свой цвет. В период выполнения, когда пользователь выбирает цвет и закрывает окно диалога, для получения выбранного цвета используется свойство Color.

Чтобы открыть на экране окно диалога Color, необходимо:

1. Установить свойство Flags общего окна диалога равным константе Visial Basic cdlCCRGBInit (первоначальное значение цвета).

2. Используя метод ShowColor, открыть окно диалога.

В следующем фрагменте окно диалога Color выводится на экран, когда пользователь щелкает командную кнопку Command1:

Private Sub Command1_Click ()

‘Установить Cancel в True

CommonDialog1.CancelError=True

‘В случае ошибки уйти на метку ErrHandler

‘Установить свойство Flags

CommonDialog1.Flags= cdlCCRGBInit

‘Открыть окно диалога Color

‘Установить цвет фона формы к выбранному цвету

Form1.BackColor= CommonDialog1.Color

Дата добавления: 2014-12-10