Changing the checked state of Dynamically added checkboxes

[Dan H]

I have been able to add controls dyanmically to a windows application.
And I can get the Click event working beautifully. But now I want to
use an another event to change the state of the check box but I can
seem to figure out how to work with the control.

So in the code below I create a bunch of check boxes and I want the
event called IFK_InputChange (where I have an external hardware device
that I use as IFK, it works no problems) to update the chkInput check
boxes that I have created.

Any suggestions would be appreciated.

Public Class Form1

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As _
System.EventArg s) Handles MyBase.Load

End Sub

Public Sub New()
' This call is required by the Windows Form Designer.
InitializeCompo nent()
' Add any initialization after the InitializeCompo nent() call.
For i As Integer = 0 To IFK.GetNumInput s - 1
Dim chkInput As New CheckBox
chkInput.Locati on = New Drawing.Point(1 10, 170 + i * 20)
chkInput.TabInd ex = i
chkInput.Tag = i.ToString
chkInput.Name = "input" + i.ToString
chkInput.Text = chkInput.Tag.To String
AddHandler chkInput.Click, AddressOf ClickInputs
Controls.Add(ch kInput)
Next

End Sub

Private Sub ClickInputs(ByV al sender As Object, ByVal e As
EventArgs)
MessageBox.Show ("Clicked was " & DirectCast(send er,
CheckBox).Tag.T oString)
End Sub

Private Sub IFK_InputChange (ByVal sender As Object, ByVal e As _
InputChangeEven tArgs) Handles IFK.InputChange
MessageBox.Show (e.getIndex & " is " & e.getState)
End Sub

End Class

[Cor Ligthert [MVP]]

Dan,

You mean something as beneath typed in this message so watch typos.
\\\
Public sub SetCheckBox(byv al chkstate as Boolean, byval checkboxindex as
integer)
For each ctr as Control in me.controls
if Typeof ctr Is CheckBox then
dim chk as checkbox = ctr
if chk.name = "input" & checkboxindex.t ostring then
chk.checked = chkstate
end if
end if
end for
///
(You can as well create an arraylist of refrences to the textboxes you use
global in your program)

I hope this helps,

Cor
"Dan H" <da*******@gmai l.com> schreef in bericht
news:11******** **************@ i39g2000cwa.goo glegroups.com.. .

I have been able to add controls dyanmically to a windows application.
And I can get the Click event working beautifully. But now I want to
use an another event to change the state of the check box but I can
seem to figure out how to work with the control.

So in the code below I create a bunch of check boxes and I want the
event called IFK_InputChange (where I have an external hardware device
that I use as IFK, it works no problems) to update the chkInput check
boxes that I have created.

Any suggestions would be appreciated.

Public Class Form1

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As _
System.EventArg s) Handles MyBase.Load

End Sub

Public Sub New()
' This call is required by the Windows Form Designer.
InitializeCompo nent()
' Add any initialization after the InitializeCompo nent() call.
For i As Integer = 0 To IFK.GetNumInput s - 1
Dim chkInput As New CheckBox
chkInput.Locati on = New Drawing.Point(1 10, 170 + i * 20)
chkInput.TabInd ex = i
chkInput.Tag = i.ToString
chkInput.Name = "input" + i.ToString
chkInput.Text = chkInput.Tag.To String
AddHandler chkInput.Click, AddressOf ClickInputs
Controls.Add(ch kInput)
Next

End Sub

Private Sub ClickInputs(ByV al sender As Object, ByVal e As
EventArgs)
MessageBox.Show ("Clicked was " & DirectCast(send er,
CheckBox).Tag.T oString)
End Sub

Private Sub IFK_InputChange (ByVal sender As Object, ByVal e As _
InputChangeEven tArgs) Handles IFK.InputChange
MessageBox.Show (e.getIndex & " is " & e.getState)
End Sub

End Class