VB6 / VBA - Kawalan CommonDialog
Aplikasi Asas Visual atau VBA menyediakan persekitaran fleksibel untuk membuat alat khusus untuk memenuhi keperluan hari ke hari. Bukan sahaja VBA menyediakan satu cara untuk melakukan pengiraan yang besar dengan usaha manusia yang minimum tetapi ia juga menyediakan cara untuk memasukkan input pengguna dalam beberapa tahap pelaksanaan kod tersebut. Salah satu cara untuk memasukkan input pengguna adalah menggunakan Kawalan CommonDialog. Kawalan CommonDialog membolehkan pengguna memberikan input tertentu dan melaksanakan kod bersyarat dengan input tersebut. 
Berikut adalah senarai semua pemalar yang ada, walaupun ia tidak digunakan dalam semua fungsi.
Fungsi yang tersedia dengan CommonDialog
- Peti dialog> Buka Fail
- Peti dialog> Simpan sebagai
- Peti dialog> Cetak
- Kotak dialog> Memilih dasar
Bermula
Satu bentuk> Nama = Dialog
Kawalan CommonDialog> Nama = CMDialog1
Button1> Caption = cOpen File
Kod dalam CommandX_Click ()> Ret = cmd_Open
Button2> Caption = Simpan sebagai
Kod dalam Clic Ret = cmd_Open ()
Button3> Caption = Print
Kod dalam CommandX_Click ()> Ret = cmd_Print ()
Button4> Caption = Policy
Kod dalam CommandX_Click ()> Ret = cmd_Policy ()
Contoh modul standard
Pilihan Eksklusif Penapis Awam1 Sebagai Penapis Umum String2 Sebagai Penyaring Umum String 3 Sebagai Penapis Umum String 4 Sebagai Penapis Umum String 5 Sebagai String Public Filter Sebagai String Public Filter 7 Sebagai String Public String DLG_FILE_OPEN = 1 Const Umum DLG_FILE_SAVE = 2 Const Umum DLG_COLOR = 3 Public Const DLG_FONT = 4 Umum Const DLG_Print = 5 Const Umum DLG_HELP = 6 'Fail Terbuka / Jimat Dialog Umum Const Constance OFN_READONLY = & H1 & Const Const OFN_OVERWRITEPROMPT = & H2 & Const Const OFN_HIDEREADONLY = & H4 & Const Const OFN_NOCHANGEDIR = & H8 & Const Const OFN_SHOWHELP = & H10 & & 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 & 'Warna Dialog Flags Const Awam CC_RGBINIT = & H1 & Public Const CC_FULLOPEN = & H2 & Const Const CC_PR EVENTFULLOPEN = & H4 & Const Const CC_SHOWHELP = & H8 & 'Font Dialog Umum Const Const CF_SCREENFONTS = & H1 & Const Const CF_PRINTERFONTS = & H2 & Const Const CF_BOTH = & H3 & Const Const CF_SHOWHELP = & H4 & Const Const CF_INITTOLOGFONTSTRUCT = & H40 & = & 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 & 'juga mesti mempunyai CF_SCREENFONTS & CF_PRINTERFONTS Const Awam CF_FORCEFONTEXIST = & H10000 Const Awam CF_SCALABLEONLY = & H20000 Awam Const CF_TTONLY = & H40000 Public Const CF_NOFACESEL = & H80000 Public Const CF_NOSTYLESEL = & H100000 Public Const CF_NOSIZESEL = & H200000 'Bendera Dialog Pencetak Umum Const PD_ALLPAGES = & H0 & Constod Umum PD_SELECTION = & H1 & Const Aw PD_PAGENUMS = & H2 & Const Const PD_NOSELECTION = & H4 & ic Const PD_NOPAGENUMS = & H8 & Const Const PD_COLLATE = & H10 & Const Const PD_PRINTTOFILE = & H20 & Const Aw PD_PRINTSETUP = & H40 & Const Const PD_NOWARNING = & H80 & Const Const PD_RETURNDC = & H100 & Const Const PD_RETURNIC = & H200 & Public Const PD_DISABLEPRINTTOFILE = & H80000 Public Const PD_HIDEPRINTTOFILE = & H100000 'Help Constants Public Const HELP_CONTEXT = & H1' Topik utama dalam ulTopic Public Const HELP_QUIT = & H2 'Menamatkan bantuan Umum Const HELP_INDEX = & H3' Indeks indeks Umum Const HELP_CONTENTS = & H3 Public Const HELP_HELPONHELP = Paparkan bantuan untuk menggunakan bantuan Umum Const HELP_SETINDEX = & H5 'Tetapkan Indeks semasa untuk bantuan indeks berbilang Public Const HELP_SETCONTENTS = & H5 Const Umum HELP_CONTEXTPOPUP = & H8 Umum Const HELP_FORCEFILE = & H9 Public Const HELP_KEY = & H101' Tajuk utama untuk kata kunci dalam offabData Public Const HELP_COMMAND = & H102 Public Const HELP_PARTIALKEY = & H105 'memanggil mesin carian dalam winhelp Fungsi menambah (a $) Sebagai String Jika $ "" Kemudian $ = a $ + "|" Add = a $ End Function 'Command lines ...' FileName = cmd_open () 'Jika 1 penapis lebih >> FileName = cmd_open ("txt")' Jika beberapa penapis, memulakan penapis1 hingga rutin 4 'menambah semua penapis Fungsi cmd_open (Pilihan Filt1 Sebagai String) Sebagai String Dim CTRL $, a $, b $, F1 $, F2 $, F3 $, F4 $ CTRL $ = Chr $ (13) + Chr $ (10) Jika Filt1 " = "Fail (*." & Filt1 & ") | *." & Filt1 End Jika Jika Filter1 "" Lalu $ = add (a $) a $ = a $ + "File (*." & Filter1 & ") | *." & Penapis1 Penapis1 = "" Akhir Jika Jika Penapis2 "" Kemudian $ = tambah (a $) a $ = a $ + "Fail (*." & Penapis2 & ") | *." & Filter2 Filter2 = "" Akhir Jika Jika Filter3 "" Lalu $ = tambah (a $) a $ = a $ + "Fail (*." & Filter3 & ") | *." & Filter3 Filter 3 = "" Akhir Jika Jika Filter4 "" Kemudian $ = tambah (a $) a $ = a $ + "Fail (*." & Filter4 & ") | *." & Filter4 Filter4 = "" Akhir Jika $ = tambah (a $) a $ = a $ + "Semua (*. *) | *. *" Dialog.CMDialog1.Filter = a $ Dialog.CMDialog1.FilterIndex = 1 Dialog .CMDialog1.FLAGS = CF_EFFECTS Atau OFN_HIDEREADONLY Atau CF_ANSIONLY Dialog.CMDialog1.Action = DLG_FILE_OPEN cmd_open = Dialog.CMDialog1.FileName Memunggah Dialog Fungsi Akhir Fungsi cmd_Policy () Dialog.CMDialog1.DialogTitle = "Pilih dasar" 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 Fungsi Fungsi Akhir 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 Memunggah Fungsi Akhir Dialog 'Filt1 = sambungan fail yang akan dicari untuk 'misalnya: rutin TXT ou EXE' menambah semua penapis (*. *) Fungsi cmd_SaveAs (Filt1 As String) Sebagai Filter String1 = "File (*." & Filt1 & ") | *. "& Filt1 Filter2 =" Semua (*. *) | *. * "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 Unload Dialog End Function