VB6 / VBA - Kontrola CommonDialog

Aplikacja Visual Basic lub VBA zapewnia elastyczne środowisko do tworzenia niestandardowych narzędzi spełniających codzienne potrzeby. VBA zapewnia nie tylko sposób na wykonanie ogromnej liczby obliczeń przy minimalnym wysiłku człowieka, ale zapewnia także sposoby wprowadzania danych użytkownika w określonych etapach wykonywania kodu. Jednym z takich sposobów włączenia danych wejściowych użytkownika jest użycie Kontroli CommonDialog. CommonDialog Control pozwala użytkownikom podawać określone wejścia i wykonywać kody warunkowo względem tych wejść.

Różne funkcje kontrolki CommonDialog

Oto lista wszystkich dostępnych stałych, chociaż nie są one używane we wszystkich funkcjach.

Dostępne funkcje z CommonDialog

• Okno dialogowe> Otwórz plik
• Okno dialogowe> Zapisz jako
• Okno dialogowe> Drukuj
• Okno dialogowe> Wybór zasady

Rozpoczęcie

Formularz> Nazwa = Okno dialogowe

CommonDialog control> Name = CMDialog1

Button1> Caption = cOpen File

Kod w CommandX_Click ()> Ret = cmd_Open

Button2> Caption = Zapisz jako

Kod w Clic Ret = cmd_Open ()

Button3> Caption = Drukuj

Kod w CommandX_Click ()> Ret = cmd_Print ()

Button4> Caption = Policy

Kod w CommandX_Click ()> Ret = cmd_Policy ()

Przykład standardowego modułu

 Opcja Jawny filtr publiczny1 jako ciąg Filtr publiczny2 jako ciąg Filtr publiczny 3 jako ciąg Filtr publiczny 4 jako ciąg Filtr publiczny 5 jako ciąg Filtr publiczny jako łańcuch Filtr publiczny 7 Jako ciąg publiczny Constant DLG_FILE_OPEN = 1 Publiczna konstytucja DLG_FILE_SAVE = 2 Publiczna konstytucja DLG_COLOR = 3 Publiczna Const DLG_FONT = 4 Public Constant DLG_Print = 5 Public Constant DLG_HELP = 6 'File Open / Save Flags Public Const OFN_READONLY = & H1 & Public Const OFN_OVERWRITEPROMPT = & H2 & Public Const OFN_HIDEREADONLY = & H4 & Public Const OFN_NOCHANGEDIR = & H8 & Public Const OFN_SHOWHELP = & H10 & Public H OFN_NOVOWHELP = & H10 & Public Const OFN_NOVALH = & 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 & „Dialog Kolor Flagi Public Const CC_RGBINIT = & H1 & Public Const CC_FULLOPEN = & H2 Public Const CC_PR EVENTFULLOPEN = & H4 & Public Const CC_SHOWHELP = & H8 & 'Okno dialogowe czcionek Flaga Public Const CF_SCREENFONTS = & H1 & Public Const CF_PRINTERFONTS = & H2 & Public Const CF_BOTH = & H3 & Public Const CF_SHOWHELP = & H4 & Public Const CF_INITTOLOGFONTSTRUCT = & H40 & Public Const CF_USESTYLE = & H80 & Public Const CF_EFFECTS = & H100 & Public H CF & Public Const CF_EFFECTS = & H100 & H80 & Public Const CF_EFFECTS = & H100 & H80 & Public Const = & 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 & „musi mieć CF_SCREENFONTS & CF_PRINTERFONTS Public Const CF_FORCEFONTEXIST = & H10000 Public Const CF_SCALABLEONLY = & H20000 ogólnodostępnych Const CF_TTONLY = & H40000 Public Const CF_NOFACESEL = & H80000 Public Const CF_NOSTYLESEL = & H100000 Public Const CF_NOSIZESEL = & H200000 'Okno dialogowe drukarki Flag Public Public PD_ALLPAGES = & H0 & Public Const PD_SELECTION = & H1 & Public 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 = & H200 & Public Const PD_RETURNDEFAULT = & H400 & Public Const PD_RETURNDEFAULT = & H400 & Public Const PD_RETURNDEFAULT = & H400 & Public Const PD_RETURNDEFAULT = & H400 & Public Const PD_RETURNDEFAULT = & H400 & Public Const PD_RETURNDEFAULT = & H400 & Public Const PD_RETURNDEFAULT = & H400 Public Const PD_DISABLEPRINTTOFILE = & H80000 Public Const PD_HIDEPRINTTOFILE = & H100000 'Stałe pomocy Public Const HELP_CONTEXT = & H1' Wyświetl temat w ulTopic Public Const HELP_QUIT = & H2 'Zakończ pomoc Public Const HELP_INDEX = & H3' Wyświetl indeks Public Const HELP_CONTENTS = & H3 Public display HELP_HELPONHELP = & H4 ' Wyświetl pomoc dotyczącą korzystania z pomocy Public Const HELP_SETINDEX = & H5 'Ustaw bieżący indeks dla pomocy wielu indeksów Public Const HELP_SETCONTENTS = & H5 Public Const HELP_CONTEXTPOPUP = & H8 Public Const HELP_FORCEFILE = & H9 Public Const HELP_KEY = & H101' Wyświetl temat słów kluczowych w offabData Public Const HELP_COMMAND = & H102 Public Const HELP_PARTIALKEY = & H105 'wywołuje wyszukiwarkę w winhelp Funkcja add (a $) As String Jeśli $ "" Następnie $ = a $ + "|" add = a $ End Function 'Wiersze poleceń ...' FileName = cmd_open () 'Jeśli 1 filtruje więcej >> FileName = cmd_open ("txt")' Jeśli wiele filtrów, zainicjuj filtr1 do procedury 4 'dodaje cały filtr Funkcja cmd_open (Opcjonalnie Filt1 As String) As String Dim CTRL $, a $, b $, F1 $, F2 $, F3 $, F4 $ CTRL $ = Chr $ (13) + Chr $ (10) Jeśli Filt1 ”„ A więc $ = "Plik (*." I Filt1 & ") | *." & Filt1 End If If Filter1 "" Następnie $ = dodaj (a $) a $ = a $ + "Plik (*." I Filtr1 & ") | *." & Filtr1 Filtr1 = "" Koniec jeśli jeśli filtr2 "" Wtedy $ = dodaj (a $) a $ = a $ + "plik (*." I filtr2 & ") | *." & Filter2 Filter2 = "" Koniec jeśli jeśli filtr3 "" Wtedy $ = dodaj (a $) a $ = a $ + "plik (*." I filtr3 & ") | *." & Filter3 Filter 3 = "" End If If Filter4 "" Następnie $ = dodaj (a $) a $ = a $ + "File (*." & Filter4 & ") | *." & Filter4 Filter4 = "" Koniec Jeśli $ = dodaj (a $) a $ = a $ + "Wszystkie (*. *) | *. *" Dialog.CMDialog1.Filter = a $ Dialog.CMDialog1.FilterIndex = 1 Okno dialogowe .CMDialog1.FLAGS = CF_EFFECTS Lub OFN_HIDEREADONLY Lub CF_ANSIONLY Dialog.CMDialog1.Action = DLG_FILE_OPEN cmd_open = Dialog.CMDialog1.Nazwa_pliku Wyładuj okno dialogowe Funkcja Funkcja cmd_Policy () Dialog.CMDialog1.DialogTitle = "Wybierz politykę" Dialog.CMDialog1.FLAGS = "Wybierz politykę" Dialog.CMDialog1.FLAGS = CF_WYSIWYG + CF_BOTH + CF_SCALABLEONLY Dialog.CMDialog1.Action = DLG_FONT Filtr1 = Dialog.CMDialog1.FontName Filter4 = Dialog.CMDialog1.FontSize Filter5 = Dialog.CMDialog1.FontBold Filter6 = Dialog.CMDialog1.FontItalic cmd_Policy = Dialog.CMDialog1.FontNtalic End Funkcja Funkcja 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 Dialog End Function 'Filt1 = rozszerzenie pliku do wyszukania dla procedury „np .: TXT ou EXE” dodaje cały filtr (*. *) Funkcja cmd_SaveAs (Filt1 As String) As String Filter1 = "Plik (*." & Filt1 & ") | *. "& Filt1 Filter2 =" Wszystkie (*. *) | *. * "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 Funkcja