[2005] Newbie question

[sgilbe]

I am looking for a way to check the state of several different checkboxes without having to write the same code over and over with differen name.checked = true

IE: I want to reduce the code

Private Sub chk_Click(ByVal sender As System.Object, ByVal e_
As System.EventArgs) Handles chk.Click

if name1.checked = True then msgbox("1 is checked")
if name2.checked = True then msgbox("2 is checked")
if name3.checked = True then msgbox("3 is checked")
ect.. up to 6

End Sub

Any help would be great.

Thanks,
Steve

[Atheist]

you can use:

For Each ctrl As Control In Me.Controls
            If TypeOf (ctrl) Is CheckBox And ctrl.Name.Substring(0, 4) = "name" Then
                If DirectCast(ctrl, CheckBox).Checked = True Then MsgBox(ctrl.Name.Substring(4, 1) & " is checked")
            End If
        Next

[sgilbe]

I tried to inster your text but got the following error

System.ArgumentOutOfRangeException was unhandled
Message="Index and length must refer to a location within the string.
Parameter name: length"
ParamName="length"
Source="mscorlib"
StackTrace:


it looks like it has to do with the (ctrl)

thanks,

[Atheist]

oh yeah sorry.

Made some modifications and it works now

For Each ctrl As Control In Me.Controls
            If TypeOf (ctrl) Is CheckBox And ctrl.Name.Length >= 4 Then
                If DirectCast(ctrl, CheckBox).Checked = True And LCase(ctrl.Name.Substring(0, 4)) = "name" Then MsgBox(ctrl.Name.Substring(4, 1) & " is checked")
            End If
        Next

[gigemboy]

You can simply add the checkboxes onto the Handles clause, to allow them to call the same sub...

Private Sub chk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                              Handles chk.Click, chk2.Click, chk3.Click, chk4.Click
       'your check code here
End Sub

The above code would be called anytime one of the checkboxes listed in the handles clause are clicked

[sgilbe]

Thanks that is working.