VB6 / VBA - CommonDialog-ohjaus

Visual Basic -sovellus tai VBA tarjoaa joustavan ympäristön, jonka avulla voit luoda mukautettuja työkaluja päivittäisiin tarpeisiin. VBA ei myöskään anna tapaa tehdä suuria määriä laskelmia vähäisin inhimillisin keinoin, mutta se tarjoaa myös tapoja sisällyttää käyttäjän syöttö koodin tietyissä vaiheissa. Yksi tapa sisällyttää käyttäjän syöttö on käyttää CommonDialog Controlia. CommonDialog Control antaa käyttäjille mahdollisuuden antaa tiettyjä tuloja ja suorittaa koodit ehdollisesti kyseisiin tuloihin.

CommonDialog-ohjauksen eri toiminnot

Tässä on luettelo kaikista käytettävissä olevista vakioista, vaikka niitä ei käytetä kaikissa toiminnoissa.

Käytettävissä olevat CommonDialog-toiminnot

Valintaikkuna> Avaa tiedosto
Valintaikkuna> Tallenna nimellä
Valintaikkuna> Tulosta
Valintaikkuna> Politiikan valinta

Päästä alkuun

Lomake> Name = Dialog

CommonDialog-ohjaus> Nimi = CMDialog1

Button1> Kuvateksti = avaa tiedosto

Koodi CommandX_Click ()> Ret = cmd_Open

Button2> Kuvateksti = Tallenna nimellä

Koodi Clic Ret = cmd_Open ()

Button3> Kuvateksti = Tulosta

Koodi CommandX_Click ()> Ret = cmd_Print ()

Button4> Kuvateksti = käytäntö

Koodi CommandX_Click ()> Ret = cmd_Policy ()

Esimerkki standardimoduulista

 Vaihtoehto Selkeä julkinen suodatin1 merkkijonona Julkinen suodatin2 String-julkisena suodattimena 3 String-julkisena suodattimena 4 String-julkisena suodattimena 5 String-julkisena suodattimena String-julkisena suodattimena 7 Stringinä Julkinen Const DLG_FILE_OPEN = 1 Julkinen Const DLG_FILE_SAVE = 2 Julkinen Const DLG_FILE_SAVE = 2 Julkinen Const DLG_FILE_SAVE = 2 Julkinen Const Const DLG_FONT = 4 Julkinen Const DLG_Print = 5 Julkinen Const DLG_HELP = 6 'Tiedosto Avaa / Tallenna Dialog Liput Julkinen ConN OFN_READONLY = & H1 & Julkinen Const OFN_OVERWRITEPROMPT = & H2 & Julkinen Const OFN_HIDEREADONLY = & H4 & Julkinen Const OFN_NOCHANGEDIR = & H8 & Julkinen Const OFN_SHOWHELP = & H10 & Julkinen Const OFN_NOVALIDATE = & H100 ja julkiset Const OFN_ALLOWMULTISELECT = & H200 ja julkiset Const OFN_EXTENSIONDIFFERENT = & H400 ja julkiset Const OFN_PATHMUSTEXIST = & H800 ja julkiset Const OFN_FILEMUSTEXIST = & H1000 ja julkiset Const OFN_CREATEPROMPT = & H2000 ja julkiset Const OFN_SHAREAWARE = & H4000 ja julkiset Const OFN_NOREADONLYRETURN = & H8000 & 'Värinvalintaikkunaa Flags Julkinen Const CC_RGBINIT = & H1 ja julkiset Const CC_FULLOPEN = & H2 & Julkinen Const CC_PR EVENTFULLOPEN = & H4 & Julkinen Const CC_SHOWHELP = & H8 & '-fontit Dialog Liput Julkinen Const CF_SCREENFONTS = & H1 & Julkinen Const CF_PRINTERFONTS = & H2 & Julkinen Const CF_BOTH = & H3 & Julkinen Const CF_INITTOLOGFONTSTRUCT = & H40 & Julkinen Const CF_USESTYLE = & H80 & Julkinen Const CF_EFFECTS = & H100 & Julkinen Const CF_EFFECTS = & H100 & Julk. = & H200 ja julkiset Const CF_ANSIONLY = & H400 ja julkiset Const CF_NOVECTORFONTS = & H800 ja julkiset Const CF_NOSIMULATIONS = & H1000 ja julkiset Const CF_LIMITSIZE = & H2000 ja julkiset Const CF_FIXEDPITCHONLY = & H4000 ja julkiset Const CF_WYSIWYG = & H8000 & 'on myös oltava CF_SCREENFONTS & CF_PRINTERFONTS julkiset Const CF_FORCEFONTEXIST = & H10000 julkiset Const CF_SCALABLEONLY = & H20000 julkiset Const CF_TTONLY = & H40000 Julkinen Const CF_NOFACESEL = & H80000 Julkinen Const CF_NOSTYLESEL = & H100000 Julkinen Const CF_NOSIZESEL = & H200000 Tulostinvalintaruutu Julkinen Const PD_ALLPAGES = & H0 & Julkinen Const PD_SELECTION = & H1 & Julkinen Const PD_PAGENUMS = & H2 & Julkinen Const PD_NOSELECTION = & H4 & Public ic Const PD_NOPAGENUMS = & H8 ja julkiset Const PD_COLLATE = & H10 ja julkiset Const PD_PRINTTOFILE = & H20 ja julkiset Const PD_PRINTSETUP = & H40 ja julkiset Const PD_NOWARNING = & H80 ja julkiset Const PD_RETURNDC = & H100 ja julkiset Const PD_RETURNIC = & H200 ja julkiset Const PD_RETURNDEFAULT = & H400 ja julkiset Const PD_SHOWHELP = & H800 ja julkiset Const PD_USEDEVMODECOPIES = & H40000 Julkinen Const PD_DISABLEPRINTTOFILE = & H80000 Public Const PD_HIDEPRINTTOFILE = & H100000 'Ohje Constants Public Const HELP_CONTEXT = & H1' Näytä aihe ulTopic Public Constissa HELP_QUIT = & H2 'Lopeta ohje Public Const HELP_INDEX = & H3' Näyttöindeksi Julkinen Const HELP_CONTENTS = & H3 Julkinen Const HELP_HELPONHELP = & H4 ' Näytä ohjeet avun käyttämisessä Public Const HELP_SETINDEX = & H5 'Nykyisen indeksin määrittäminen monihakemistoa varten Public Const HELP_SETCONTENTS = & H5 Julkinen Const HELP_CONTEXTPOPUP = & H8 Julkinen Const HELP_KEY = & H101' Avainsanan aihe aiheessa offabData Public Const HELP_COMMAND = & H102 Julkinen Const HELP_PARTIALKEY = & H105 'soita hakukoneeseen winhelp-toiminnossa Toiminnon lisääminen (a $) merkkijonoina Jos $ "" Sitten $ = a $ + "|" add = a $ End Function 'Komentorivit ...' FileName = cmd_open () 'Jos 1 suodatin lisää >> FileName = cmd_open ("txt")' Jos useita suodattimia, alustaa suodatin1 - 4 'rutiini lisää kaikki suodattimet Toiminto cmd_open (Valinnainen Filt1 merkkijonoina) Merkkijono Dim CTRL $, $, b $, F1 $, F2 $, F3 $, F4 $ CTRL $ = Chr $ (13) + Chr $ (10) Jos Filt1 "" Sitten $ = "Tiedosto (*." & Filt1 & ") | *." & Filt1 End Jos jos suodatin1 "" Sitten $ = add (a $) a $ = $ + "File (*." & Filter1 & ") | *." & Filter1 Filter1 = "" Lopeta, jos suodatin2 "" Sitten $ = lisää (a $) a = = $ + "tiedosto (*." & Filter2 & ") | *." & Filter2 Filter2 = "" Lopeta, jos suodatin3 "" Sitten $ = add (a $) a $ = $ + "tiedosto (*." & Filter3 & ") | *." & Filter3 Suodatin 3 = "" Lopeta, jos suodatin4 "" Sitten $ = add (a $) a $ = $ + "tiedosto (*." & Filter4 & ") | *." & Filter4 Filter4 = "" Loppu Jos $ = lisää (a $) a = = $ + "Kaikki (*. *) | *. *" Dialog.CMDialog1.Filter = a $ Dialog.CMDialog1.FilterIndex = 1 Dialog .CMDialog1.FLAGS = CF_EFFECTS tai OFN_HIDEREADONLY tai CF_ANSIONLY Dialog.CMDialog1.Action = DLG_FILE_OPEN cmd_open = Dialog.CMDialog1.FileName Unload Dialog End Toiminto Toiminto cmd_Policy () Dialog.CMDialog1.DialogTitle = "Valitse käytäntö" Dialog.CMDialog1.FLAGS = CF_WYSIWYG + CF_BOTH + CF_SCALABLEONLY Dialog.CMDialog1.Action = DLG_FONT Filter1 = Dialog.CMDialog1.FontName Filter4 = Dialog.CMDialog1.FontBold Filter6 = Dialog.CMDialog1.FontBold Filter6 = Dialog.CMDialog1.FontItalic cmd_Policy = Dialog.CMDialog1.FontName Lopputoiminto Toiminto 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 Unload -valintaikkunan funktio 'Filt1 = haettava tiedostotunniste "esim. TXT ou EXE" -rutiini lisää kaikki suodattimet (*. *) Toiminto cmd_SaveAs (Filt1 merkkijonona) String Filter1 = "Tiedosto (*." & Filt1 & ") | *. "& Filt1 Filter2 =" Kaikki (*. *) | * *.