VB6 / VBA - CommonDialog-kontrollen
Visual Basic Application eller VBA giver et fleksibelt miljø til at oprette brugerdefinerede værktøjer til at opfylde daglige behov. Ikke alene giver VBA en måde at lave en enorm mængde af beregninger med minimal menneskelig indsats, men det giver også måder at inkorporere brugerindgang i bestemte stadier af kørselens gennemførelse. En sådan måde at inkorporere brugerindgang på er at bruge CommonDialog Control. CommonDialog Control giver brugerne mulighed for at give specifikke input og udfører koderne betinget af disse input. 
Her er en liste over alle tilgængelige konstanter, selvom de ikke anvendes i alle funktioner.
De tilgængelige funktioner med CommonDialog
- Dialogboksen> Åbn fil
- Dialogboksen> Gem som
- Dialogboksen> Udskriv
- Dialogboksen> Valg af politik
Kom i gang
En formular> Navn = Dialog
CommonDialog kontrol> Navn = CMDialog1
Button1> Caption = cOpen File
Kode i CommandX_Click ()> Ret = cmd_Open
Button2> Caption = Gem som
Kode i Clic Ret = cmd_Open ()
Button3> Caption = Print
Kode i CommandX_Click ()> Ret = cmd_Print ()
Button4> Caption = Policy
Kode i CommandX_Click ()> Ret = cmd_Policy ()
Et eksempel på et standardmodul
Alternativ Eksplicit offentligt filter1 Som streng offentlig filter2 Som streng offentlig filter 3 Som streng offentlig filter 4 Som streng offentlig filter 5 Som streng offentlig filter som streng offentlig filter 7 Som streng offentlig konst DLG_FILE_OPEN = 1 Offentlig Const DLG_FILE_SAVE = 2 Offentlig Const DLG_COLOR = 3 Offentlig Const DLG_FONT = 4 Offentlig Const DLG_Print = 5 Offentlig Const DNG_HELP = 6 'File Open / Save Dialog Flags Offentlig Const ORN_READONLY = & H1 & Offentlig Const ORN_OVERWRITEPROMPT = & H2 & Offentligt ConstNN_ID_NRNRNH = & H4 & Offentlig Const ORN_NOCHANGEDIR = & H8 & Offentlig Const ORN_SHOWHELP = & H10 & Offentlig Const ORN_NOVALIDATE = & H100 og offentlige Const OFN_ALLOWMULTISELECT = & H200 og offentlige Const OFN_EXTENSIONDIFFERENT = & H400 og offentlige Const OFN_PATHMUSTEXIST = & H800 og offentlige Const OFN_FILEMUSTEXIST = & H1000 & Public Const OFN_CREATEPROMPT = & H2000 & Public Const OFN_SHAREAWARE = & H4000 & Public Const OFN_NOREADONLYRETURN = & H8000 & 'Color Dialog Flag Public Const CC_RGBINIT = & H1 & Public Const CC_FULLOPEN = & H2 & Offentlig Const CC_PR EVENTFULLOPEN = & H4 & Public Const CC_SHOWHELP = & H8 & 'Fonts Dialog Flags Public Const CF_SCREENFONTS = & H1 & Offentlige Const CF_PRINTERFONTS = & H2 & Offentlige Const CF_BOTH = & H3 & Offentlige Const CF_SHOWHELP = & H4 & Offentlige Const CF_INITTOLOGFONTSTRUCT = & H40 & Offentlige Const CF_USESTYLE = & H80 & Offentlige Const CF_EFFECTS = & H100 & Offentlig Const CF_APPLY = & H200 og offentlige Const CF_ANSIONLY = & H400 og offentlige Const CF_NOVECTORFONTS = & H800 og offentlige Const CF_NOSIMULATIONS = & H1000 & Public Const CF_LIMITSIZE = & H2000 & Public Const CF_FIXEDPITCHONLY = & H4000 & Public Const CF_WYSIWYG = & H8000 & 'skal også have CF_SCREENFONTS & CF_PRINTERFONTS Public Const CF_FORCEFONTEXIST = & H10000 Public Const CF_SCALABLEONLY = & H20000 Public Const CF_TTONLY = & H40000 Offentlig Const CF_NOFACESEL = & H80000 Offentlig Const CF_NOSTYLESEL = & H100000 Offentlig Const CF_NOSIZESEL = & H200000 'Printer Dialog Flags Offentlig Const PD_ALLPAGES = & H0 & Offentlig Const PD_SELECTION = & H1 & Offentlig Const PD_PAGENUMS = & H2 & Offentlig Const PD_NOSELECTION = & H4 & Publ IC Const PD_NOPAGENUMS = & H8 & Offentlig Const PD_COLLATE = & H10 & Offentlig Const PD_PRINTTOFILE = & H20 & Offentlig Const PD_PRINTSETUP = & H40 & Offentlig Konstant PD_NOWARNING = & H80 & Offentlig Const PD_RETURNDC = & H100 & Offentlig Const PD_RETURNIC = & H200 & Offentlig Const PD_RETURNDEFAULT = & H400 & Offentlig Const PD_SHOWHELP = & H800 & Offentlig Const PD_USEDEVMODECOPIES = & H40000 Public Const PD_DISABLEPRINTTOFILE = & H80000 Offentlig Const PD_HIDEPRINTTOFILE = & H100000 'Hjælp Konstanter Offentlig Const HELP_CONTEXT = & H1' Vis emne i ulTopic Public Const HELP_QUIT = & H2 'Afslut hjælp Offentlig Const HELP_INDEX = & H3' Visningsindeks Offentlig Const HELP_CONTENTS = & H3 Offentlig Const HELP_HELPONHELP = & H4 ' Vis hjælp til at bruge hjælp Offentlig konst HELP_SETINDEX = & H5 'Indstil den aktuelle indeks til multiindeks hjælp Offentlig konst HELP_SETCONTENTS = & H5 Offentlig Const HELP_CONTEXTPOPUP = & H8 Offentlig Const HELP_FORCEFILE = & H9 Offentlig Const HELP_KEY = & H101' Vis emne for søgeord i offabData Public Const HELP_COMMAND = & H102 Public Const HELP_PARTIALKEY = & H105 'kalder søgemaskinen i winhelp Funktion tilføj (a $) Som streng Hvis en $ "" Så en $ = a $ + "|" add = a $ End Function 'Kommandolinjer ...' FileName = cmd_open () 'Hvis 1 filtrer mere >> FileName = cmd_open ("txt")' Hvis flere filtre, initialiser filter1 til 4 'rutine tilføjer alt filter Funktionen cmd_open (Valgfri Filt1 Som String) Som String Dim CTRL $, $, B $, F1 $, F2 $, F3 $, F4 $ CTRL $ = Chr $ (13) + Chr $ (10) Hvis Filt1 "" Så en $ = "Fil (*." & Filt1 & ") | *." & Filt1 End Hvis Hvis Filter1 "" Så en $ = add (a $) a $ = a $ + "fil (*." & Filter1 & ") | *." & Filter1 Filter1 = "" Afslut Hvis Hvis Filter2 "" Så en $ = Tilføj (a $) en $ = En $ + "Fil (*." & Filter2 & ") | *." & Filter2 Filter2 = "" Afslut Hvis Hvis Filter3 "" Så en $ = Tilføj (a $) en $ = En $ + "Fil (*." & Filter3 & ") | *." & Filter3 Filter 3 = "" Afslut Hvis Hvis Filter4 "" Så en $ = Tilføj (a $) a $ = a $ + "Fil (*." & Filter4 & ") | *." & Filter4 Filter4 = "" Afslut Hvis en $ = tilføj (a $) a $ = a $ + "Alle (*. *) | *. *" Dialog.CMDialog1.Filter = en $ Dialog.CMDialog1.FilterIndex = 1 Dialog .CMDialog1.FLAGS = CF_EFFECTS eller OFN_HIDEREADONLY eller CF_ANSIONLY Dialog.CMDialog1.Action = DLG_FILE_OPEN cmd_open = Dialog.CMDialog1.FileName Afløs Dialog End Function Funktion cmd_Policy () Dialog.CMDialog1.DialogTitle = "Vælg politik" Dialog.CMDialog1.FLAGS = CF_WYSIWYG + 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_Policy = Dialog.CMDialog1.FontName Afslut Funktion Funktion cmd_Print ) 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 Aflæsning Dialog Afslut Funktion 'Filt1 = filtype, der skal søges efter 'fx: TXT ou EXE' rutine tilføjer alt filteret (*. *) Funktion cmd_SaveAs (Filt1 As String) Som String Filter1 = "Fil (*." & 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.CMDialog1.FileName Aflæsning Dialog End Function