VB6 / VBA - CommonDialog vadība
Visual Basic Application vai VBA nodrošina elastīgu vidi, lai izveidotu pielāgotus rīkus, lai apmierinātu ikdienas vajadzības. VBA ne tikai nodrošina iespēju veikt milzīgu aprēķinu skaitu ar minimālu cilvēku piepūli, bet arī nodrošina veidu, kā iekļaut lietotāja ievadi noteiktos koda izpildes posmos. Viens no veidiem, kā iekļaut lietotāja ievadi, ir CommonDialog Control izmantošana. CommonDialog Control ļauj lietotājiem dot konkrētus ievadus un izpildīt kodus, kas ir atkarīgi no šīm ieejām. 
Šeit ir visu pieejamo konstantu saraksts, lai gan tās netiek izmantotas visās funkcijās.
Pieejamās funkcijas ar CommonDialog
- Dialoglodziņš> Atvērt failu
- Dialoglodziņš> Saglabāt kā
- Dialoglodziņš> Drukāt
- Dialoglodziņš> Politikas izvēle
Darba sākšana
Veidlapa> Vārds = Dialogs
CommonDialog vadība> Vārds = CMDialog1
Button1> Caption = atvērt failu
Kods komandā CommandX_Click ()> Ret = cmd_Open
Button2> Caption = Saglabāt kā
Kods programmā Clic Ret = cmd_Open ()
Poga3> Paraksts = Drukāt
Kods komandā CommandX_Click ()> Ret = cmd_Print ()
Poga4> Paraksts = politika
Kods komandā CommandX_Click ()> Ret = cmd_Policy ()
Standarta moduļa piemērs
Iespēja Skaidrs Publiskais filtrs1 Kā String Publiskais filtrs2 Kā String Publiskais filtrs 3 Kā String Publiskais filtrs 4 Kā String Publiskais filtrs 5 Kā String Publiskais Filtrs Kā String Publiskais filtrs 7 Kā String Publiska Konstitūcija DLG_FILE_OPEN = 1 Publisks Const DLG_FILE_SAVE = 2 Publisks Const DLG_FILE_SAVE = 2 Publisks Konst. Const DLG_FONT = 4 Public Const DLG_Print = 5 Publisks Const DLG_HELP = 6 'Faila atvēršana / saglabāšana Dialogs Karogi Publisks ConN OFN_READONLY = & H1 & Publisks ConNN OFN_HIDEREADONLY = & H2 un H100 & Public Zvaigzn OFN_ALLOWMULTISELECT = & H200 & Public Zvaigzn OFN_EXTENSIONDIFFERENT = & H400 & Public Zvaigzn OFN_PATHMUSTEXIST = & H800 & Public Zvaigzn OFN_FILEMUSTEXIST = & H1000 & Public Zvaigzn OFN_CREATEPROMPT = & H2000 & Public Zvaigzn OFN_SHAREAWARE = & H4000 & Public Zvaigzn OFN_NOREADONLYRETURN = & H8000 un "Color Dialog Karogi Public Zvaigzn CC_RGBINIT = & H1 & Public Zvaigzn CC_FULLOPEN = & H2 & Publiska konference CC_PR EVENTFULLOPEN = & H4 & Public Const CC_SHOWHELP = & H8 & 'Fonti Dialogs Karogi Publiska Const CF_SCREENFONTS = & H1 un publiska konf. = & H200 & Public Zvaigzn CF_ANSIONLY = & H400 & Public Zvaigzn CF_NOVECTORFONTS = & H800 & Public Zvaigzn CF_NOSIMULATIONS = & H1000 & Public Zvaigzn CF_LIMITSIZE = & H2000 & Public Zvaigzn CF_FIXEDPITCHONLY = & H4000 & Public Zvaigzn CF_WYSIWYG = & H8000 & 'jābūt arī CF_SCREENFONTS & CF_PRINTERFONTS Public Zvaigzn CF_FORCEFONTEXIST = & H10000 Public const CF_SCALABLEONLY = & H20000 Publisks Const CF_TTONLY = & H40000 Public Const CF_NOFACESEL = & H80000 Public Const CF_NOSTYLESEL = & H100000 Publiskais Const CF_NOSIZESEL = & H200000 Printera logs atzīmē publisko Const PD_ALLPAGES = & H0 un publisko Const PD_SELECTION = & H1 un publisko Const PD_PAGENUMS = & H2 & Public Const PD_NOSELECTION = & H4 & Public ic Const 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 Public Const PD_DISABLEPRINTTOFILE = & H80000 Public Const PD_HIDEPRINTTOFILE = & H100000 'Palīdzība Constants Public Const HELP_CONTEXT = & H1' Displeja tēma ulTopic Public Const HELP_QUIT = & H2 'Izbeigt palīdzību Public Const HELP_INDEX = & H3' Attēlu rādītājs Public Const HELP_CONTENTS = & H3 Publiskā konta HELP_HELPONHELP = & H4 ' Rādīt palīdzību, izmantojot palīdzību Public Const HELP_SETINDEX = & H5 'Iestatīt pašreizējo indeksu vairāku indeksu palīdzībai Public Const HELP_SETCONTENTS = & H5 Publiskā konta HELP_CONTEXTPOPUP = & H8 Publiskā konta HELP_KEY = & H9 Publicēt atslēgvārdu tēmu offabData Public Const & H102 Public Const HELP_PARTIALKEY = & H105 'zvaniet uz meklētājprogrammu winhelp Funkcijas pievienošana ($) kā virkne Ja $ "" tad $ = a + + | add = a $ End Function 'Komandrindas ...' FileName = cmd_open () 'Ja 1 filtrs ir vairāk >> FileName = cmd_open ("txt")' Ja vairāki filtri, inicializē filtru1 līdz 4 ', pievieno visu filtru Funkcija cmd_open (Pēc izvēles Filt1 kā virkne) Kā virkne Dim CTRL $, $, b $, F1 $, F2 $, F3 $, F4 $ CTRL $ = Chr $ (13) + Chr $ (10) Ja Filt1 "" Tad $ = "Fails (*." & Filt1 & ") | *." & Filt1 Be Ja Ja filtrs1 "" Tad $ = pievienot (a $) a $ = $ + "File (*." & Filter1 & ") | *." & Filter1 Filter1 = "" Beigt, ja Filtrs2 "" Tad $ = pievienot (a $) a $ = $ + "Fails (*." & Filter2 & ") | *." & Filter2 Filter2 = "" Beigt, ja filtrē3 "" Tad $ = pievienot (a $) a $ = $ + "failu (*." & Filter3 & ") | *." & Filter3 filtrs 3 = "" Beigt, ja filtrs4 "" Tad $ = pievienot (a $) a $ = $ + "failu (*." & Filter4 & ") | *." & Filter4 Filter4 = "" Beigas Ja $ = pievieno (a $) a = = $ + "Visi (*. *) | *. *" Dialog.CMDialog1.Filter = a $ Dialog.CMDialog1.FilterIndex = 1 Dialogs .CMDialog1.FLAGS = CF_EFFECTS vai OFN_HIDEREADONLY vai CF_ANSIONLY Dialog.CMDialog1.Action = DLG_FILE_OPEN cmd_open = Dialog.CMDialog1.FileName Unload Dialog End Funkcija Funkcija cmd_Policy () Dialog.CMDialog1.DialogTitle = "Izvēlēties politiku" Dialog.CMDialog1.FLAGS = CF_WYSIWYG + CF_BOTH + CF_SCALABLEONLY Dialog. 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 izņemšanas dialoga beigu funkcija 'Filt1 = meklējamā faila paplašinājums, piemēram, “TXT ou EXE” rutīnas pievieno visu filtru (*. *) Funkcija cmd_SaveAs (Filt1 kā virkne) Kā virkne Filter1 = "Fails (*." & Filt1 & ") | *. "& Filt1 Filter2 =" Visi (*. *) | *. * "Dialog.CMDialog1.Filter = Filter1 +" | "+ Filter2 Dialog.CMDialog1.FilterIndex = 1 Dialog.CMDialog1.FLAGS = OFN_HIDEREADONLY Dialog.CMDialog1.Action = DLG_FILE_SAVE cmd_SaveAs = Dialoga beigu funkcija