VB6 / VBA - nadzor skupnega dialoga

Aplikacija Visual Basic ali VBA ponuja prilagodljivo okolje za ustvarjanje orodij po meri, ki ustrezajo vsakodnevnim potrebam. Ne samo, da VBA zagotavlja način za ogromno količino izračunov z minimalnim človeškim naporom, temveč zagotavlja tudi načine za vključitev uporabniškega vnosa v določene stopnje izvajanja kode. Eden od takih načinov vključevanja uporabniškega vnosa je uporaba CommonDialog Control. Nadzor CommonDialog omogoča uporabnikom, da dajo določene vnose in izvedejo kode, ki so odvisni od teh vhodov.

Različne funkcije nadzora CommonDialog

Tukaj je seznam vseh razpoložljivih konstant, čeprav se ne uporabljajo v vseh funkcijah.

Razpoložljive funkcije s CommonDialog

  • Pogovorno okno> Odpri datoteko
  • Pogovorno okno> Shrani kot
  • Pogovorno okno> Natisni
  • Pogovorno okno> Izbira pravilnika

Prvi koraki

Obrazec> Ime = pogovorno okno

Nadzor skupnega pogovornega okna> Ime = CMDialog1

Button1> Caption = cOpen File

Koda v CommandX_Click ()> Ret = cmd_Open

Button2> Caption = Shrani kot

Koda v Clic Ret = cmd_Open ()

Button3> Caption = Natisni

Koda v CommandX_Click ()> Ret = cmd_Print ()

Button4> Caption = Pravilnik

Koda v CommandX_Click ()> Ret = cmd_Policy ()

Primer standardnega modula

 Možnost Izrecno Javni filter1 Kot niz Javni filter2 Kot niz Javni filter 3 Kot niz Javni filter 4 Kot niz Javni filter 5 Kot niz Javni filter kot niz Javni filter 7 Kot niz Javna ustroj DLG_FILE_OPEN = 1 Javna ustroj DLG_FILE_SAVE = 2 Javna ust. Const DLG_FONT = 4 Javna ustroja DLG_Print = 5 Javna ustroja DLG_HELP = 6 'Pogovorno okno za odpiranje / shranjevanje datotek Zastavice Javna univerza OFN_READONLY = & H1 & Javna konst. in H100 in javna Const OFN_ALLOWMULTISELECT = & H200 in javna Const OFN_EXTENSIONDIFFERENT = & H400 in javna Const OFN_PATHMUSTEXIST = & H800 in javna Const OFN_FILEMUSTEXIST = & H1000 in javna Const OFN_CREATEPROMPT = & H2000 in javna Const OFN_SHAREAWARE = ​​& H4000 in javna Const OFN_NOREADONLYRETURN = & H8000-barvni Okno Flags javna Const CC_RGBINIT = & H1 in javna Const CC_FULLOPEN = & H2 Javna vsebina CC_PR EVENTFULLOPEN = & H4 & Javna konstanta CC_SHOWHELP = & H8 & 'Navigacijska okna za pisave Javna ustava CF_SCREENFONTS = & H1 & javna zaprtje CF_PRINTERFONTS = & H2 & javna zaveza = & H200 & Javna konstitucija CF_ANSIONLY = & H400 & Javna konst. Const CF_TTONLY = & H40000 Javna konstitucija CF_NOFACESEL = & H80000 Javna vsebina CF_NOSTYLESEL = & H100000 Javna konst. ic Konst. Javna ustava PD_DISABLEPRINTTOFILE = & H80000 Javna konstanta PD_HIDEPRINTTOFILE = & H100000 'Konstante pomoči Javna konstanta HELP_CONTEXT = & H1' Prikaz teme v ulTopic Javna konstanta HELP_QUIT = & H2 'Končaj pomoč Javna konstanta HELP_INDEX = & H3' Prikaz indeksa Javna konstitutivnost HELP_CONTENTS = & H3 Javna konstanta Prikaži pomoč pri uporabi pomoči Public Const HELP_SETINDEX = & H5 'Nastavite trenutni indeks za pomoč za več kazalnikov Javna konstanta HELP_SETCONTENTS = & H5 Javna vsebina HELP_CONTEXTPOPUP = & H8 Javna konstitutivnost HELP_FORCEFILE = & H9 Javna konstanta HELP_KEY = & H101 & H102 Javna ust HELP_PARTIALKEY = & H105 'kliče iskalnik v winhelp Funkcija add (a $) Kot String Če je $ "" Potem $ = a $ + "|" add = a $ End Funkcija 'Ukazne vrstice ...' FileName = cmd_open () 'Če je 1 filter več >> FileName = cmd_open ("txt")' Če je več filtrov, inicializiraj filter1 do 4 'rutina doda vse filtre Funkcija cmd_open (Neobvezno Filt1 kot niz) Kot niz dim. CTRL $, a $, b $, F1 $, F2 $, F3 $, F4 $ CTRL $ = Chr $ (13) + Chr $ (10) Če je Filt1 "" Potem $ = "Datoteka (*." & Filt1 & ") | *." & Filt1 Konec Če Če Filter1 "" Potem a $ = add (a $) a $ = a $ + "Datoteka (*." & Filter1 & ") | *." & Filter1 Filter1 = "" Konec Če je Filter2 "" Potem $ = add (a $) $ = a $ + "Datoteka (*." & Filter2 & ") | *." & Filter2 Filter2 = "" Konec Če je Filter3 "" Potem $ = add (a $) $ = a $ + "Datoteka (*." & Filter3 & ") | *." & Filter3 Filter 3 = "" Konec Če je Filter4 "" Potem $ = add (a $) $ = a $ + "Datoteka (*." & Filter4 & ") | *." & Filter4 Filter4 = "" Konec Če je $ = add (a $) a $ = a $ + "Vse (*. *) | *. *" Dialog.CMDialog1.Filter = $ Dialog.CMDialog1.FilterIndex = 1 Pogovorno okno .CMDialog1.FLAGS = CF_EFFECTS Or OFN_HIDEREADONLY ali CF_ANSIONLY Dialog.CMDialog1.Action = DLG_FILE_OPEN cmd_open = Dialog.CMDialog1.FileName Razrešitev Dialog Konec Funkcija Funkcija cmd_Policy () Dialog.CMDialog1.DialogTitle = "Izberite politiko" 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. ) 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 Razširitev datoteke, ki jo želite iskati, npr. "npr: TXT ou EXE", doda ves filter (*. *) Funkcija cmd_SaveAs (Filt1 kot niz) Kot niz Filter1 = "Datoteka (*." & Filt1 & ") | *. "& Filt1 Filter2 =" Vse (*. *) | *. * "Dialog.CMDialog1.Filter = Filter1 +" | "+ Filter2 Dialog.CMDialog1.FilterIndex = 1 Dialog.CMDialog1.FLAGS = OFN_HIDEREADONLY Dialog.CMDialog1.Action = DLG_FILE_SAVE 
Prejšnji Članek Naslednji Članek

Top Nasveti