Using Controls and Their Properties
Makhanlal Chaturvedi University / BCA / VBA programming
Using Controls and Their Properties in VBA Forms in Hindi
Using Controls and Their Properties in VBA Forms in Hindi
Overview of Common Controls used in VBA Forms
VBA Forms рдХрд╛ рдЙрдкрдпреЛрдЧ рддрдм рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдЬрдм рд╣рдореЗрдВ Excel рдпрд╛ рдХрд┐рд╕реА рдФрд░ Microsoft Office рдПрдкреНрд▓рд┐рдХреЗрд╢рди рдореЗрдВ рдЗрдВрдЯрд░рдлрд╝реЗрд╕ рдмрдирд╛рдирд╛ рд╣реЛрддрд╛ рд╣реИ рдЬрд┐рд╕рд╕реЗ User рд╕реЗ Input рд▓рд┐рдпрд╛ рдЬрд╛ рд╕рдХреЗред рдЗрди Forms рдореЗрдВ рд╣рдо рдХрдИ рддрд░рд╣ рдХреЗ Controls рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реИрдВ рдЬреЛ User interaction рдХреЛ рдЖрд╕рд╛рди рдФрд░ рдкреНрд░рднрд╛рд╡реА рдмрдирд╛рддреЗ рд╣реИрдВред
- Label: рдпрд╣ рд╕рд┐рд░реНрдл Text рджрд┐рдЦрд╛рдиреЗ рдХреЗ рд▓рд┐рдП рд╣реЛрддрд╛ рд╣реИред рдЬреИрд╕реЗ - "Enter Name"ред
- TextBox: рдЗрд╕рдореЗрдВ User рдХреБрдЫ рднреА рдЯрд╛рдЗрдк рдХрд░ рд╕рдХрддрд╛ рд╣реИ рдЬреИрд╕реЗ рдирд╛рдо, рдкрддрд╛ рдЖрджрд┐ред
- CommandButton: рдЗрд╕ рдмрдЯрди рдХреЛ рдХреНрд▓рд┐рдХ рдХрд░рдиреЗ рдкрд░ рдХреЛрдИ Action perform рд╣реЛрддрд╛ рд╣реИред рдЬреИрд╕реЗ "Submit" рдпрд╛ "Reset"ред
- ComboBox: рдЗрд╕рдореЗрдВ Drop-down рд▓рд┐рд╕реНрдЯ рдЖрддреА рд╣реИ рдЬрд┐рд╕рдореЗрдВ рд╕реЗ User рдПрдХ Item рдЪреБрди рд╕рдХрддрд╛ рд╣реИред
- ListBox: рдЗрд╕рдореЗрдВ рдПрдХ рд╕реЗ рдЕрдзрд┐рдХ рдЖрдЗрдЯрдо рджрд┐рдЦрддреЗ рд╣реИрдВ рдФрд░ User multiple selection рднреА рдХрд░ рд╕рдХрддрд╛ рд╣реИред
- CheckBox: рдЗрд╕рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рд╕реА Option рдХреЛ "Yes" рдпрд╛ "No" рдХреЗ рд░реВрдк рдореЗрдВ рдЪреБрдирдиреЗ рдХреЗ рд▓рд┐рдП рд╣реЛрддрд╛ рд╣реИред
- OptionButton: рдпреЗ radio buttons рдЬреИрд╕реЗ рд╣реЛрддреЗ рд╣реИрдВ, рдЬрд┐рд╕рдореЗрдВ User рдПрдХ рд╣реА рд╡рд┐рдХрд▓реНрдк рдЪреБрди рд╕рдХрддрд╛ рд╣реИред
- Frame: рдпрд╣ Controls рдХреЛ рд╕рдореВрд╣ рдореЗрдВ рдмрд╛рдВрдзрдиреЗ рдХреЗ рд▓рд┐рдП рд╣реЛрддрд╛ рд╣реИред
- ToggleButton: рдпрд╣ рдПрдХ On/Off рдмрдЯрди рдЬреИрд╕рд╛ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИред
How to Set and Modify Properties of Controls in VBA Forms
рд╣рд░ Control рдХреА рдЕрдкрдиреА рдХреБрдЫ Properties рд╣реЛрддреА рд╣реИрдВ рдЬрд┐рдирдХреЗ рдЬрд░рд┐рдП рд╣рдо рдЙрд╕ Control рдХрд╛ behavior рдФрд░ appearance рдмрджрд▓ рд╕рдХрддреЗ рд╣реИрдВред рдЬрдм рд╣рдо Form рдмрдирд╛рддреЗ рд╣реИрдВ рдФрд░ Controls рдХреЛ рдЙрд╕рдореЗрдВ Add рдХрд░рддреЗ рд╣реИрдВ, рддрдм рд╣рдореЗрдВ рдЙрдирдХреА Properties рдХреЛ Modify рдХрд░рдирд╛ рдмрд╣реБрдд рдЬрд░реВрд░реА рд╣реЛрддрд╛ рд╣реИ рддрд╛рдХрд┐ User Interface рдмреЗрд╣рддрд░ рдмрди рд╕рдХреЗред
- Name: рдпрд╣ Code рдореЗрдВ рдЙрд╕ Control рдХреЛ рдкрд╣рдЪрд╛рдирдиреЗ рдХреЗ рд▓рд┐рдП рд╣реЛрддрд╛ рд╣реИред рдЬреИрд╕реЗ - TextBox1
- Caption: рдпрд╣ рдмрдЯрди рдпрд╛ Label рдкрд░ рджрд┐рдЦрдиреЗ рд╡рд╛рд▓рд╛ Text рд╣реЛрддрд╛ рд╣реИред
- Value: рдпрд╣ CheckBox рдпрд╛ OptionButton рдХреЗ рд▓рд┐рдП True рдпрд╛ False рд╣реЛ рд╕рдХрддрд╛ рд╣реИред
- Enabled: рдпрджрд┐ рдпрд╣ False рд╣реИ рддреЛ рд╡рд╣ Control Disabled рд╣реЛ рдЬрд╛рдПрдЧрд╛ред
- Visible: рдпрд╣ рддрдп рдХрд░рддрд╛ рд╣реИ рдХрд┐ Control рджрд┐рдЦреЗрдЧрд╛ рдпрд╛ рдирд╣реАрдВред
- Text: TextBox рдореЗрдВ рд▓рд┐рдЦрд╛ рдЧрдпрд╛ Textред
- BackColor / ForeColor: Background рдФрд░ Font рдХреЗ рд░рдВрдЧред
- Font: Font рдХрд╛ Style рдФрд░ Sizeред
Properties рд╕реЗрдЯ рдХрд░рдиреЗ рдХреЗ рджреЛ рддрд░реАрдХреЗ рд╣реЛрддреЗ рд╣реИрдВ:
- Design Time: рдЬрдм рд╣рдо Form рдХреЛ Design рдХрд░ рд░рд╣реЗ рд╣реЛрддреЗ рд╣реИрдВ, рддрдм Properties Window рд╕реЗ рд╕реАрдзреЗ Property рдмрджрд▓ рд╕рдХрддреЗ рд╣реИрдВред
- Run Time: рдЬрдм Code рдЪрд▓ рд░рд╣рд╛ рд╣реЛрддрд╛ рд╣реИ рддрдм рд╣рдо VBA рдХреЛрдб рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ Properties рдмрджрд▓ рд╕рдХрддреЗ рд╣реИрдВред
'Example: CommandButton рдХреА Caption рдмрджрд▓рдирд╛
Private Sub UserForm_Initialize()
CommandButton1.Caption = "Submit"
TextBox1.Text = ""
Label1.ForeColor = vbBlue
End Sub
Using Events and Control Properties to Enhance Form Functionality
Controls рдореЗрдВ Events рд╣реЛрддреЗ рд╣реИрдВ рдЬреИрд╕реЗ Click, Change, Enter рдЖрджрд┐ред рд╣рдо рдЗрди Events рдкрд░ Code рд▓рд┐рдЦ рд╕рдХрддреЗ рд╣реИрдВ рдЬрд┐рд╕рд╕реЗ Form рдХреА Functionality рдмрдврд╝ рдЬрд╛рддреА рд╣реИред
рдХреБрдЫ Common Events:
- Click: рдЬрдм рдХреЛрдИ Button рдХреНрд▓рд┐рдХ рдХрд┐рдпрд╛ рдЬрд╛рдПред
- Change: рдЬрдм TextBox рдпрд╛ ComboBox рдХрд╛ Text рдмрджрд▓реЗред
- Enter: рдЬрдм рдХрд┐рд╕реА Control рдкрд░ Focus рдЖрдПред
- Exit: рдЬрдм Control рд╕реЗ рдмрд╛рд╣рд░ рдЬрд╛рдпрд╛ рдЬрд╛рдПред
'Example: Button рдкрд░ рдХреНрд▓рд┐рдХ рдХрд░рдиреЗ рдкрд░ TextBox рдХрд╛ рдбреЗрдЯрд╛ рдкрдврд╝рдирд╛
Private Sub CommandButton1_Click()
MsgBox "рдЖрдкрдиреЗ рд▓рд┐рдЦрд╛ рд╣реИ: " & TextBox1.Text
End Sub
'Example: ComboBox рдореЗрдВ рдЪрдпрди рд╣реЛрдиреЗ рдкрд░ Label рдореЗрдВ Value рджрд┐рдЦрд╛рдирд╛
Private Sub ComboBox1_Change()
Label1.Caption = "рдЖрдкрдиреЗ рдЪреБрдирд╛: " & ComboBox1.Value
End Sub
рдЗрди Events рдФрд░ Properties рдХрд╛ рд╕рд╣реА рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рд╣рдо Form рдХреЛ Smart, Interactive рдФрд░ User Friendly рдмрдирд╛ рд╕рдХрддреЗ рд╣реИрдВред рдЗрд╕рд╕реЗ User рдХреЛ рдмреЗрд╣рддрд░ рдЕрдиреБрднрд╡ рдорд┐рд▓рддрд╛ рд╣реИ рдФрд░ Data Collection рдЖрд╕рд╛рди рд╣реЛ рдЬрд╛рддрд╛ рд╣реИред
Practical Examples of Control Properties in VBA Forms
рдЕрдм рд╣рдо рдХреБрдЫ Practical рдЙрджрд╛рд╣рд░рдг рджреЗрдЦреЗрдВрдЧреЗ рдЬрд╣рд╛рдВ Controls рдФрд░ рдЙрдирдХреА Properties рдХреЛ рдХреИрд╕реЗ Real-world Scenarios рдореЗрдВ Use рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред
1. Login Form Example
Form рдореЗрдВ рджреЛ TextBox рд╣реЛрдВрдЧреЗ (Username рдФрд░ Password рдХреЗ рд▓рд┐рдП), рдПрдХ CommandButton рдФрд░ рдПрдХ Labelред
Private Sub CommandButton1_Click()
If TextBox1.Text = "admin" And TextBox2.Text = "1234" Then
Label1.Caption = "Login Successful"
Label1.ForeColor = vbGreen
Else
Label1.Caption = "Invalid Credentials"
Label1.ForeColor = vbRed
End If
End Sub
2. Survey Form Example with CheckBox and OptionButton
- рдирд╛рдо рджрд░реНрдЬ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП TextBox
- Gender рдЪреБрдирдиреЗ рдХреЗ рд▓рд┐рдП OptionButton
- Interest рдЪреБрдирдиреЗ рдХреЗ рд▓рд┐рдП CheckBoxes
- Submit рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП Button
Private Sub CommandButton1_Click()
Dim gender As String
Dim interest As String
If OptionButton1.Value = True Then
gender = "Male"
ElseIf OptionButton2.Value = True Then
gender = "Female"
Else
gender = "Other"
End If
If CheckBox1.Value = True Then interest = interest & " Sports "
If CheckBox2.Value = True Then interest = interest & " Music "
If CheckBox3.Value = True Then interest = interest & " Reading "
MsgBox "Name: " & TextBox1.Text & vbCrLf & _
"Gender: " & gender & vbCrLf & _
"Interests: " & interest
End Sub
3. Dynamic ComboBox Fill Example
рдЬрдм Form рд▓реЛрдб рд╣реЛ, ComboBox рдЕрдкрдиреЗ рдЖрдк Items рд╕реЗ рднрд░ рдЬрд╛рдПред
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Math"
.AddItem "Science"
.AddItem "English"
.AddItem "History"
End With
End Sub
4. Data Validation Example
TextBox рдЦрд╛рд▓реА рд╣реЛ рддреЛ Submit рди рд╣реЛрдиреЗ рджреЗрдирд╛:
Private Sub CommandButton1_Click()
If Trim(TextBox1.Text) = "" Then
MsgBox "Name Field рдЦрд╛рд▓реА рдирд╣реАрдВ рд╣реЛ рд╕рдХрддрд╛", vbExclamation
TextBox1.SetFocus
Exit Sub
End If
MsgBox "Data Submitted Successfully"
End Sub
Final Tips
- рд╣рд░ Control рдХреЛ meaningful Name рджреЗрдВ рдЬреИрд╕реЗ txtName, cmbCourse, btnSubmit рдЖрджрд┐ред
- Design рдХрд░рддреЗ рд╕рдордп Controls рдХреЛ Alignment рдФрд░ Spacing рдХреЗ рд╕рд╛рде рд░рдЦреЗрдВ рддрд╛рдХрд┐ Form рджреЗрдЦрдиреЗ рдореЗрдВ рд╕рд╛рдлрд╝ рдФрд░ рдкреНрд░реЛрдлреЗрд╢рдирд▓ рд▓рдЧреЗред
- рд╣рд░ CommandButton рдпрд╛ Input Field рдХреА Proper Validation рдЬрд░реВрд░ рдХрд░реЗрдВред
- рдХреЛрдб рд╣рдореЗрд╢рд╛ Proper Indentation рдХреЗ рд╕рд╛рде рд▓рд┐рдЦреЗрдВ рдЬрд┐рд╕рд╕реЗ рд╕рдордЭрдирд╛ рдЖрд╕рд╛рди рд╣реЛред
Control Properties Summary Table
Control | Property | Description |
---|---|---|
TextBox | Text | User рджреНрд╡рд╛рд░рд╛ рдбрд╛рд▓рд╛ рдЧрдпрд╛ Data |
Label | Caption | рджрд┐рдЦрдиреЗ рд╡рд╛рд▓рд╛ Text |
CommandButton | Caption | Button рдкрд░ рджрд┐рдЦрдиреЗ рд╡рд╛рд▓рд╛ Text |
CheckBox | Value | True рдпрд╛ False |
OptionButton | Value | True рдпрд╛ False (Only One Select) |
FAQs
TextBox1.Text = "Hello"
рдпрд╛ CommandButton1.Caption = "Submit"
ред
If Trim(TextBox1.Text) = "" Then MsgBox "Input рдЬрд░реВрд░реА рд╣реИ"
ред