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

Question

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

Suraj Dubey · 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 Dubey · Answer

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 Vankar · Answer

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...