VB6 / VBA - контрол на общия диалог

Приложението Visual Basic или VBA осигурява гъвкава среда за създаване на персонализирани инструменти, които да отговарят на ежедневните нужди. Не само, че VBA осигурява начин да се направи огромно количество изчисления с минимални човешки усилия, но също така осигурява начини за включване на потребителския вход в определени етапи от изпълнението на кода. Един такъв начин за въвеждане на потребителски вход е да се използва CommonDialog Control. CommonDialog Control позволява на потребителите да дават конкретни входове и изпълняват кодовете, които са обвързани с тези входове.

Различните функции на контрола CommonDialog

Ето списък на всички налични константи, въпреки че те не се използват във всички функции.

Наличните функции с CommonDialog

• Диалоговият прозорец> Отвори файла
• Диалоговият прозорец> Запиши като
• Диалоговият прозорец> Печат
• Диалоговият прозорец> Избор на правило

Приготвяме се да започнем

Форма> Име = диалогов прозорец

Контрол на CommonDialog> Име = CMDialog1

Button1> Caption = cOpen File

Код в CommandX_Click ()> Ret = cmd_Open

Button2> Caption = Save as

Код в Clic Ret = cmd_Open ()

Бутон3> Надпис = Печат

Код в CommandX_Click ()> Ret = cmd_Print ()

Button4> Caption = Политика

Код в CommandX_Click ()> Ret = cmd_Policy ()

Пример за стандартен модул

 Опция Изрично Публичен Филтър 1 Като Публичен Филтър2 Като Строка Публичен Филтър 3 Като Строка Обществен Филтър 4 Като Строка Публичен Филтър 5 Като Строка Публичен Филтър Като Ниво Публичен Филтър 7 Като Строка Публичен Конфигурация DLG_FILE_SAVE = 2 Публична Константа DLG_COLOR = 3 Публична Const DLG_FONT = 4 Публична конформация DLG_Print = 5 Публична конформация DLG_HELP = 6 'Диалогов прозорец за отваряне / запазване на файл Знамена Публичен кон OFN_READONLY = & H1 & Обществен кон OFN_OVERWRITEPROMPT = & Н2 & Обществен кон OFN_NOVALIDATE = & H100 & Public Const OFN_ALLOWMULTISELECT = & H200 & Public Const OFN_EXTENSIONDIFFERENT = & H400 & Public Const OFN_PATHMUSTEXIST = & H800 & Public Const OFN_FILEMUSTEXIST = & H1000 & Public Const OFN_CREATEPROMPT = & H2000 & Public Const OFN_SHAREAWARE = ​​& H4000 & Public Const OFN_NOREADONLYRETURN = & H8000 и "Цвят Диалог Flags обществено строителство CC_RGBINIT = & H1 & Public Const CC_FULLOPEN = & H2 & Публична конституция CC_PR EVENTFULLOPEN = & H4 & Обществен кон CC_SHOWHELP = & H8 & "Шрифтове Диалогови флагчета Публична конформация = & H200 & Обществени конформи CF_ANSIONLY = & H400 & Обществени конформи CF_NOVECTORFONTS = & H800 & Обществени конформи CF_FIXEDPITCHONLY = & H4000 & Public Const Const CF_TTONLY = & H40000 Публични конси CF_NOFACESEL = & H80000 Обществени конформи CF_NOSTYLESEL = & H100000 Публични конформи CF_NOSIZESEL = & H200000 'Диалогови флагчета на принтерите Публична константа PD_ALLPAGES = & H0 & Публични съставки ic Const PD_NOPAGENUMS = & H8 & Публична съст PD_COLLATE = & H10 & Публична съст PD_PRINTTOFILE = & H20 & Публична съст PD_PRINTSETUP = & H40 & Публична съст PD_OWENTN = Public Const PD_DISABLEPRINTTOFILE = & H80000 Public Const PD_HIDEPRINTTOFILE = & H100000 'Константи за помощ Public Const HELP_CONTEXT = & H1' Показване на тема в ulTopic Public Const HELP_QUIT = & H2 'Прекратяване на помощ Public Const Показване на помощ при използване на помощ Public Const HELP_SETINDEX = & H5 'Задаване на текущия индекс за помощ за много индекси Публичен кон HELP_SETCONTENTS = & H5 Обществен кон HELP_CONTEXTPOPUP = & H8 Обществен кон HELP_FORCEFILE = & H9 Обществен кон HELP_KEY = & H101' Показване на тема за ключова дума в offabData Public Const HELP_COMMAND = & H102 Публична конституция HELP_PARTIALKEY = & H105 'извиква търсачката в winhelp Функция add (a $) As String Ако a $ "" Тогава a $ = a $ + "|" add = a $ End Function 'Командни редове ...' FileName = cmd_open () 'Ако 1 филтър повече >> FileName = cmd_open ("txt")' Ако няколко филтъра, инициализира филтъра от 1 до 4, добавя всички функции на функцията cmd_open (Незадължително Filt1 като String) Като String Dim CTRL $, a $, b $, F1 $, F2 $, F3 $, F4 $ CTRL $ = Chr $ (13) + Chr $ (10) Ако Filt1 "" Тогава a $ = "Файл (*." & Filt1 & ") | *." & Filt1 Край Ако Ако Filter1 "" Тогава $ = add (a $) a $ = a $ + "Файл (*." & Filter1 & ") | *." & Filter1 Filter1 = "" Край Ако Ако Filter2 "" Тогава a $ = add (a $) a $ = a $ + "Файл (*." & Filter2 & ") | *." & Filter2 Filter2 = "" Край Ако Ако Filter3 "" Тогава a $ = add (a $) a $ = a $ + "Файл (*." & Filter3 & ") | *." & Filter3 Филтър 3 = "" Край Ако Ако Filter4 "" Тогава a $ = add (a $) a $ = a $ + "Файл (*." & Filter4 & ") | *." & Filter4 Filter4 = "" Край Ако $ = add (a $) a $ = a $ + "Всички (*. *) | *. *" Dialog.CMDialog1.Filter = a $ Dialog.CMDialog1.FilterIndex = 1 Диалог .CMDialog1.FLAGS = CF_EFFECTS или OFN_HIDEREADONLY или CF_ANSIONLY Dialog.CMDialog1.Action = DLG_FILE_OPEN cmd_open = Dialog.CMDialog1.FileName Изтриване на диалоговия прозорец Край Функционална функция cmd_Policy () Dialog.CMDialog1.DialogTitle = "Изберете политика" Dialog.CMDialog1.FLAGS = CF_WYSIWYG + CF_BOTH + CF_SCALABLEONLY Dialog.CMDialog1.Action = DLG_FONT Filter1 = Диалог.CMDialog1.FontName Filter4 = Dialog.CMDialog1.FontSize Filter5 = Dialog.CMDialog1.FontBold Filter6 = Dialog.CMDialog1.FontItalic cmd_Policy = Dialog.CMDialog1.FontName Край Функция Функция cmd_Print ( Dialog.CMDialog1.Min = 1 Dialog.CMDialog1.Max = 100 Dialog.CMDialog1.FromPage = 1 Dialog.CMDialog1.ToPage = 100 Диалог.CMDialog1.Action = DLG_Print Изтриване на диалоговия прозорец Функция 'Filt1 = разширението на файла, което трябва да се търси, например "TXT ou EXE" добавя целия филтър (*. *) Функция cmd_SaveAs (Filt1 As String) Като String Filter1 = "Файл (*." & Filt1 & ") | *. "& Filt1 Filter2 =" Всички (*. *) | *. * "Dialog.CMDialog1.Filter = Filter1 +" | "+ Filter2 Dialog.CMDialog1.FilterIndex = 1 Dialog.CMDialog1.FLAGS = OFN_HIDEREADONLY Dialog.CMDialog1.