Размещение общего диалога (Common Dialog)

Общий диалог (компонент Microsoft Common Dialog Control 6.0) содержит несколько панелей диалога, которые используются в Windows. Для наглядности можно заменить умалчиваемое значение свой­ства Name (CommonDialog...) на более подходящее (например, Getfile).

Специфичные свойства

DialogTitle ‑ можно указать заголовок окна диалога.

CancelError =True ‑ при нажатии кнопки Cancel возникает ошибка с кодом cdlCancel, которую можно обработать дополнительно (If Err.Num­ber=cdl­Can­cel Then...) (п. 13.1.2).

Диалог открытия файла

Специфичные свойства

FileName ‑ полное имя выбранного файла.

Filter =i1|m1|i2|m2... ‑ задает список масок (m1, m2,...) для филь­­трации имен файлов, выво­димых в окно диалога, и име­на этих масок (i1, i2,...). В маске можно указать символы: “*” (любая по­с­ле­довательность симво­лов), “?” (любой символ). Для одной группы файлов может быть несколько масок, которые разделяются символом “;” (Doc-файлы|*.doc;*.dot;*.rtf).

Специфичные методы

ShowOpen /ShowSave ‑ открытие диалога для входного/сох­­раняемого файла.

Рис. 8.4.2. Окно выбора файла

       Пример. Можно раз­мес­тить на форме команд­ную кнопку для откры­тия файла и написать проце­дуру обработки события Click этой кнопки:

GetFile.Filter=”Тексты|*.txt|Отчеты|*.prn;*;*.rpt” ‘фильтрация файлов

GetFile.DialogTitle=”Выберите файл”   ‘заголовок окна

GetFile.ShowOpen       ‘вывод окна диалога выбора существующего файла

Nf=GetFile.FileName     ‘имя выбранного файла помещается в переменную Nf

Open Nf For Input As #1 ‘открытие входного выбранного файла

Диалог настройки шрифтов

Специфичные свойства

Flags  ‑ типы выводимых шрифтов: 1 (экран­ные), 2 (принтера), 3 (все).

FontName,   Font­Size,   Font­Bold,   FontItalic, Font­Un­derLine, FontStrikethru - ре­зуль­таты настройки: имя шриф­та, размер, полужирный, курсив, подчеркива­ние, перечеркивание соответственно.

Окно диалога (рис. 8.4.3) вызы­вается методом ShowFont, ана­ло­гич­­ным по синтаксису методу ShowOpen.

Пример. Разместить на форме Form1 объект Common Dialog под именем GetFont и командую кнопку для настройки шрифта формы; далее следует создать процедуру обработки события Click этой кнопки:

GetFont.Flag=3                                 ‘вывести все шрифты

GetFont.ShowFont                            ‘вывод окна диалога настройка шрифта

Form1.FontName=GetFont.FontName ‘изменить значения свойств формы

Form1.FontSize= GetFont.FontSize

Form1.FontBold= GetFont.FontBold...

  Рис. 8.4.3. Окно настройки шрифта

Диалог настройки цвета

     Вызов окна диалога (рис. 8.4.4) аналогичен предыдущему:

Рис. 8.4.4. Окно настройки цвета

Специфичные свойства

Flags =cdlCCRGBInit ‑ признак цветовой настройки.

Color    ‑ RGB‑номер выбранного цвета.

Окно диалога (рис. 8.4.4) вызы­вается методом ShowColor.

Пример цветовой настройки

GetColor.Flags=cdlCCRGBInit                       ‘установка значения Flags

GetColor.ShowColor                                ‘вызов метода  выбора цвета

Form1.BackColor=GetColor.Color           ‘изменение цвета фона формы

Можно выбрать уже готовый цвет или подобрать нужный, меняя интенсивность красного (Red), зеленого (Green) и синего (Blue) цветов.

Диалог настройки принтера

Специфичные свойства

Frompage,   ToPage,   Copies ‑ре­зуль­таты настройки: номера начальной и ко­неч­ной страниц, число копий соответственно.

Для запуска диалога (рис. 8.4.5) используется метод ShowPrinter.

Панель диалога не обеспечивает автоматическую настройку пара­метров печати. Это должна делать сама программа.

Рис. 8.4.5. Окно настройки принтера