VB6 / VBA - Das CommonDialog-Steuerelement
Visual Basic Application oder VBA bietet eine flexible Umgebung, um benutzerdefinierte Tools für die täglichen Anforderungen zu erstellen. VBA bietet nicht nur die Möglichkeit, eine Vielzahl von Berechnungen mit minimalem menschlichem Aufwand durchzuführen, sondern bietet auch die Möglichkeit, Benutzereingaben in bestimmten Phasen der Codeausführung einzubeziehen. Eine solche Art der Einbeziehung von Benutzereingaben ist die Verwendung von CommonDialog Control. Mit CommonDialog Control können Benutzer bestimmte Eingaben vornehmen und die von diesen Eingaben abhängigen Codes ausführen. 
Hier finden Sie eine Liste aller verfügbaren Konstanten, die jedoch nicht in allen Funktionen verwendet werden.
Die verfügbaren Funktionen mit CommonDialog
- Das Dialogfeld> Datei öffnen
- Das Dialogfeld> Speichern unter
- Das Dialogfeld> Drucken
- Das Dialogfeld> Auswählen einer Richtlinie
Fertig machen
Ein Formular> Name = Dialog
CommonDialog-Steuerelement> Name = CMDialog1
Button1> Caption = cOpen File
Code in CommandX_Click ()> Ret = cmd_Open
Button2> Caption = Speichern unter
Code in Klick Ret = cmd_Open ()
Button3> Caption = Print
Code in CommandX_Click ()> Ret = cmd_Print ()
Button4> Beschriftung = Richtlinie
Code in CommandX_Click ()> Ret = cmd_Policy ()
Ein Beispiel für ein Standardmodul
Option Explicit Public Filter1 Als String Public Filter2 Als String Public Filter 3 Als String Public Filter 4 Als String Public Filter 5 Als String Public Filter Als String Public Filter 7 Als String Public Const DLG_FILE_OPEN = 1 Public Const DLG_FILE_SAVE = 2 Public Const DLG_COLOR = 3 Public Const DLG_FONT = 4 Öffentlicher Const DLG_Print = 5 Öffentlicher Const DLG_HELP = 6 'Fahnen zum Öffnen / Speichern von Dateien Öffentlicher Const OFN_READONLY = & H1 & Öffentlicher Const OFN_OVERWRITEPROMPT = & H2 & Öffentlicher Const OFN_HIDEREADONLY = & H4 & Öffentlicher Const OFNNNNHIDERH & 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 & ‚Color Dialog Flags Public Const CC_RGBINIT = & H1 & Public Const CC_FULLOPEN = & H2 & Öffentliche Const CC_PR EVENTFULLOPEN = & H4 & Public Const CC_SHOWHELP = & H8 & 'Fonts Dialog Flags Public Const CF_SCREENFONTS = & H1 & Public Const = & H200 & Public Const CF_ANSIONLY = & H400 & Public Const CF_NOVECTORFONTS = & H800 & Public Const CF_NOSIMULATIONS = & H1000 & Public Const CF_LIMITSIZE = & H2000 & Public Const CF_FIXEDPITCHONLY = & H4000 & Public Const CF_WYSIWYG = & H8000 & ‚muss auch CF_SCREENFONTS & CF_PRINTERFONTS Public Const CF_FORCEFONTEXIST = & H10000 Public Const CF_SCALABLEONLY = & H20000 Öffentliche Const CF_TTONLY = & H40000 Öffentlicher Const CF_NOFACESEL = & H80000 Öffentlicher Const CF_NOSTYLESEL = & H100000 Öffentlicher Const CF_NOSIZESEL = & H200000 'Druckerdialogflags Öffentlicher Const PD_ALLPAGES = & H0 & Öffentlicher Const PD_SELECTION = & H1 & Öffentlicher Const PDP ic Konst PD_NOPAGENUMS = & H8 & Public Const PD_COLLATE = & H10 & Public Const PD_PRINTTOFILE = & H20 & Public Const PD_PRINTSETUP = & H40 & Public Const PD_NOWARNING = & H80 & Public Const PD_RETURNDC = & H100 & Public Const PD_RETURNIC = & H200 & Public Const PD_RETURNDEFAULT = & H400 & Public Const PD_SHOWHELP = & H800 & Public Const PD_USEDEVMODECOPIES = & H40000 Öffentlicher Const. Hilfe zur Verwendung der Hilfe anzeigen Öffentliche Konst. HELP_SETINDEX = & H5 'Den aktuellen Index für die Hilfe mit mehreren Indizes festlegen Öffentliche Konst. HELP_SETCONTENTS = & H5 Öffentliche Konst. HELP_CONTEXTPOPUP = & H8 Öffentliche Konst. HELP_FORCEFILE = & H9 Öffentliche Konst & H102 Öffentliche Konst HELP_PARTIALKEY = & H105 'ruft die Suchmaschine in winhelp auf. Funktion add (a $) As String If a $ "" Then a $ = a $ + "|" add = a $ End Function 'Befehlszeilen ...' FileName = cmd_open () 'If 1 filter more >> FileName = cmd_open ("txt")' Wenn mehrere Filter vorhanden sind, fügt die Routine "filter1 to 4 initialisieren" die gesamte Filterfunktion cmd_open hinzu (Optional Filt1 As String) As String Dim STRG $, a $, b $, F1 $, F2 $, F3 $, F4 $ STRG $ = Chr $ (13) + Chr $ (10) Wenn Filt1 "" Dann a $ = "Datei (*." & Filt1 & ") | *." & Filt1 End If If Filter1 "" Dann a $ = add (a $) a $ = a $ + "File (*." & Filter1 & ") | *." & Filter1 Filter1 = "" End If If Filter2 "" Dann a $ = add (a $) a $ = a $ + "File (*." & Filter2 & ") | *." & Filter2 Filter2 = "" End If If Filter3 "" Dann a $ = add (a $) a $ = a $ + "File (*." & Filter3 & ") | *." & Filter3 Filter 3 = "" End If If Filter4 "" Dann a $ = add (a $) a $ = a $ + "File (*." & Filter4 & ") | *." & Filter4 Filter4 = "" End If a $ = add (a $) a $ = a $ + "All (*. *) | *. *" Dialog.CMDialog1.Filter = a $ Dialog.CMDialog1.FilterIndex = 1 Dialog .CMDialog1.FLAGS = CF_EFFECTS oder OFN_HIDEREADONLY oder CF_ANSIONLY Dialog.CMDialog1.Action = DLG_FILE_OPEN CF_BOTH + CF_SCALABLEONLY Dialog.CMDialog1.Action = DLG_FONT Filter1 = Dialog.CMDialog1.FontName Filter4 = Dialog.CMDialog1.FontSize Filter5 = Dialog.CMDialog1.FontBold Filter6 = Dialog.CMDialog1.FontItalic cmd_Pol ) Dialog.CMDialog1.FLAGS = PD_ALLPAGES Dialog.CMDialog1.Min = 1 Dialog.CMDialog1.Max = 100 Dialog.CMDialog1.FromPage = 1 Dialog.CMDialog1.ToPage = 100 Dialog.CMDialog1.Action = DLG_Print Unload Dialog End Function 'Filt1 Die zu durchsuchende Dateierweiterung 'zB: TXT ou EXE' fügt den gesamten Filter hinzu (*. *) Funktion cmd_SaveAs (Filt1 As String) As String Filter1 = "Datei (*." & Filt1 & ") | *. "& Filt1 Filter2 =" Alle (*. *) | *. * "Dialog.CMDialog1.Filter = Filter1 +" | "+ Filter2 Dialog.CMDialog1.FilterIndex = 1 Dialog.CMDialog1.FLAGS = OFN_HIDEREADONLY Dialog.CMDialog1.Action = DLG_FILE_SAVE cmd_SaveAs = Dialog.CMD