Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
If chckamttext.Text <> "0" Then
Select Case chckded
Case "chck1"
If chckBox1.Checked AndAlso chck1.Text.Trim() <> [String].Empty Then
chckamtbot.Text = chckamttext.Text
chckfed.Text = fedname1.Text
End If
Case "chck2"
If chckBox2.Checked AndAlso chck2.Text.Trim() <> [String].Empty Then
chckamtbot.Text = chckamttext.Text
chckfed.Text = fedname2.Text
End If
Case "chck3"
If chckBox3.Checked AndAlso chck3.Text.Trim() <> [String].Empty Then
chckamtbot.Text = chckamttext.Text
chckfed.Text = fedname3.Text
End If
Case "chck4"
If chckBox4.Checked AndAlso chck4.Text.Trim() <> [String].Empty Then
chckamtbot.Text = chckamttext.Text
chckfed.Text = fedname4.Text
End If
Case "chck5"
If chckBox5.Checked AndAlso chck5.Text.Trim() <> [String].Empty Then
chckamtbot.Text = chckamttext.Text
chckfed.Text = fedname5.Text
End If
End Select
ElseIf chckamttext.Text = "0" And chckded <> "" Then
chckamtbot.Text = "0"
chckfed.Text = ""
End If
Private Sub CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged
Select Case DirectCast(sender, CheckBox).Name
Case "CheckBox1"
setControlsValues_1()
Case "CheckBox2"
setControlsValues_2()
Case "CheckBox3"
setControlsValues_3()
End Select
End Sub
Private Sub setControlsValues_1()
If Not String.IsNullOrEmpty(TextBox1.Text) AndAlso CheckBox1.Checked Then
Me.chckamtbot1.Text = TextBox1.Text
Else
'?????
End If
End Sub
Private Sub setControlsValues_2()
If Not String.IsNullOrEmpty(TextBox2.Text) AndAlso CheckBox2.Checked Then
Me.chckamtbot2.Text = TextBox2.Text
Else
'?????
End If
End Sub
Private Sub setControlsValues_3()
If Not String.IsNullOrEmpty(TextBox3.Text) AndAlso CheckBox3.Checked Then
Me.chckamtbot3.Text = TextBox3.Text
Else
'?????
End If
End Sub
Public Class Form1
Private Sub CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, _
TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged
Select Case DirectCast(sender, Control).Name
Case "CheckBox1", "TextBox1"
setControlsValues_1()
Case "CheckBox2", "TextBox2"
setControlsValues_2()
Case "CheckBox3", "TextBox3"
setControlsValues_3()
End Select
End Sub
Private Sub setControlsValues_1()
If Not String.IsNullOrEmpty(TextBox1.Text) AndAlso CheckBox1.Checked Then
Me.CheckAmount1.Text = TextBox1.Text
Else
'?????
End If
End Sub
Private Sub setControlsValues_2()
If Not String.IsNullOrEmpty(TextBox2.Text) AndAlso CheckBox2.Checked Then
Me.CheckAmount2.Text = TextBox2.Text
Else
'?????
End If
End Sub
Private Sub setControlsValues_3()
If Not String.IsNullOrEmpty(TextBox3.Text) AndAlso CheckBox3.Checked Then
Me.CheckAmount3.Text = TextBox3.Text
Else
'?????
End If
End Sub
End Class
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join the community of 500,000 technology professionals and ask your questions.