VB6 / VBA - राष्ट्रमंडल नियंत्रण

विजुअल बेसिक एप्लिकेशन या VBA दिन-प्रतिदिन की जरूरतों को पूरा करने के लिए कस्टम टूल बनाने के लिए एक लचीला वातावरण प्रदान करता है। न केवल वीबीए न्यूनतम मानव प्रयास के साथ बड़ी मात्रा में गणना करने का एक तरीका प्रदान करता है, बल्कि यह कोड के निष्पादन के कुछ चरणों में उपयोगकर्ता इनपुट को शामिल करने के तरीके भी प्रदान करता है। उपयोगकर्ता इनपुट को शामिल करने का एक तरीका कॉमनडियल कंट्रोल का उपयोग करना है। CommonDialog Control उपयोगकर्ताओं को विशिष्ट इनपुट देने की अनुमति देता है और उन इनपुटों को कोड सशर्त निष्पादित करता है।

राष्ट्रमंडल नियंत्रण के विभिन्न कार्य

यहां सभी उपलब्ध स्थिरांक की एक सूची दी गई है, हालांकि वे सभी कार्यों में उपयोग नहीं किए जाते हैं।

राष्ट्रमंडल के साथ उपलब्ध कार्य

• संवाद बॉक्स> फ़ाइल खोलें
• संवाद बॉक्स> इस रूप में सहेजें
• संवाद बॉक्स> प्रिंट करें
• संवाद बॉक्स> एक नीति का चयन

शुरू करना

एक रूप> नाम = संवाद

CommonDialog control> Name = CMDialog1

Button1> कैप्शन = cOpen फ़ाइल

CodeX_Click ()> Ret = cmd_Open में कोड

Button2> कैप्शन = इस रूप में सहेजें

कोड में कोड रिट = cmd_Open ()

Button3> कैप्शन = प्रिंट

CommandX_Click ()> Ret = cmd_Print () में कोड

Button4> कैप्शन = पॉलिसी

CommandX_Click ()> Ret = cmd_Policy () में कोड

एक मानक मॉड्यूल का एक उदाहरण

 विकल्प स्पष्ट सार्वजनिक फ़िल्टर 1 स्ट्रिंग पब्लिक फ़िल्टर के रूप में स्ट्रिंग सार्वजनिक फ़िल्टर 3 के रूप में स्ट्रिंग सार्वजनिक फ़िल्टर 4 के रूप में स्ट्रिंग सार्वजनिक फ़िल्टर 5 स्ट्रिंग सार्वजनिक फ़िल्टर के रूप में स्ट्रिंग सार्वजनिक फ़िल्टर 7 के रूप में स्ट्रिंग सार्वजनिक कॉन्स्टेंट DLG_FILE_OPEN = 1 सार्वजनिक सार्वजनिक DLG_FILE = 2 सार्वजनिक कॉन्स्ट DLG_COLOR = 3 सार्वजनिक स्ट्रिंग Const DLG_FONT = 4 सार्वजनिक कॉन्स्ट DLG_Print = 5 पब्लिक कॉन्स्ट DLG_HELP = 6 'फाइल ओपन / सेव डायलॉग फ्लैग पब्लिक कॉन्स्ट ऑफ़ OFN_READONLY = & H1 & पब्लिक कॉन्स्ट ऑफ़ OFN_VERWRITEPROMPT = & H2 & Public Const OF OFN_HIDADONLY = "H4" और H100 व लोक कॉन्स्ट OFN_ALLOWMULTISELECT = & H200 व लोक कॉन्स्ट OFN_EXTENSIONDIFFERENT = & H400 व लोक कॉन्स्ट OFN_PATHMUSTEXIST = & H800 व लोक कॉन्स्ट OFN_FILEMUSTEXIST = & H1000 व लोक कॉन्स्ट OFN_CREATEPROMPT = & H2000 व लोक कॉन्स्ट OFN_SHAREAWARE = ​​& H4000 व लोक कॉन्स्ट OFN_NOREADONLYRETURN = & H8000 और 'रंग संवाद झंडे लोक कॉन्स्ट CC_RGBINIT = & एच 1 व लोक कॉन्स्ट CC_FULLOPEN = & एच 2 और जनता कांस्ट CC_PR EVENTFULLOPEN = & H4 & पब्लिक कॉन्स्टेंस CC_SHOWHELP = & H8 & 'फ़ोटोज़ डायलॉग फ़्लैग्स पब्लिक कास्ट CF_SCREENFONTS = & H1 & पब्लिक कॉन्स्टेंट CF_PRINTERFONTS = "और H2 & पब्लिक कास्ट CF_BOTH = & H3 & पब्लिक कॉन्स्टेबल CF_SHOWHELP =" H4 & पब्लिक कॉन्स्टीट्यूशन CF_SCOWHELP = " = & H200 & पब्लिक कॉन्स्टेंट CF_ANSIONLY = & H400 & पब्लिक कॉन्स्ट CF_NOVECTORFONTS = & H800 & पब्लिक कास्ट CF_NOSIMULATIONS = & H1000 & पब्लिक कास्ट CF_LIMITSIZE = और H2000 & पब्लिक कांस्ट CF_FIXEDPITCHONLY = & H4000 & पब्लिक कांस्टेबल CF_OVSIORSI_FY कॉन्स्टेंट CF_TTONLY = & H40000 पब्लिक कॉन्स्ट CF_NOFACESEL = & H80000 पब्लिक कांस्ट CF_NOSTYLESEL = & H100000 पब्लिक कांस्ट CF_NOSIZESEL = & H200000 का प्रिंटर डायलॉग फ्लॉप पब्लिक कांस्ट PD_ALLPAGES = & H0 & पब्लिक कांस्ट PD_SELECTION = & H1000 पब्लिक कॉन्स्टीट्यूशन = & H1000 ic Const PD_NOPAGENUMS = & H8 & पब्लिक कॉन्स्टेंस PD_COLLATE = & H10 & पब्लिक कॉन्स्टेंस PD_PRINTTOFILE = & H20 & पब्लिक कास्ट PD_PRINTSETUP = & H40 & पब्लिक कांस्टेबल PD_NOWARNING = & H80 & पब्लिक कांस्ट PD_RETURNDC = & HST & पब्लिक कॉन्स्टीट्यूशन PD_PRETTS सार्वजनिक कॉन्स्टेंट PD_DISABLEPRINTTOFILE = & H80000 सार्वजनिक कॉन्स्टेंट PD_HIDEPRINTTOFILE = & H100000 'कॉन्स्टेंट्स पब्लिक कॉन्सटेबल HELP_CONTEXT = & H1' का विषय टॉपिक में पब्लिक पब्लिक कॉन्सेप्ट PRP_QUIT = & H2 'टर्मिनेट हेल्प पब्लिक कॉन्स्टेंट HELP_INDEX = & H300' पब्लिक हेल्पलाइन 'डिसप्ले पब्लिक कॉन्स्टीट्यूशन डिसप्ले में पब्लिक कॉन्स्टीट्यूशन डिसप्ले है। मदद का उपयोग करने पर प्रदर्शन सार्वजनिक कॉन्स्टेबल HELP_SETINDEX = & H5 'मल्टी इंडेक्स के लिए वर्तमान इंडेक्स सेट करें पब्लिक कॉन्टैस्ट हेल्प_स्पेक्टेंट्स = & H5 पब्लिक कॉन्टेस्ट HELP_CONTEXTPOPUP = & H5 लोक कॉन्स्टीट हेल्प_फॉरसेपर = & H9 पब्लिक कॉन्स्टेंस HELP_KEY = & H101 और H102 पब्लिक कांस्टेबल HELP_PARTIALKEY = & H105 'में सर्च इंजन को कॉल करें winhelp फंक्शन ऐड (एक $) स्ट्रिंग के रूप में अगर एक $ "" तो एक $ = एक $ + "| Add = a $ End फ़ंक्शन 'कमांड लाइन ...' FileName = cmd_open () 'यदि 1 फ़िल्टर अधिक >> FileName = cmd_open ("txt")' यदि कई फ़िल्टर, फ़िल्टर 1 से 4 को प्रारंभ करें 'सभी फ़िल्टर फ़ंक्शन cmd_open को नियमित करें (स्ट्रिंग के रूप में वैकल्पिक Filt1) स्ट्रिंग डिम CTRL $ के रूप में, एक $, b $, F1 $, F2 $, F3 $, F4 $ CTRL $ = Chr $ (13) + Chr $ (10) यदि Filf1 "" तो एक $ = "फ़ाइल (*।" & Filt1 & ") | *।" & Filt1 End अगर फ़िल्टर 1 "" तो एक $ = जोड़ (एक $) एक $ = एक $ + "फ़ाइल (*।" & Filter1 & ") | *।" & Filter1 Filter1 = "" End if If Filter2 "" तो a $ = add (a) $ a = a $ + "फ़ाइल (*।" & Filter2 & ") | * |" & Filter2 Filter2 = "" End if If Filter3 "" तो a $ = add (a) $ a = a $ + "File (*।" & Filter3 & ") | * |" & Filter3 Filter 3 = "" End if If Filter4 "" तो a $ = add (a) $ a = a $ + "फ़ाइल (*।" & Filter4 & ") | * |" & Filter4 Filter4 = "" यदि एक $ = जोड़ (एक $) एक $ = एक $ + "सभी (*। *) | *। *।" * Dialog.CMDialog1.Filter = एक $ Dialog.CMDialog1.FilterIndex = 1 डायलॉग .CMDialog1.FLAGS = CF_EFFECTS या OFN_HIDEREADONLY या CF_ANSIONLY Dialog.CMDialog1.Action = DLG_FILE_OPEN cmd_open / Dialog.CMDialog1.FileName Unload Dialog End Function cmd_Policy (डायलॉग) (डायलॉग) (डायलॉग) CF_BOTH + CF_SCALABLEONLY Dialog.CMDialog1.Action = DLG_FONT Filter1 = 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_GPES 'जैसे: TXT ou EXE' रूटीन के लिए खोजा जाने वाला फ़ाइल एक्सटेंशन सभी फ़िल्टर (*। *) जोड़ता है। फंक्शन cmd_SaveAs (स्ट्रिंग 1 के रूप में स्ट्रिंग) Filter1 के रूप में = "फ़ाइल (*।" & Filt1 & ") | *। "& Filt1 Filter2 =" सभी (*। *) | ।