Remove multiple programmatically created controls

[hunanwarrior]

I added textbox controls to a form when user selects amount to create
from a combobox as follows:

'Load up the combobox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 1 To 10
cbxItemCnt.Items.Add(i)
Next
End Sub

'Add textbox controls based upon selection
Private Sub cbxItemCnt_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
cbxItemCnt.SelectedIndexChanged
Dim i As Integer
Dim tmpTextBox As TextBox

For i = 1 To cbxItemCnt.SelectedItem
tmpTextBox = New TextBox
tmpTextBox.Name = "txtBox" & i
tmpTextBox.Top = cbxItemCnt.Top + (25 * i)
tmpTextBox.Left = cbxItemCnt.Left
Me.Controls.Add(tmpTextBox)
Next
End Sub

When I try to remove the controls, I get undesirable results (i.e. If
4 textboxes were created, only textbox 1 & 3 are removed. Debugging
returns c = Nothing on these iterations)
'Remove programmatically created textboxes
Private Sub btn_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnClear.Click
For Each c As Control In Me.Controls
If TypeOf (c) Is TextBox Then
Me.Controls.Remove(c)
c.Dispose()
End If
Next
End Sub

[hunanwarrior]

Sorry, forgot the question ;>)

Anyone have any ideas on how to resolve this issue?

Thanks so much.

[rowe_newsgroups]

On Feb 1, 1:04 pm, [e-mail] wrote:

Sorry, forgot the question ;>)

Anyone have any ideas on how to resolve this issue?

Thanks so much.

Why not use a List(Of Textbox) variable and add each created text box
to it. Then when you want to remove those textboxes do some like this:

<pseudocode>

for each tb as TextBox in TempTextBoxesList
if me.controls.contains(tb) then
me.controls.remove(tb)
end if
next

</pseudocode>

Thanks,

Seth Rowe

[Charles May]

what about something like ...
Select Case TextBox1.Text

Case "X", "Y", "Z"

MsgBox("XYZ")

Case "A", "B", "C"

MsgBox("ABC")

Case Else

MsgBox("None of the options were entered")

End Select

CM

<hu**********@gmail.comwrote in message
news:11**********************@a75g2000cwd.googlegr oups.com...

>I added textbox controls to a form when user selects amount to create
from a combobox as follows:

'Load up the combobox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 1 To 10
cbxItemCnt.Items.Add(i)
Next
End Sub

'Add textbox controls based upon selection
Private Sub cbxItemCnt_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
cbxItemCnt.SelectedIndexChanged
Dim i As Integer
Dim tmpTextBox As TextBox

For i = 1 To cbxItemCnt.SelectedItem
tmpTextBox = New TextBox
tmpTextBox.Name = "txtBox" & i
tmpTextBox.Top = cbxItemCnt.Top + (25 * i)
tmpTextBox.Left = cbxItemCnt.Left
Me.Controls.Add(tmpTextBox)
Next
End Sub

When I try to remove the controls, I get undesirable results (i.e. If
4 textboxes were created, only textbox 1 & 3 are removed. Debugging
returns c = Nothing on these iterations)
'Remove programmatically created textboxes
Private Sub btn_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnClear.Click
For Each c As Control In Me.Controls
If TypeOf (c) Is TextBox Then
Me.Controls.Remove(c)
c.Dispose()
End If
Next
End Sub

[Charles May]

Sorry, wrong thread :(

"Charles May" <nu***@bidniz.comwrote in message
news:7Tqwh.13834$yB5.9970@trndny03...

what about something like ...
Select Case TextBox1.Text

Case "X", "Y", "Z"

MsgBox("XYZ")

Case "A", "B", "C"

MsgBox("ABC")

Case Else

MsgBox("None of the options were entered")

End Select

CM

<hu**********@gmail.comwrote in message
news:11**********************@a75g2000cwd.googlegr oups.com...

>>I added textbox controls to a form when user selects amount to create
from a combobox as follows:

'Load up the combobox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 1 To 10
cbxItemCnt.Items.Add(i)
Next
End Sub

'Add textbox controls based upon selection
Private Sub cbxItemCnt_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
cbxItemCnt.SelectedIndexChanged
Dim i As Integer
Dim tmpTextBox As TextBox

For i = 1 To cbxItemCnt.SelectedItem
tmpTextBox = New TextBox
tmpTextBox.Name = "txtBox" & i
tmpTextBox.Top = cbxItemCnt.Top + (25 * i)
tmpTextBox.Left = cbxItemCnt.Left
Me.Controls.Add(tmpTextBox)
Next
End Sub

When I try to remove the controls, I get undesirable results (i.e. If
4 textboxes were created, only textbox 1 & 3 are removed. Debugging
returns c = Nothing on these iterations)
'Remove programmatically created textboxes
Private Sub btn_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnClear.Click
For Each c As Control In Me.Controls
If TypeOf (c) Is TextBox Then
Me.Controls.Remove(c)
c.Dispose()
End If
Next
End Sub

[rowe_newsgroups]

On Feb 1, 2:06 pm, "Charles May" <[e-mail]:

what about something like ...
Select Case TextBox1.Text

Case "X", "Y", "Z"

MsgBox("XYZ")

Case "A", "B", "C"

MsgBox("ABC")

Case Else

MsgBox("None of the options were entered")

End Select

CM

<[e-mail] in message

news:11**********************@a75g2000cwd.googlegr oups.com...

I added textbox controls to a form when user selects amount to create
from a combobox as follows:

'Load up the combobox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 1 To 10
cbxItemCnt.Items.Add(i)
Next
End Sub

'Add textbox controls based upon selection
Private Sub cbxItemCnt_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
cbxItemCnt.SelectedIndexChanged
Dim i As Integer
Dim tmpTextBox As TextBox

For i = 1 To cbxItemCnt.SelectedItem
tmpTextBox = New TextBox
tmpTextBox.Name = "txtBox" & i
tmpTextBox.Top = cbxItemCnt.Top + (25 * i)
tmpTextBox.Left = cbxItemCnt.Left
Me.Controls.Add(tmpTextBox)
Next
End Sub

When I try to remove the controls, I get undesirable results (i.e. If
4 textboxes were created, only textbox 1 & 3 are removed. Debugging
returns c = Nothing on these iterations)
'Remove programmatically created textboxes
Private Sub btn_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnClear.Click
For Each c As Control In Me.Controls
If TypeOf (c) Is TextBox Then
Me.Controls.Remove(c)
c.Dispose()
End If
Next
End Sub

Huh?

Thanks,

Seth Rowe

[hunanwarrior]

Thanks for the response, Seth.

<<Why not use a List(Of Textbox) variable and add each created text
box
to it. >>

Do you have an example of how to do this?

Thanks

[rowe_newsgroups]

On Feb 1, 3:05 pm, [e-mail] wrote:

Thanks for the response, Seth.

<<Why not use a List(Of Textbox) variable and add each created text
box
to it. >>

Do you have an example of how to do this?

Thanks

Simple just change the code that adds the textboxes to this:

' Here's your variable for holding the list of textboxes
Private MyTempTextboxes as new List(Of Textbox)()

'Add textbox controls based upon selection
Private Sub cbxItemCnt_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
cbxItemCnt.SelectedIndexChanged
Dim i As Integer
Dim tmpTextBox As TextBox

For i = 1 To cbxItemCnt.SelectedItem
tmpTextBox = New TextBox
tmpTextBox.Name = "txtBox" & i
tmpTextBox.Top = cbxItemCnt.Top + (25 * i)
tmpTextBox.Left = cbxItemCnt.Left
MyTempTextboxes.Add(tmpTextBox.Left)
Me.Controls.Add(tmpTextBox)
Next
End Sub

That should be it!

Thanks,

Seth Rowe

[Phill W.]

hu**********@gmail.com wrote:

For Each c As Control In Me.Controls
If TypeOf(c) Is TextBox Then
Me.Controls.Remove(c)
c.Dispose()
End If

This is an Age-old problem. You're looping through a Collection and
removing items /from/ that Collection as you go. The iterator - that's
doing the looping for you - is /ignoring/ your removals and following
the /original/ list of controls (from when it started looping), which is
why it's skipping some.

Solution 1:
Loop /backwards/ through the control (yes, you have to muck about with a
subscript) removing the Controls as you go.

Solution 2: Create your own "collection" of textboxes as you add them
(independent of the Controls property), then loop through that and
remove them from the Form, something like

Private m_DynamicTextBoxes as ArrayList

' Add to above as you load the TextBoxes, then

For Each tb As Textbox In m_DynamicTextBoxes
Me.Controls.Remove(tb)
Next

HTH,
Phill W.