Creating Customized Dialog Boxes with User Form Objects in Hindi
Makhanlal Chaturvedi University / BCA / VBA programming
Creating Customized Dialog Boxes with User Form Objects in Hindi
Table of Contents
- Creating Customized Dialog Boxes with User Form Objects in Hindi
- Introduction to User Form Objects for Customized Dialog Boxes in Hindi
- Using Command Buttons in User Forms in Hindi
- Adding and Configuring List and Combo Boxes in User Forms in Hindi
- Using Labels, Option Buttons, and Check Boxes in User Forms in Hindi
Creating Customized Dialog Boxes with User Form Objects in Hindi
Introduction to User Form Objects for Customized Dialog Boxes
User Form Object рдПрдХ рдРрд╕рд╛ powerful tool рд╣реИ рдЬреЛ Microsoft Excel рдЬреИрд╕реЗ applications рдореЗрдВ Customized Dialog Box рдмрдирд╛рдиреЗ рдореЗрдВ рдорджрдж рдХрд░рддрд╛ рд╣реИред рдЗрд╕рдХрд╛ рдЙрдкрдпреЛрдЧ рд╣рдо рддрдм рдХрд░рддреЗ рд╣реИрдВ рдЬрдм рд╣рдореЗрдВ user рд╕реЗ input рд▓реЗрдирд╛ рд╣реЛрддрд╛ рд╣реИ, рдЬреИрд╕реЗ рдХреЛрдИ form рднрд░рд╡рд╛рдирд╛, рдХрд┐рд╕реА list рдореЗрдВ рд╕реЗ option рдЪреБрдирд╡рд╛рдирд╛ рдпрд╛ рдХрд┐рд╕реА button рдХреЛ click рдХрд░рд╡рд╛ рдХрд░ рдХреЛрдИ рдХрд╛рдо рдХрд░рд╡рд╛рдирд╛ред
User Form рдПрдХ Graphical Interface (GUI) рдкреНрд░рджрд╛рди рдХрд░рддрд╛ рд╣реИ рдЬрд┐рд╕рдореЗрдВ рд╣рдо Labels, TextBox, ComboBox, ListBox, Option Button, CheckBox, рдФрд░ Command Button рдЬреИрд╕реЗ elements рдХреЛ рдЬреЛрдбрд╝ рд╕рдХрддреЗ рд╣реИрдВред рдЗрди рд╕рднреА рдХреЛ collectively Controls рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИред рдЗрди controls рдХреЛ customize рдХрд░рдХреЗ рд╣рдо рдЕрдкрдиреЗ рд╣рд┐рд╕рд╛рдм рд╕реЗ Dialog Box рддреИрдпрд╛рд░ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
Using Command Buttons in User Forms
Command Button User Form рдХрд╛ рдПрдХ рдореБрдЦреНрдп рд╣рд┐рд╕реНрд╕рд╛ рд╣реЛрддрд╛ рд╣реИред рдЗрд╕рдХреА рдорджрдж рд╕реЗ рд╣рдо user рджреНрд╡рд╛рд░рд╛ рдХрд┐рдП рдЧрдП actions рдХреЛ control рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдЬреИрд╕реЗ рдХреЛрдИ button рджрдмрд╛рдиреЗ рдкрд░ form submit рд╣реЛ, clear рд╣реЛ, рдпрд╛ close рд╣реЛ рдЬрд╛рдПред
- Command Button рдХреЛ Insert рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП VBA Editor рдореЗрдВ рдЬрд╛рдПрдВ, Toolbox рдореЗрдВ рд╕реЗ "CommandButton" рдХреЛ UserForm рдкрд░ drag рдХрд░реЗрдВред
- рдЗрд╕ button рдХрд╛ рдирд╛рдо рдФрд░ caption рдЖрдк Properties window рд╕реЗ рдмрджрд▓ рд╕рдХрддреЗ рд╣реИрдВред
- рдЗрд╕ button рдкрд░ click рдХрд░рдиреЗ рдкрд░ рдХреНрдпрд╛ рд╣реЛрдирд╛ рдЪрд╛рд╣рд┐рдП, рдпрд╣ рдЖрдк рдЙрд╕рдХреЗ click event рдореЗрдВ рдХреЛрдб рд▓рд┐рдЦрдХрд░ рддрдп рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
Private Sub CommandButton1_Click()
MsgBox "Form Submitted Successfully!"
End Sub
Adding and Configuring List and Combo Boxes in User Forms
ListBox рдФрд░ ComboBox рджреЛрдиреЛрдВ рдХрд╛ рдкреНрд░рдпреЛрдЧ рддрдм рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдЬрдм рд╣рдореЗрдВ user рдХреЛ predefined options рджреЗрдирд╛ рд╣реЛред рдлрд░реНрдХ рдпрд╣ рд╣реИ рдХрд┐ ListBox рдореЗрдВ рд╕рд╛рд░реЗ options рдПрдХ рд╕рд╛рде рджрд┐рдЦрд╛рдИ рджреЗрддреЗ рд╣реИрдВ рдЬрдмрдХрд┐ ComboBox рдореЗрдВ dropdown menu рд╣реЛрддрд╛ рд╣реИред
- Toolbox рдореЗрдВ рд╕реЗ ListBox рдпрд╛ ComboBox select рдХрд░реЗрдВ рдФрд░ UserForm рдкрд░ place рдХрд░реЗрдВред
- Properties window рдореЗрдВ рдЬрд╛рдХрд░ рдЙрд╕рдХрд╛ рдирд╛рдо, font, size рдЖрджрд┐ рдмрджрд▓ рд╕рдХрддреЗ рд╣реИрдВред
- Option рдЬреЛрдбрд╝рдиреЗ рдХреЗ рд▓рд┐рдП initialize event рдпрд╛ manually рдХреЛрдб рд╕реЗ рднреА рдЬреЛрдбрд╝ рд╕рдХрддреЗ рд╣реИрдВред
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Option 1"
ComboBox1.AddItem "Option 2"
ListBox1.AddItem "Item A"
ListBox1.AddItem "Item B"
End Sub
рдЬрдм user рдХреЛрдИ option select рдХрд░рддрд╛ рд╣реИ, рддреЛ рдЖрдк рдЙрд╕ value рдХреЛ process рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдиреАрдЪреЗ рдЬреИрд╕рд╛ рдХреЛрдб рд▓рд┐рдЦ рд╕рдХрддреЗ рд╣реИрдВ:
Private Sub CommandButton1_Click()
MsgBox "You selected: " & ComboBox1.Value
End Sub
Using Labels, Option Buttons, and Check Boxes in User Forms
Labels
- Label рдХрд╛ рдкреНрд░рдпреЛрдЧ рдЬрд╛рдирдХрд╛рд░реА рджрд┐рдЦрд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдЬреИрд╕реЗ - "Enter Name:"
- Label рд╕рд┐рд░реНрдл рджрд┐рдЦрд╛рдиреЗ рдХрд╛ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИ, рдЗрд╕рдореЗрдВ user input рдирд╣реАрдВ рдХрд░ рд╕рдХрддрд╛ред
Option Buttons
- Option Button рдХрд╛ рдкреНрд░рдпреЛрдЧ рддрдм рд╣реЛрддрд╛ рд╣реИ рдЬрдм рдЖрдкрдХреЛ user рд╕реЗ рдПрдХ рд╡рд┐рдХрд▓реНрдк рдЪреБрдирд╡рд╛рдирд╛ рд╣реЛред
- рд╕рд┐рд░реНрдл рдПрдХ Option рдПрдХ рд╕рдордп рдореЗрдВ select рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред
- рдЙрджрд╛рд╣рд░рдг: Gender - Male / Female
If OptionButton1.Value = True Then
MsgBox "You selected Male"
ElseIf OptionButton2.Value = True Then
MsgBox "You selected Female"
End If
Check Boxes
- Check Box рдХрд╛ рдкреНрд░рдпреЛрдЧ рддрдм рд╣реЛрддрд╛ рд╣реИ рдЬрдм рдПрдХ рд╕реЗ рдЕрдзрд┐рдХ рд╡рд┐рдХрд▓реНрдк рдЪреБрдиреЗ рдЬрд╛ рд╕рдХрддреЗ рд╣реЛрдВред
- рдЙрджрд╛рд╣рд░рдг: Hobbies - Reading, Dancing, Singing
Dim hobbies As String
If CheckBox1.Value = True Then hobbies = hobbies & "Reading "
If CheckBox2.Value = True Then hobbies = hobbies & "Dancing "
If CheckBox3.Value = True Then hobbies = hobbies & "Singing "
MsgBox "You selected: " & hobbies
Additional Important Concepts
TextBox рдХрд╛ рдкреНрд░рдпреЛрдЧ
- TextBox рдореЗрдВ user рдХреЛрдИ text рдпрд╛ number type рдХрд░ рд╕рдХрддрд╛ рд╣реИред
- Input рдХреЛ validate рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рд╣рдо рдЗрд╕рдХреЗ Text property рдХрд╛ use рдХрд░рддреЗ рд╣реИрдВред
If TextBox1.Text = "" Then
MsgBox "Please enter your name"
Else
MsgBox "Welcome " & TextBox1.Text
End If
Form Initialization
рдЬрдм рднреА UserForm рдЦреБрд▓рддрд╛ рд╣реИ, рддреЛ рдЙрд╕рдореЗрдВ рдкрд╣рд▓реЗ рд╕реЗ values рдпрд╛ default settings set рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП UserForm_Initialize()
event рдХрд╛ рдЙрдкрдпреЛрдЧ рд╣реЛрддрд╛ рд╣реИред
Form рдХреЛ Show рдФрд░ Hide рдХрд░рдирд╛
Form рдХреЛ show рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдЖрдк module рдореЗрдВ рдиреАрдЪреЗ рдЬреИрд╕рд╛ рдХреЛрдб рд▓рд┐рдЦ рд╕рдХрддреЗ рд╣реИрдВ:
Sub ShowMyForm()
UserForm1.Show
End Sub
Form рдХреЛ close рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП:
Unload Me
Form Validation рдФрд░ Error Handling
- Form validation рдХрд╛ рдорддрд▓рдм рд╣реИ user рджреНрд╡рд╛рд░рд╛ рдЧрд▓рдд data input рдХреЛ рд░реЛрдХрдирд╛ред
- рдЙрджрд╛рд╣рд░рдг: рдХреЛрдИ TextBox рдЦрд╛рд▓реА рди рд╣реЛ, рдпрд╛ рдЙрдореНрд░ 0 рд╕реЗ рдЬреНрдпрд╛рджрд╛ рд╣реЛред
If IsNumeric(TextBox2.Text) = False Then
MsgBox "Please enter a valid number"
Exit Sub
End If
Useful Properties Table
Control | Property | Purpose |
---|---|---|
TextBox | Text | User рджреНрд╡рд╛рд░рд╛ рдбрд╛рд▓рд╛ рдЧрдпрд╛ text |
ComboBox | Value | Selected item |
ListBox | List | рд╕рднреА items рдХреА list |
CommandButton | Caption | Button рдкрд░ рджрд┐рдЦрд╛рдИ рджреЗрдиреЗ рд╡рд╛рд▓рд╛ text |
Final Practical Example
рдПрдХ simple form рдЬрд┐рд╕рдореЗрдВ Name TextBox, Gender OptionButtons, рдФрд░ Submit Button рд╣реЛрдЧрд╛:
Private Sub CommandButton1_Click()
Dim name As String, gender As String
name = TextBox1.Text
If OptionButton1.Value = True Then gender = "Male"
If OptionButton2.Value = True Then gender = "Female"
MsgBox "Name: " & name & vbNewLine & "Gender: " & gender
End Sub
FAQs
If OptionButton1.Value = True Then
MsgBox "You selected Male"
End If
If TextBox1.Text = "" Then
MsgBox "Please enter your name"
End If
Sub ShowForm()
UserForm1.Show
End Sub