select block no using checkbox and no should be display in textbox

Bhavesh Vankar

i want to select block no and display it in textbox in ascending but one issue is interupt me is checkboxlist. in visual basic 6.0 only have check1, check2 etc... not checkboxlist. in this case what to do.

1) if checkbox is selected the selected checkbox value should be display in Textbox.

2) second one is when i select 1 to 7 from combobox or dropdown then checkbox from 1 to 7 should be select

i have tried for dropdown as per below code its working in VS2015 but not in VB6.0.

kindly suggest me...

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "1 To 7" Then
CheckBox1.Checked = True
CheckBox2.Checked = True
CheckBox3.Checked = True
CheckBox4.Checked = True
CheckBox5.Checked = True
CheckBox6.Checked = True
Else
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
CheckBox5.Checked = False
CheckBox6.Checked = False
End If
End Sub

3 Replies

Know the answer? Post it — somebody with the same question will find it here.

Suraj Dubey5y ago
Accepted answer
try in this way

->create one textbox and enter the value "1 to 7"
->create the checkboxes with numbers
->create one button and on button click event

check the following code
Private Sub btncheck(sender As Object, e As EventArgs) Handles btncheck.click
If txtinput.Text = "1 To 7" Then
CheckBox1.Checked = True
CheckBox2.Checked = True
CheckBox3.Checked = True
CheckBox4.Checked = True
CheckBox5.Checked = True
CheckBox6.Checked = True
Else
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
CheckBox5.Checked = False
CheckBox6.Checked = False
End If
End Sub
i hope this answer will help to you resolve your problem
Suraj Dubey5y ago
Hi bhavesh,

you can refer this code it will help you

TextBox1.Text = String.Empty
For Each control As Control In form1.Controls
If TypeOf control Is CheckBox AndAlso DirectCast(control, CheckBox).Checked Then
TextBox1.Text &= control.ID & ","
End If
Next
'remove last comma'
If TextBox1.Text.Length <> 0 Then TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
Bhavesh Vankar5y ago
its done. but one thing is pending.
when i check the checkbox checkbox value should be display in textbox. like 1,2,3,4 etc...