ВБ6 / ВБА - Контрола ЦоммонДиалог
Висуал Басиц Апплицатион или ВБА пружа флексибилно окружење за креирање прилагођених алата за задовољавање свакодневних потреба. Не само да ВБА пружа начин да се направи огромна количина прорачуна са минималним људским напорима, већ такође пружа начине за укључивање корисничког уноса у одређеним фазама извршавања кода. Један такав начин укључивања корисничког уноса је коришћење ЦоммонДиалог Цонтрол. ЦоммонДиалог контрола омогућава корисницима да дају одређене улазе и извршавају кодове који су условљени тим улазима. 
Ево листе свих доступних константи, иако се не користе у свим функцијама.
Доступне функције са ЦоммонДиалог
- Оквир за дијалог> Отвори датотеку
- Оквир за дијалог> Сачувај као
- Оквир за дијалог> Штампај
- Оквир за дијалог> Одабир правила
Почетак
Форма> Наме = Диалог
Контрола ЦоммонДиалог> Наме = ЦМДиалог1
Буттон1> Цаптион = цОпен Филе
Код у ЦоммандКс_Цлицк ()> Рет = цмд_Опен
Буттон2> Цаптион = Сачувај као
Код у Цлиц Рет = цмд_Опен ()
Буттон3> Цаптион = Принт
Код у ЦоммандКс_Цлицк ()> Рет = цмд_Принт ()
Буттон4> Цаптион = Полици
Код у ЦоммандКс_Цлицк ()> Рет = цмд_Полици ()
Пример стандардног модула
Опција Експлицитно Јавни Филтер1 Као Стринг Јавни Филтер2 Као Стринг Јавни Филтер 3 Као Стринг Јавни Филтер 4 Као Стринг Јавни Филтар 5 Као Стринг Јавни Филтер Као Стринг Јавни Филтар 7 Као Стринг Јавни Конст. ДЛГ_ФИЛЕ_ОПЕН = 1 Јавни Конст. ДЛГ_ФИЛЕ_САВЕ = 2 Цонст ДЛГ_ФОНТ = 4 Публиц Цонст ДЛГ_Принт = 5 Публиц Цонст ДЛГ_ХЕЛП = 6 'Дијалог за отварање / чување датотека Ознаке Јавна констраница ОФН_РЕАДОНЛИ = & Х1 и јавна конст. и Х100 и јавни цонст ОФН_АЛЛОВМУЛТИСЕЛЕЦТ = & Х200 и јавни цонст ОФН_ЕКСТЕНСИОНДИФФЕРЕНТ = & Х400 и јавни цонст ОФН_ПАТХМУСТЕКСИСТ = & Х800 и јавни цонст ОФН_ФИЛЕМУСТЕКСИСТ = & Х1000 & Публиц Цонст ОФН_ЦРЕАТЕПРОМПТ = & Х2000 & Публиц Цонст ОФН_СХАРЕАВАРЕ = & Х4000 & Публиц Цонст ОФН_НОРЕАДОНЛИРЕТУРН = & Х8000 & 'Цолор Диалог Заставе јавни цонст ЦЦ_РГБИНИТ = & Х1 и јавни цонст ЦЦ_ФУЛЛОПЕН = & Х2 & Публиц Цонст ЦЦ_ПР ЕВЕНТФУЛЛОПЕН = & Х4 & Јавна константа ЦЦ_СХОВХЕЛП = & Х8 & 'Фонтови Дијалог заставице Јавна конст. ЦФ_АНСИОНЛИ = & Х400 & Публиц Цонст ЦФ_НОВЕЦТОРФОНТС = & Х800 & Публиц Цонст ЦФ_НОСИМУЛАТИОНС = & Х1000 & Публиц Цонст ЦФ_ЛИМИТСИЗЕ = & Х2000 & Публиц Цонст ЦФ_ФИКСЕДПИТЦХОНЛИ = & Х4000 & Публиц Цонст Цонст ЦФ_ТТОНЛИ = & Х40000 Публиц Цонст ЦФ_НОФАЦЕСЕЛ = & Х80000 Јавна конституција ЦФ_НОСТИЛЕСЕЛ = & Х100000 Јавна конст. иц Цонст ПД_НОПАГЕНУМС = & Х8 и јавна константа ПД_ЦОЛЛАТЕ = & Х10 & јавна константа ПД_ПРИНТТОФИЛЕ = & Х20 & јавна констиција ПД_ПРИНТСЕТУП = & Х40 & јавна конст. Публиц Цонст ПД_ДИСАБЛЕПРИНТТОФИЛЕ = & Х80000 Публиц Цонст ПД_ХИДЕПРИНТТОФИЛЕ = & Х100000 'Константе помоћи' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''. Прикажи помоћ о употреби помоћи Публиц Цонст ХЕЛП_СЕТИНДЕКС = & Х5 'Постави тренутни индекс за помоћ вишеструким индексима Публиц Цонст ХЕЛП_СЕТЦОНТЕНТС = & Х5 јавна констенција ХЕЛП_ЦОНТЕКСТПОПУП = & Х8 јавна констенција ХЕЛП_ФОРЦЕФИЛЕ = & Х9 јавна констенција ХЕЛП_КЕИ = & Х101 & Х102 Јавна конст ХЕЛП_ПАРТИАЛКЕИ = & Х105 'позива тражилицу у винхелп Функција адд (а $) Ас Стринг Ако је $ "" Онда а $ = а $ + "|" адд = а $ Енд Функција 'Командне линије ...' ФилеНаме = цмд_опен () 'Ако 1 филтер више >> ФилеНаме = цмд_опен ("ткт")' Ако више филтера, иницијализујте филтер1 до 4 'рутина додаје све филтре Функција цмд_опен (Необавезно Филт1 Као Стринг) Као Стринг Дим ЦТРЛ $, а $, б $, Ф1 $, Ф2 $, Ф3 $, Ф4 $ ЦТРЛ $ = Цхр $ (13) + Цхр $ (10) Ако је Филт1 "" Затим $ = "Датотека (*." & Филт1 & ") | *." & Филт1 Крај Ако је Филтер1 "" Затим $ = адд (а $) а $ = а $ + "Филе (*." & Филтер1 & ") | *." & Филтер1 Филтер1 = "" Крај Ако је Филтер2 "" Затим $ = адд (а $) $ = а $ + "Филе (*." & Филтер2 & ") | *." & Филтер2 Филтер2 = "" Крај Ако је Филтер3 "" Затим $ = адд (а $) $ = а $ + "Филе (*." & Филтер3 & ") | *." & Филтер3 Филтер 3 = "" Крај Ако је Филтер4 "" Затим $ = адд (а $) $ = а $ + "Филе (*." & Филтер4 & ") | *." & Филтер4 Филтер4 = "" Крај Ако $ = адд (а $) а $ = а $ + "Све (*. *) | *. *" Диалог.ЦМДиалог1.Филтер = $ Диалог.ЦМДиалог1.ФилтерИндек = 1 Дијалог .ЦМДиалог1.ФЛАГС = ЦФ_ЕФФЕЦТС Ор ОФН_ХИДЕРЕАДОНЛИ Или ЦФ_АНСИОНЛИ Диалог.ЦМДиалог1.Ацтион = ДЛГ_ФИЛЕ_ОПЕН цмд_опен = Диалог.ЦМДиалог1.ФилеНаме Унутарња дијалог Крај функције Функција цмд_Полици () Диалог.ЦМДиалог1.ДиалогТитле = "Изабери правило" Диалог.ЦМДиалог1.ФЛАГС = ЦФ_ВИСИВИГ + ЦФ_БОТХ + ЦФ_СЦАЛАБЛЕОНЛИ Диалог.ЦМДиалог1.Ацтион = ДЛГ_ФОНТ Филтер1 = Диалог. ) Диалог.ЦМДиалог1.ФЛАГС = ПД_АЛЛПАГЕС Диалог.ЦМДиалог1.Мин = 1 Диалог.ЦМДиалог1.Мак = 100 Диалог.ЦМДиалог1.ФромПаге = 1 Диалог.ЦМДиалог1.ТоПаге = 100 Диалог.ЦМДиалог1.Ацтион = ДЛГ_Принт екстензија датотеке која се тражи за 'нпр: ТКСТ оу ЕКСЕ' рутина додаје сав филтер (*. *) Функциа цмд_СавеАс (Филт1 Ас Стринг) Ас Стринг Филтер1 = "Фајл (*." & Филт1 & ") | *. "& Филт1 Филтер2 =" Све (*. *) | *. * "Диалог.ЦМДиалог1.Филтер = Филтер1 +" | "+ Филтер2 Диалог.ЦМДиалог1.ФилтерИндек = 1 Диалог.ЦМДиалог1.ФЛАГС = ОФН_ХИДЕРЕАДОНЛИ Диалог.ЦМДиалог1.Ацтион = ДЛГ_ФИЛЕ_САВЕ цмд_СавеАс = Дијалог.