टेक्स्टबॉक्स क्लास - वीबीए टेक्स्ट बॉक्स निर्माण। एक्सेल वीबीए में एक फॉर्म बनाना

आइए वीबीए टेक्स्टबॉक्स क्लास को देखें, जो आपको फॉर्म पर टेक्स्ट बॉक्स रखने की अनुमति देता है। वीबीए टेक्स्टबॉक्स वर्ग आपको मल्टी-लाइन और सिंगल-लाइन टेक्स्ट इनपुट क्षेत्र दोनों बनाने की अनुमति देता है, हालांकि बाद के मामले में यह MsgBox फ़ंक्शन का उपयोग करने के लिए अधिक सुविधाजनक है। आप स्क्रॉलबार भी जोड़ सकते हैं और इनपुट वर्णों की अधिकतम लंबाई निर्धारित कर सकते हैं। टेक्स्टबॉक्स का उपयोग पासवर्ड प्रविष्टि घटक के रूप में भी किया जा सकता है।

आइए पहले टेक्स्टबॉक्स क्लास और उसके बेस इवेंट के मुख्य गुणों को देखें, और फिर एक उदाहरण लिखें।

टेक्स्टबॉक्स वीबीए भाषा वर्ग की घटनाएं

मूल्यया मूलपाठ- टेक्स्ट बॉक्स में दर्ज किया गया टेक्स्ट

दृश्यमान- आपको तत्व को छिपाने (झूठा) या फिर से (सत्य) दिखाने की अनुमति देता है।

बहु- यह संपत्ति आपको यह निर्दिष्ट करने की अनुमति देती है कि टेक्स्ट फ़ील्ड सिंगल-लाइन (झूठा) या मल्टी-लाइन (सत्य) होगा या नहीं।

वर्ड रैप- संपत्ति का उपयोग करने के लिए प्रासंगिक है यदि मल्टीलाइन में मान सत्य है, इस मामले में, यदि वर्डव्रैप सत्य पर सेट है, तो टेक्स्टबॉक्स टेक्स्ट फ़ील्ड की सीमा तक पहुंचने पर टेक्स्ट स्वचालित रूप से एक नई लाइन में लपेट जाएगा।

स्क्रॉलबार- आपको यह निर्दिष्ट करने की अनुमति देता है कि स्क्रॉलबार प्रदर्शित होंगे या नहीं। संपत्ति निम्नलिखित मान ले सकती है:

• 0 – fmScrollBarsकोई नहीं(स्क्रॉलबार गायब हैं)
• 1– fmScrollBarsक्षैतिज(क्षैतिज स्क्रॉलबार)
• 2 – fmScrollBarsलंबवत(ऊर्ध्वाधर स्क्रॉलबार)
• 3 – fmScrollBarsदोनों(क्षैतिज और लंबवत स्क्रॉलिंग)

पासवर्डचार- आपको उस वर्ण को सेट करने की अनुमति देता है जो इनपुट डेटा के बजाय प्रदर्शित किया जाएगा। पासवर्ड दर्ज करते समय संपत्ति प्रासंगिक होती है।

अधिकतम लंबाई- आपको टेक्स्ट फ़ील्ड में दर्ज किए जा सकने वाले वर्णों की अधिकतम संख्या निर्दिष्ट करने की अनुमति देता है। डिफ़ॉल्ट 0 है, जिसका अर्थ है कि कोई सीमा नहीं है।

अन्य नियंत्रणों की तरह, टेक्स्टबॉक्स वर्ग में ईवेंट होते हैं, टेक्स्टबॉक्स के लिए मुख्य ईवेंट है परिवर्तन- यह तब होता है जब कोई चरित्र टेक्स्ट फ़ील्ड में दर्ज किया जाता है। आपने यह चित्र देखा होगा: सत्यापन कोड दर्ज करते समय, जब तक इसकी लंबाई निर्दिष्ट एक (उदाहरण के लिए, 12 वर्ण) तक नहीं पहुंच जाती, तब तक "चेक" बटन उपलब्ध नहीं होगा। यह यहां भी किया जा सकता है।

ठीक है, अब अभ्यास करने का समय है। मैं पिछले लेखों की तरह फिर से सभी विवरणों में तल्लीन नहीं करूंगा, इसलिए मैं इसे सीधे कहूंगा: परियोजना में एक नया मॉड्यूल और एक नया रूप जोड़ें। टूलबॉक्स विंडो से कैप्शन () नियंत्रण का चयन करें, इसे फॉर्म में जोड़ें, इसे सबसे ऊपर रहने दें, इसके नीचे एक टेक्स्ट बॉक्स (टेक्स्टबॉक्स) रखें, और सबसे नीचे - एक बटन होने दें ( लेबल "चेक" ) ठीक है, पहले की तरह, मॉड्यूल के लिए कोड संपादक में, हम प्रक्रिया लिखते हैं:

यहां हम बटन पर एक क्लिक को संसाधित कर रहे हैं, जब बटन पर क्लिक किया जाता है, तो लेबल 1 ऑब्जेक्ट (शिलालेख) की कैप्शन प्रॉपर्टी को टेक्स्टबॉक्स 1 टेक्स्ट फ़ील्ड (टेक्स्ट प्रॉपर्टी) की सामग्री सौंपी जाएगी।

निजी उप टेक्स्टबॉक्स 1_चेंज () बाइट लेनटेक्स्ट के रूप में मंद लेनटेक्स्ट = लेन (टेक्स्टबॉक्स 1. टेक्स्ट) यदि लेनटेक्स्ट = 12 फिर बीचेक। सक्षम = सही अन्य बीचेक। सक्षम = गलत अंत यदि अंत उप

यहां चेंज इवेंट को vba टेक्स्टबॉक्स क्लास के टेक्स्टबॉक्स 1 ऑब्जेक्ट के टेक्स्ट फील्ड के लिए प्रोसेस किया जाता है। लेनटेक्स्ट चर दर्ज किए गए पाठ की लंबाई को संग्रहीत करेगा, हर बार जब आप डेटा दर्ज करते हैं, तो लंबाई की जांच की जाएगी, यदि यह 12 के बराबर है, तो बटन सक्रिय हो जाएगा, अन्यथा 0 बटन निष्क्रिय हो जाएगा।

इस प्रक्रिया में, प्रारंभिक मान सेट किए जाते हैं, उनमें से कुछ को गुण विंडो में भी सेट किया जा सकता है, लेकिन स्पष्टता के लिए, मैंने प्रोग्राम कोड में सब कुछ लिखने का निर्णय लिया। यहां चिंता करने की कोई बात नहीं है, जैसे ही फॉर्म को मेमोरी में लोड किया जाता है, "चेक" बटन निष्क्रिय हो जाएगा, टेक्स्ट फ़ील्ड और लेबल के लिए फ़ॉन्ट आकार 20 पर सेट है, हम अधिकतम टेक्स्ट लंबाई भी सेट करते हैं भाषा का टेक्स्टबॉक्स VBA वर्ग और उसकी एकल पंक्ति।

विकल्प 5
कस्टम व्यू फॉर्म बनाएं:

प्रपत्र मॉड्यूल में एक निजी सबरूटीन प्रक्रिया बनाएं जो "गणना" लेबल वाले बटन पर क्लिक करने पर लॉन्च हो। प्रक्रिया को स्थिति के किसी भी कर्मचारी के दैनिक कार्य के लिए अर्जित अधिकतम राशि की गणना करनी चाहिए, जिसका नाम टेक्स्ट फ़ील्ड फ़ील्ड 1 में दर्ज किया गया है, सप्ताह के दिन, जिसकी संख्या फ़ील्ड 2 में दर्ज की गई है। अर्जित राशि की गणना खनन और दर के उत्पाद के रूप में की जाती है। प्रक्रिया को परिकलन के परिणाम को Field3 में रखना चाहिए।
यूजर फॉर्म बनाने के लिए विजुअल बेसिक कोड एडिटर (Alt+F11) पर जाएं और मेनू से इन्सर्ट-> यूजरफॉर्म चुनें। फिर आपको आवश्यक घटकों को जोड़ने और प्रपत्र और घटकों के सभी मापदंडों को कॉन्फ़िगर करने की आवश्यकता है - आकार, फ़ॉन्ट, शीर्षक।
इस मामले में, तीन टेक्स्टबॉक्स तत्वों की आवश्यकता होती है (टेक्स्टडॉल्गन - स्थिति, टेक्स्टडेन - सप्ताह का दिन, टेक्स्टमैक्स - अधिकतम अर्जित राशि), दो बटन (गणना और बाहर निकलें) और 4 लेबल। सभी गुण गुण पैनल में सेट किए जा सकते हैं।
यदि आप परिकलन बटन पर डबल-क्लिक करते हैं, तो संपादक एक प्रक्रिया टेम्पलेट बनाएगा। आइए इसमें टेक्स्ट जोड़ें:

निजी उप btnCalc_Click ()
डिम आर अस इंटीजर "लाइन नंबर
डिम सी अस इंटीजर "कॉलम नंबर
डिम मैक्ससम अस इंटीजर "अधिकतम अर्जित राशि
रेंज के रूप में मंद rng "कस्टम रेंज
textMaks.Text = "" "पिछली खोज से फ़ील्ड साफ़ करना
"यदि पद का शीर्षक दर्ज नहीं किया गया है, तो संदेश और प्रक्रिया से बाहर निकलें
अगर textDolgn.Text = खाली तो
MsgBox "नौकरी का शीर्षक दर्ज करें!"
textDolgn.SetFocus "इनपुट फ़ील्ड पर ध्यान केंद्रित करें
उप से बाहर निकलें
अगर अंत
"यदि दिन संख्या दर्ज नहीं की गई है, तो संदेश और प्रक्रिया से बाहर निकलें
अगर textDen.Text = खाली तो
MsgBox "सप्ताह के दिन की संख्या दर्ज करें (1 से 7)!"
टेक्स्टडेन.सेटफोकस
उप से बाहर निकलें
अगर अंत
"गैर-संख्यात्मक दिन मान दर्ज किया गया
यदि नहीं (IsNumeric(textDen.Text)) तो
MsgBox "सप्ताह का गैर-संख्यात्मक दिन (आवश्यक 1 से 7)!"
टेक्स्टडेन.सेटफोकस
उप से बाहर निकलें
"अमान्य कार्यदिवस संख्या दर्ज की गई
ElseIf(CInt(textDen.Text)< 1) Or (CInt(textDen.Text) >7) तब
MsgBox "सप्ताह का अमान्य दिन (1 से 7 तक आवश्यक)!"
टेक्स्टडेन.सेटफोकस
textDen.Text = "" "फ़ील्ड साफ़ करें"
उप से बाहर निकलें
अगर अंत
"लाइन 3 से लूप शुरू करें"
आर = 3
"इनपुट फ़ील्ड से दिन संख्या
सी = सीआईएनटी (textDen.Text)
सेट आरएनजी = शीट्स (1)। यूज्डरेंज
मैक्ससम = -1
r = 3 के लिए rng.rows.Count . के लिए
"यदि निर्दिष्ट नौकरी का शीर्षक सेल में पाया जाता है
यदि InStr(1, Cells(r, 2), textDolgn.Text, vbTextCompare) > 0 तो
"यदि योग अधिकतम से अधिक है, तो अधिकतम के मान को एक नए में बदलें
यदि CInt(Cells(r, 3)) * CInt(Cells(r, c + 3)) > maxSum तो maxSum = CInt(Cells(r, 3)) * CInt(Cells(r, c + 3))
अगर अंत
अगला आर
अगर मैक्ससम = -1 तो
MsgBox "निर्दिष्ट स्थिति नहीं मिली"
टेक्स्टमैक्स। टेक्स्ट = "-"
वरना
टेक्स्टमैक्स। टेक्स्ट = सीएसटीआर (मैक्ससम)
अगर अंत
सेट आरएनजी = कुछ भी नहीं "स्मृति मुक्त करना
अंत उप

यहां बहुत सारे चेक हैं। सबसे पहले, जांचें कि क्या सभी डेटा दर्ज किया गया है। यदि नहीं, तो हम उपयोगकर्ता को इस बारे में सूचित करेंगे, इनपुट फ़ोकस को एक रिक्त फ़ील्ड पर सेट करेंगे (उपयोगकर्ता की सुविधा के लिए, ताकि वह एक बार फिर माउस को पोक न करे) और प्रक्रिया से बाहर निकल जाए।
फिर हम जांचते हैं कि क्या दिन संख्या सही ढंग से दर्ज की गई है। सबसे पहले, यह एक संख्या होनी चाहिए, और दूसरी, 1 से 7 तक की संख्या। यदि कुछ गलत है, तो हम इनपुट फ़ील्ड को साफ़ करते हैं, उस पर फ़ोकस सेट करते हैं और प्रक्रिया से बाहर निकलते हैं, फिर से उपयोगकर्ता को असफल प्रयास के बारे में सूचित करते हैं।
यदि सब कुछ ठीक है, तो हम वांछित मूल्यों की खोज शुरू करते हैं। आइए एक कस्टम श्रेणी को पंक्तियों की संख्या से स्वतंत्र होने के लिए परिभाषित करें। फिर आपको लूप में अधिकतम राशि खोजने की आवश्यकता है। सेल वैल्यू की तुलना किसी चीज से करने की जरूरत है। यहां हम केवल पहली सेल को एक पंक्ति या कॉलम में स्थानापन्न नहीं कर सकते हैं, फिर पैरामीटर - स्थिति द्वारा क्या चुना जाना चाहिए। लेकिन हम देखते हैं कि अर्जित राशि शून्य से कम नहीं हो सकती - दर ऋणात्मक नहीं हो सकती है, और काम के घंटों की संख्या भी। ठीक है, इस मामले में, हम "लाल उत्क्रमण" की संभावना पर विचार नहीं करते हैं - अर्थात, पिछली अवधियों के लिए सुधार। तो चलिए प्रारंभिक अधिकतम राशि -1 (माइनस वन) के बराबर लेते हैं।
हम दिन की निर्दिष्ट संख्या के साथ कॉलम की कोशिकाओं के माध्यम से एक लूप शुरू करते हैं (यह इनपुट फ़ील्ड प्लस 3 का मान है)।
देखें कि क्या सेल में निर्दिष्ट कार्य शीर्षक है। आप बस दो तारों की तुलना कर सकते हैं, लेकिन यह असुविधाजनक है, क्योंकि आपको स्थिति को पूर्ण और सही ढंग से दर्ज करने की आवश्यकता होगी। इसलिए, हम InStr फ़ंक्शन का उपयोग करते हैं, जो स्ट्रिंग में निर्दिष्ट सबस्ट्रिंग पाए जाने पर 0 से अधिक मान देता है। आप लाइक फ़ंक्शन का उपयोग कर सकते हैं, जो दो स्ट्रिंग्स की तुलना भी करता है। यह डेवलपर पर निर्भर है।
यदि सेल में स्थिति पाई जाती है, तो हम काम किए गए घंटों की संख्या से दर को गुणा करते हैं और परिणाम की तुलना अधिकतम राशि से करते हैं। यदि परिणाम अधिक है, तो इसे एक नए मान में बदलें।
जहां आवश्यक हो, स्ट्रिंग मानों को संख्याओं में और इसके विपरीत में कनवर्ट करना न भूलें। यहां तक ​​​​कि अगर एक्सेल खुद समझता है कि क्या निहित है, तो विश्वसनीयता के लिए ऐसा करना बेहतर है।
चक्र से गुजरने के बाद, हम देखते हैं, यदि अधिकतम राशि -1 (प्रारंभिक मूल्य) है, तो ऐसी कोई स्थिति नहीं है। हम एक संदेश प्रदर्शित करते हैं, और स्पष्टता के लिए फ़ील्ड में डैश लगाते हैं।
यदि योग -1 के बराबर नहीं है, तो हम पाए गए मान को टेक्स्टमैक्स फ़ील्ड में रखते हैं।
हम प्रोग्राम के अंत में ऑब्जेक्ट की मेमोरी को फ्री कर देते हैं।
बाहर निकलें बटन के लिए पाठ भी है:

निजी उप btnExit_Click ()
"फॉर्म अपलोड
मुझे उतारो
अंत उप

प्रपत्र को चलाने के लिए, डेटा शीट ("डेवलपर" टैब, "नियंत्रण" अनुभाग, "सम्मिलित करें" सूची - प्रपत्र नियंत्रणों से बटन का चयन करें) पर एक बटन रखें और इसे Button1_Click मैक्रो असाइन करें। फिर, संपादक में, इस बटन के लिए कोड लिखें:

उप बटन1_क्लिक करें ()
UserForm1.दिखाएँ
अंत उप

सब कुछ, आप फॉर्म के काम की जांच कर सकते हैं।
मैंने यहां केवल 5 विकल्प दिए हैं। यदि आपको दूसरे की आवश्यकता है, तो आप वीके समूह में पूछ सकते हैं (संपर्क पृष्ठ देखें)। लेकिन सामान्य तौर पर, सभी विकल्प समान होते हैं। केवल मामूली अंतर हैं, खासकर यदि आपको कई टेक्स्ट मानों के साथ एक स्ट्रिंग को आउटपुट करने की आवश्यकता है। फिर आप टेक्स्टबॉक्स गुण का उपयोग कर सकते हैं - एकाधिक पंक्तियों को प्रदर्शित करने के लिए मल्टीलाइन, और अलग करने के लिए लाइन ब्रेक वर्णों का उपयोग करें।

टेक्स्ट फ़ील्ड टेक्स्ट दर्ज करने और संपादित करने के लिए अभिप्रेत हैं - टेक्स्टबॉक्स तत्व। लेबल तत्व की तरह, टेक्स्टबॉक्स तत्व का टेक्स्ट टेक्स्ट प्रॉपर्टी का उपयोग करके सेट या पुनर्प्राप्त किया जा सकता है।

डिफ़ॉल्ट रूप से, किसी आइटम को टूलबार से खींचने से सिंगल-लाइन टेक्स्ट बॉक्स बन जाता है। टेक्स्ट फ़ील्ड में बड़ी मात्रा में जानकारी प्रदर्शित करने के लिए, आपको इसके मल्टीलाइन और स्क्रॉलबार गुणों का उपयोग करने की आवश्यकता है। जब आप मल्टीलाइन प्रॉपर्टी को ट्रू पर सेट करते हैं, तो मार्जिन के बाहर आने वाले सभी अतिरिक्त कैरेक्टर एक नई लाइन में रैप हो जाएंगे।

आप निम्न में से किसी एक मान पर स्क्रॉलबार गुण सेट करके टेक्स्ट बॉक्स स्क्रॉल भी कर सकते हैं:

कोई नहीं: कोई स्क्रॉलिंग नहीं (डिफ़ॉल्ट)

क्षैतिज: एक क्षैतिज स्क्रॉल बनाता है जब लाइन की लंबाई टेक्स्ट फ़ील्ड की चौड़ाई से अधिक होती है

लंबवत : यदि रेखाएं टेक्स्ट फ़ील्ड में फ़िट नहीं होती हैं तो एक लंबवत स्क्रॉल बनाता है

दोनों : लंबवत और क्षैतिज स्क्रॉलिंग बनाता है

टेक्स्टबॉक्स तत्व में स्वत: पूर्ण फ़ील्ड बनाने के लिए पर्याप्त शक्ति है। ऐसा करने के लिए, हमें संपत्ति को बांधने की जरूरत है स्वत: पूर्णकस्टम स्रोतटेक्स्टबॉक्स तत्व का कुछ संग्रह जिसमें से फ़ील्ड भरने के लिए डेटा लिया जाता है।

तो, आइए फॉर्म में एक टेक्स्ट फ़ील्ड जोड़ें और लोड इवेंट कोड में निम्नलिखित पंक्तियाँ लिखें:

सार्वजनिक आंशिक वर्ग फॉर्म1: फॉर्म (सार्वजनिक फॉर्म1() (InitializeComponent(); AutoCompleteStringCollection स्रोत = नया AutoCompleteStringCollection() ("कुज़नेत्सोव", "इवानोव", "पेट्रोव", "कुस्तोव"); textBox1.AutoCompleteCustomSource = स्रोत; textBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend;textBox1.AutoCompleteSource = AutoCompleteSource.CustomSource;))

AutoCompleteMode प्रॉपर्टी द्वारा दर्शाए गए स्वत: पूर्ण मोड में कई संभावित मान हैं:

कोई नहीं: कोई स्वतः पूर्णता नहीं

सुझाव : इनपुट के लिए सुझाव सुझाता है, लेकिन पूरा नहीं करता

संलग्न करें: सूची से एक स्ट्रिंग में दर्ज मूल्य जोड़ता है, लेकिन चयन के लिए विकल्प प्रदान नहीं करता है

सुझाव संलग्न करें: दोनों स्वत: पूर्ण के लिए सुझाव सुझाते हैं और उपयोगकर्ता द्वारा दर्ज किए गए मान को पूरा करते हैं

वर्ड रैप

टेक्स्टबॉक्स तत्व में शब्दों को लपेटने के लिए, आपको संपत्ति सेट करने की आवश्यकता है वर्ड रैपसत्य पर सेट। यानी यदि एक शब्द लाइन पर फिट नहीं बैठता है, तो उसे अगले में स्थानांतरित कर दिया जाता है। यह प्रॉपर्टी केवल मल्टीलाइन टेक्स्ट फ़ील्ड के लिए काम करेगी।

पासवर्ड प्रविष्टि

साथ ही, इस तत्व में ऐसे गुण हैं जो आपको इसे पासवर्ड दर्ज करने के लिए एक फ़ील्ड बनाने की अनुमति देते हैं। तो, इसके लिए आपको PasswordChar और UseSystemPasswordChar का उपयोग करना होगा।

PasswordChar संपत्ति का डिफ़ॉल्ट रूप से कोई मूल्य नहीं है, यदि हम इसे किसी भी वर्ण पर सेट करते हैं, तो यह वर्ण टेक्स्ट फ़ील्ड में किसी भी वर्ण को दर्ज करते समय प्रदर्शित किया जाएगा।

UseSystemPasswordChar गुण का एक समान प्रभाव होता है। यदि हम इसके मान को सत्य पर सेट करते हैं, तो दर्ज किए गए वर्णों के बजाय, सिस्टम में स्वीकृत पासवर्ड वर्ण, उदाहरण के लिए, एक बिंदु, टेक्स्ट फ़ील्ड में प्रदर्शित किया जाएगा।

टेक्स्टबॉक्स तत्व की सभी घटनाओं में से, टेक्स्ट चेंज किए गए ईवेंट को नोट किया जाना चाहिए, जो तत्व में टेक्स्ट बदलने पर सक्रिय होता है। उदाहरण के लिए, आइए टेक्स्ट फ़ील्ड के अलावा फॉर्म पर एक लेबल लगाएं और इसे बनाएं ताकि जब टेक्स्ट फ़ील्ड में टेक्स्ट बदल जाए, तो लेबल पर टेक्स्ट भी बदल जाए:

सार्वजनिक आंशिक वर्ग फॉर्म 1: फॉर्म (सार्वजनिक फॉर्म 1 (); टेक्स्टबॉक्स 1. टेक्स्ट चेंज + = टेक्स्टबॉक्स 1_टेक्स्ट चेंज;) निजी शून्य टेक्स्टबॉक्स 1_टेक्स्ट चेंज (ऑब्जेक्ट प्रेषक, इवेंटआर्ग ई) (लेबल 1. टेक्स्ट = टेक्स्टबॉक्स 1. टेक्स्ट;))

यह उदाहरण उपयोग करता है डायलॉग विंडो- UserForm1 और साथ ही नियंत्रण पाठ का क्षेत्र- टेक्स्टबॉक्स 1, टेक्स्टबॉक्स 2, टेक्स्टबॉक्स 3 जिसके लिए संदर्भ मेनू बनाया गया है। ध्यान दें कि संदर्भ मेनू का नाम, जो फ़ॉर्म के नाम के समान है (वैकल्पिक) अद्वितीय होना चाहिए। यदि समान नाम वाला टूलबार पहले से मौजूद है, तो नया टूलबार बनाने का प्रयास करते समय आपको एक त्रुटि मिलेगी। पैनल बनाने से पहले इस नाम के साथ कोई पैनल है या नहीं, या वैकल्पिक नाम तर्क का उपयोग नहीं करके जांच कर इस त्रुटि से बचा जा सकता है। विधि जोड़ें (समान उदाहरण 2 देखें)

विकल्प II।यदि एक इससे पहलेनियंत्रण iemenu.ocx (आईई पॉपअप मेनू) डाउनलोड करें और इसे उपलब्ध लिंक की सूची में जोड़ें, फिर आप इस नियंत्रण का उपयोग करके एक संदर्भ मेनू बना सकते हैं (उदाहरण 3 देखें)

उत्तर:

विकल्प I

ध्यान:

मल्टीलाइन और स्क्रॉलबार गुण मान मैन्युअल रूप से सेट किए जा सकते हैं

उत्तर:
एक टेक्स्ट फ़ील्ड के डेटा के साथ सेल भरने के लिए जिसमें इसकी मल्टीलाइन प्रॉपर्टी True पर सेट है, आप लाइन-बाय-लाइन रीडिंग का उपयोग कर सकते हैं। यदि कक्ष पहले से भरे हुए हैं, तो इन कोशिकाओं (स्तंभ) की सामग्री और स्वरूपों को हटा दें, यह जाँचने के बाद कि वे सुरक्षित हैं

विकल्प I(लाइन बाय लाइन रीडिंग)

टिप्पणी:

एक अग्रणी शून्य के साथ संख्या दर्ज करने के लिए, आपको एक उपयुक्त चेक जोड़ना होगा।

टेक्स्ट फ़ील्ड में बड़ी संख्या में पंक्तियों के साथ, स्क्रीन रीफ़्रेश को अक्षम करना समझ में आता है [FAQ43]

विकल्प II।(लाइन-दर-लाइन रीडिंग नहीं)

उत्तर:

यदि टेक्स्ट फ़ील्ड में केवल अद्वितीय (पहले गैर-दोहराए जाने वाले) वर्ण दर्ज करने की आवश्यकता है। दूसरे शब्दों में, आपको टेक्स्ट में पहले से मौजूद वर्णों के इनपुट को प्रतिबंधित करने की आवश्यकता है, फिर नीचे दिए गए विकल्प का उपयोग करें, जहां TextBox1_KeyPress ईवेंट का उपयोग डुप्लिकेट (पुनरावृत्ति) के इनपुट को प्रतिबंधित करने के लिए किया जाता है, और TextBox1_KeyDown ईवेंट सम्मिलन को प्रतिबंधित करने के लिए किया जाता है। कॉपी किए गए डेटा जिसमें डुप्लिकेट हो सकते हैं (दोहराव)

विकल्प I

उत्तर:

आप अनावश्यक वर्णों की प्रविष्टि को रोकने के लिए निम्न विकल्प का उपयोग कर सकते हैं, जैसे कि वर्ण जिनका उपयोग फ़ाइल नाम में नहीं किया जा सकता है। जहां TextBox1_KeyPress ईवेंट का उपयोग अनावश्यक वर्णों के इनपुट को रोकने के लिए किया जाता है, और TextBox1_KeyDown ईवेंट का उपयोग कॉपी किए गए डेटा को सम्मिलित करने से रोकने के लिए किया जाता है, जिसमें निषिद्ध वर्ण हो सकते हैं।

उत्तर:

यह निर्धारित करने के लिए कि टेक्स्टबॉक्स 1 नामक टेक्स्ट नाम के साथ काम करते समय कौन सी SHIFT, CTRL, ALT कुंजी दबाई गई थी, आप निम्न विकल्प का उपयोग कर सकते हैं। यूजरफॉर्म के हेडर में सूचना का प्रदर्शन जिस पर टेक्स्ट फ़ील्ड रखा गया है, केवल स्पष्टता के लिए उपयोग किया जाता है और निश्चित रूप से अनिवार्य नहीं है।

टिप्पणी:इसी तरह, आप अन्य नियंत्रणों के लिए फ़ॉन्ट बदल सकते हैं, सहित। RefEdit, लेबल, कॉम्बोबॉक्स, लिस्टबॉक्स ...

उत्तर:

यदि, काम के दौरान, आपको आवश्यक कार्यपुस्तिकाओं का चयन करने में सक्षम होना चाहिए, उदाहरण के लिए, एक मानक संवाद बॉक्स का उपयोग करना, और चयनित कार्यपुस्तिका का पथ (या केवल फ़ाइल नाम) प्राप्त करना, और इसे खोले बिना, फिर बस TextBox1 नाम से एक टेक्स्ट बॉक्स बनाएं, और आवश्यकतानुसार दाईं ओर दिए गए बटन का उपयोग करें (बटन आपकी भागीदारी के बिना दिखाई देगा)