विषय

• दिशाओं

Microsoft Access का उपयोग करते समय आसानी से उपयोगकर्ता का ध्यान आकर्षित करने के लिए एक टेक्स्ट बॉक्स नियंत्रण का उपयोग करके एक मार्की जोड़ें। नियंत्रक में पाठ स्क्रॉल करने की प्रक्रिया को स्वचालित करने के लिए अनुप्रयोगों के लिए विजुअल बेसिक (VBA) का उपयोग करना संभव है। VBA एक प्रोग्रामिंग भाषा है जिसका उपयोग Microsoft Office अनुप्रयोगों को बढ़ाने के लिए किया जाता है। एक उपप्रकार निष्पादित करने के लिए "Form.Timer" इवेंट (प्रपत्र समय) का उपयोग करें जो पाठ बॉक्स की सामग्री को लगातार अपडेट करेगा।

दिशाओं

नियंत्रण अपडेट करने के लिए प्रवेश में VBA का उपयोग करें (Comstock / Comstock / गेटी इमेज)

1. एक नया फ़ॉर्म बनाने के लिए "बनाएँ" टैब और फिर "फ़ॉर्म प्रोजेक्ट" पर क्लिक करें। कंट्रोल पैनल में "टेक्स्ट बॉक्स" दबाएं, और फिर एक नया टेक्स्ट बॉक्स कंट्रोल जोड़ने के लिए फॉर्म में। "प्रारूप" टैब पर राइट-क्लिक करें और "पाठ संरेखण" गुण "राइट" पर सेट करें। "अन्य" टैब दबाएं और "नाम" के तहत "txtMarquee" टाइप करें।

2. फ़ॉर्म को राइट-क्लिक करें, फिर "इवेंट बनाएँ" और VBA संपादक विंडो को चलाने के लिए "कोड बिल्डर" पर डबल-क्लिक करें। सभी डिफ़ॉल्ट कोड का चयन करने के लिए "Ctrl" और "A" दबाएं, फिर कोड को हटाने के लिए "हटाएं" दबाएं।

3. अपने कोड में आपके द्वारा उपयोग किए जाने वाले वैश्विक चर जोड़ने के लिए निम्न कोड को कॉपी और पेस्ट करें:

   
   

   स्ट्रिंग के रूप में मंद textStr स्ट्रिंग के रूप में मंद गति

4. पाठ को परिभाषित करने के लिए निम्नलिखित कोड जोड़ें जो पाठ बॉक्स के नियंत्रण को पीछे ले जाएगा:

   निजी उप Form_Load () txtMarqee.SetFocus txtMarqee.Text = "" textStr = "Microsoft एक्सेस के लिए एक टेक्स्टबॉक्स प्रकार कैसे जोड़ें" padstr = "" txtScroll = =StStr & padstr txtLength = Len (txtScroll) iLength = Lenstr (padstr) Me.TimerInterval = 500 iPos = 1 iView = 1 समाप्ति उप

5. एक उपप्रकार बनाएँ जो "मूव टेक्स्ट" को कॉल करेगा:

   निजी उप Form_Timer () MoveText End Sub

6. "MoveText" उपप्रक्रिया बनाएँ जो वास्तव में पाठ बॉक्स नियंत्रण में दिखाए गए पाठ को स्क्रॉल करेगी:

   निजी उप चाल

   txtMarqee.SetFocus txtMarqee.Text = Mid (txtScroll, iPos, iView) iRem = txtLength - (iPos + iView - 1)

   यदि iView <20 और iView <iRem है तो iView = iView + 1 अंत यदि

   यदि iPos <txtLength और iView> = 20 तो iPos = iPos + 1 अंत यदि अतिरिक्त txtMarqee.Text = "" iPos = 1 iView = 1 अंत यदि उप सब

   
   

7. Microsoft Access पर वापस जाएं और प्रोग्राम चलाने के लिए "देखें" आइकन पर क्लिक करें। चरण 4 में परिभाषित पाठ पाठ बॉक्स के माध्यम से स्क्रॉल करेगा।