VBA-पाठ 12.1. उपयोगकर्ता प्रपत्र (UserForm)

UserForm ऑब्जेक्ट एक विंडो या डायलॉग बॉक्स है जो एप्लिकेशन के यूजर इंटरफेस का हिस्सा है।

UserForm आपको अपने प्रोजेक्ट में विंडोज़ या डायलॉग बॉक्स बनाने की अनुमति देता है। प्रपत्र पर, आप चित्र बनाते हैं और नियंत्रण देख सकते हैं।

उपयोगकर्ता प्रपत्रों में ऐसे गुण होते हैं जो उनकी उपस्थिति को परिभाषित करते हैं, जैसे स्थिति, आकार, रंग और उनके व्यवहार के पहलू।

प्रपत्र विकसित करते समय:

फॉर्म बनाएं (UserForm)

UserForm जोड़ने के लिए हमें वही काम करना होगा जब हम कोई नया मॉड्यूल जोड़ते हैं:

उसके बाद, फॉर्म (UserForm) और टूलबार (टूलबॉक्स) दिखाई देगा:

यदि आपको प्रॉपर्टीज़ विंडो (Properties) दिखाई नहीं देती है, तो सुनिश्चित करें कि यह प्रदर्शित है और फिर नाम UserForm को संपादित करके प्रारंभ करें (ताकि आप इसे बाद में आसानी से पा सकें):

एक फॉर्म (UserForm) के अपने इवेंट होते हैं, बिल्कुल किसी कार्यपुस्तिका या शीट की तरह। कोई ईवेंट जोड़ने के लिए, UserForm पर डबल-क्लिक करें।

अब आइए यह देखने के लिए दो इवेंट बनाएं कि यह कैसे काम करता है। पहला ईवेंट UserForm का प्रारंभिक आकार सेट करेगा और दूसरा उपयोगकर्ता द्वारा क्लिक करने पर इसका आकार 50px तक बढ़ जाएगा।

UserForm प्रारंभ होने पर UserForm_Initialize ईवेंट सक्रिय हो जाएगा:

Private Sub UserForm_Initialize()
    my_userform.Height = 100
    my_userform.Width  = 100
End Sub

कोड को सरल बनाने के लिए, हम UserForm नाम के बजाय Me का उपयोग कर सकते हैं (क्योंकि यह कोड UserForm में है जिसके साथ हम काम कर रहे हैं):

Private Sub UserForm_Initialize()
    Me.Height = 100
    Me.Width  = 100
End Sub

दूसरी घटना तब घटित होगी जब उपयोगकर्ता UserForm पर क्लिक करेगा:

Private Sub UserForm_Initialize()
    Me.Height = 100
    Me.Width  = 100
End Sub

Private Sub UserForm_Click()
    Me.Height = Me.Height + 50
    Me.Width  = Me.Width + 50
End Sub

लॉन्च फॉर्म (UserForm)

किसी प्रक्रिया में UserForm चलाने के लिए, दिखाएँ का उपयोग करें:

Sub show_userform()
     my_userform.Show
End Sub