How to pass a variable to a parameter ?

[Rob]

lets assume I want to remove a control from a form that was dynamically
created...

If the button was added at design time, I can do the following...

me.Controls.Remove(Button4)

How may I pass a variable in the parameter position ? i.e.,
me.Controls.Remove(strVariable)

[Mattias Sjögren]

>How may I pass a variable in the parameter position ? i.e.,

>me.Controls.Remove(strVariable)

I assume from your naming convention that strVariable stores the name
of the control. If you instead store a reference to the control
itself, you could just pass it in as it is.
Mattias

--
Mattias Sjögren [C# MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/ | http://www.dotnetinterop.com
Please reply only to the newsgroup.

[Rob]

Thanks Mattias,

Do you have a sample in VB.net ?

"Mattias Sjögren" <ma********************@mvps.orgwrote in message
news:ed**************@TK2MSFTNGP05.phx.gbl...

How may I pass a variable in the parameter position ? i.e.,
me.Controls.Remove(strVariable)

I assume from your naming convention that strVariable stores the name
of the control. If you instead store a reference to the control
itself, you could just pass it in as it is.
Mattias

--
Mattias Sjögren [C# MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/ | http://www.dotnetinterop.com
Please reply only to the newsgroup.

[Rob]

I tried this...

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim delme As Object
delme = New Object()

Dim ctrl As Control
For Each ctrl In FlowLayoutPanel1.Controls

delme = (ctrl.Name)
Call wipeout(delme)

Next

End Sub
End Class
Public Sub wipeout(ByRef delme As Object)

Me.FlowLayoutPanel1.Controls.Remove(delme)
End Sub


"Mattias Sjögren" <ma********************@mvps.orgwrote in message
news:ed**************@TK2MSFTNGP05.phx.gbl...

How may I pass a variable in the parameter position ? i.e.,
me.Controls.Remove(strVariable)

I assume from your naming convention that strVariable stores the name
of the control. If you instead store a reference to the control
itself, you could just pass it in as it is.
Mattias

--
Mattias Sjögren [C# MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/ | http://www.dotnetinterop.com
Please reply only to the newsgroup.

[rowe_newsgroups]

On May 12, 7:15 am, "Rob" <[e-mail]:

I tried this...

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim delme As Object
delme = New Object()

Dim ctrl As Control
For Each ctrl In FlowLayoutPanel1.Controls

delme = (ctrl.Name)
Call wipeout(delme)

Next

End Sub
End Class

Public Sub wipeout(ByRef delme As Object)

Me.FlowLayoutPanel1.Controls.Remove(delme)
End Sub

"Mattias Sjögren" <[e-mail] in message

news:ed**************@TK2MSFTNGP05.phx.gbl...

>How may I pass a variable in the parameter position ? i.e.,
me.Controls.Remove(strVariable)

I assume from your naming convention that strVariable stores the name
of the control. If you instead store a reference to the control
itself, you could just pass it in as it is.

Mattias

--
Mattias Sjögren [C# MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/|http://www.dotnetinterop.com
Please reply only to the newsgroup.

Try something like this:

' Typed in message
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
For Each c As Control In Me.FlowLayoutPanel1.Controls
If (c.Name = "The name of the control to delete") Then
Wipeout(c)
Exit For
End If
Next
End Class

Public Sub Wipeout(ByVal c as Control)
If (Me.FlowLayoutPanel1.Controls.Contains(c)) Then
Me.FlowLayoutPanel1.Controls.Remove(c)
c.Dispose()
End If
End Sub

Or if you're using .Net 2.0 (VB 2005) you should be able to do this:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Wipeout(Me.FlowLayoutPanel1.FindControl("The name of the control
to delete"))
End Class

Public Sub Wipeout(ByVal c as Control)
If (Me.FlowLayoutPanel1.Controls.Contains(c)) Then
Me.FlowLayoutPanel1.Controls.Remove(c)
c.Dispose()
End If
End Sub

Thanks,

Seth Rowe

[Rob]

Thanks so much for your help Seth !

I placed the code below into the project... odd thing though...
It appears to delete only half the controls... (FYI - using 2.0 VS2005)

I have a button that adds user controls to the FlowLayoutPanel... so I added
8 of them... ran the code and 4 were deleted... ran again... 2 more were
deleted...

Public Sub Wipeout(ByVal c As Control)
If (Me.FlowLayoutPanel1.Controls.Contains(c)) Then
Me.FlowLayoutPanel1.Controls.Remove(c)
c.Dispose()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim strControlName As String
For Each c As Control In Me.FlowLayoutPanel1.Controls
strControlName = c.Name
If (c.Name = strControlName) Then
Wipeout(c)
'Exit For
End If
Next
End Sub

- Rob
"rowe_newsgroups" <ro********@yahoo.comwrote in message
news:11**********************@y80g2000hsf.googlegr oups.com...
On May 12, 7:15 am, "Rob" <[e-mail]:

I tried this...

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim delme As Object
delme = New Object()

Dim ctrl As Control
For Each ctrl In FlowLayoutPanel1.Controls

delme = (ctrl.Name)
Call wipeout(delme)

Next

End Sub
End Class

Public Sub wipeout(ByRef delme As Object)

Me.FlowLayoutPanel1.Controls.Remove(delme)
End Sub

"Mattias Sjögren" <[e-mail] in message

news:ed**************@TK2MSFTNGP05.phx.gbl...

>How may I pass a variable in the parameter position ? i.e.,
me.Controls.Remove(strVariable)

I assume from your naming convention that strVariable stores the name
of the control. If you instead store a reference to the control
itself, you could just pass it in as it is.

Mattias

--
Mattias Sjögren [C# MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/|http://www.dotnetinterop.com
Please reply only to the newsgroup.

Try something like this:

' Typed in message
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
For Each c As Control In Me.FlowLayoutPanel1.Controls
If (c.Name = "The name of the control to delete") Then
Wipeout(c)
Exit For
End If
Next
End Class

Public Sub Wipeout(ByVal c as Control)
If (Me.FlowLayoutPanel1.Controls.Contains(c)) Then
Me.FlowLayoutPanel1.Controls.Remove(c)
c.Dispose()
End If
End Sub

Or if you're using .Net 2.0 (VB 2005) you should be able to do this:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Wipeout(Me.FlowLayoutPanel1.FindControl("The name of the control
to delete"))
End Class

Public Sub Wipeout(ByVal c as Control)
If (Me.FlowLayoutPanel1.Controls.Contains(c)) Then
Me.FlowLayoutPanel1.Controls.Remove(c)
c.Dispose()
End If
End Sub

Thanks,

Seth Rowe

[rowe_newsgroups]

On May 12, 8:28 am, "Rob" <[e-mail]:

Thanks so much for your help Seth !

I placed the code below into the project... odd thing though...
It appears to delete only half the controls... (FYI - using 2.0 VS2005)

I have a button that adds user controls to the FlowLayoutPanel... so I added
8 of them... ran the code and 4 were deleted... ran again... 2 more were
deleted...

Public Sub Wipeout(ByVal c As Control)
If (Me.FlowLayoutPanel1.Controls.Contains(c)) Then
Me.FlowLayoutPanel1.Controls.Remove(c)
c.Dispose()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim strControlName As String
For Each c As Control In Me.FlowLayoutPanel1.Controls
strControlName = c.Name
If (c.Name = strControlName) Then
Wipeout(c)
'Exit For
End If
Next
End Sub

- Rob

"rowe_newsgroups" <[e-mail] in message

news:11**********************@y80g2000hsf.googlegr oups.com...
On May 12, 7:15 am, "Rob" <[e-mail]:

I tried this...

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim delme As Object
delme = New Object()

Dim ctrl As Control
For Each ctrl In FlowLayoutPanel1.Controls

delme = (ctrl.Name)
Call wipeout(delme)

Next

End Sub
End Class

Public Sub wipeout(ByRef delme As Object)

Me.FlowLayoutPanel1.Controls.Remove(delme)
End Sub

"Mattias Sjögren" <[e-mail] in message

news:ed**************@TK2MSFTNGP05.phx.gbl...

How may I pass a variable in the parameter position ? i.e.,
>>me.Controls.Remove(strVariable)

I assume from your naming convention that strVariable stores the name
of the control. If you instead store a reference to the control
itself, you could just pass it in as it is.

Mattias

--
Mattias Sjögren [C# MVP] mattias @ mvps.org
>http://www.msjogren.net/dotnet/|http://www.dotnetinterop.com
Please reply only to the newsgroup.

Try something like this:

' Typed in message
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
For Each c As Control In Me.FlowLayoutPanel1.Controls
If (c.Name = "The name of the control to delete") Then
Wipeout(c)
Exit For
End If
Next
End Class

Public Sub Wipeout(ByVal c as Control)
If (Me.FlowLayoutPanel1.Controls.Contains(c)) Then
Me.FlowLayoutPanel1.Controls.Remove(c)
c.Dispose()
End If
End Sub

Or if you're using .Net 2.0 (VB 2005) you should be able to do this:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Wipeout(Me.FlowLayoutPanel1.FindControl("The name of the control
to delete"))
End Class

Public Sub Wipeout(ByVal c as Control)
If (Me.FlowLayoutPanel1.Controls.Contains(c)) Then
Me.FlowLayoutPanel1.Controls.Remove(c)
c.Dispose()
End If
End Sub

Thanks,

Seth Rowe

I placed the code below into the project... odd thing though...
It appears to delete only half the controls... (FYI - using 2.0 VS2005)

That's because as we remove a control it throws off the for each
loop's counter causing it to skip every other control. Now that I
realized my stupid mistake (hey it is early here) try this instead:

Private Sub Button3_Click2(ByVal sender As System.Object, ByVal e
As System.EventArgs) 'Handles Button3.Click
Dim i As Integer = 0
While i < Me.FlowLayoutPanel1.Controls.Count
Dim c As Control = Me.FlowLayoutPanel1.Controls(i)
If (c.Name = "ControlToDelete") Then
Wipeout(c)
Else
i += 1
End If
End While
End Sub

That way we only increment the counter when we don't remove a control.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim strControlName As String
For Each c As Control In Me.FlowLayoutPanel1.Controls
strControlName = c.Name
If (c.Name = strControlName) Then
Wipeout(c)
'Exit For
End If
Next
End Sub

I see you are just deleting all the FlowLayoutPanels controls right?
If that's all you need to do you can just replace that whole method
with:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e
As
Me.FlowLayoutPanel1.Controls.Clear()
End Sub

Thanks,

Seth Rowe

[Rob]

Seth,

That worked perfectly ! Thank You very much !

Thanks for this as well...

> Me.FlowLayoutPanel1.Controls.Clear()

However, eventually I will be adding some criteria as to which controls get
removed...

Rob
"rowe_newsgroups" <ro********@yahoo.comwrote in message
news:11**********************@k79g2000hse.googlegr oups.com...
On May 12, 8:28 am, "Rob" <[e-mail]:

Thanks so much for your help Seth !

I placed the code below into the project... odd thing though...
It appears to delete only half the controls... (FYI - using 2.0 VS2005)

I have a button that adds user controls to the FlowLayoutPanel... so I
added
8 of them... ran the code and 4 were deleted... ran again... 2 more were
deleted...

Public Sub Wipeout(ByVal c As Control)
If (Me.FlowLayoutPanel1.Controls.Contains(c)) Then
Me.FlowLayoutPanel1.Controls.Remove(c)
c.Dispose()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim strControlName As String
For Each c As Control In Me.FlowLayoutPanel1.Controls
strControlName = c.Name
If (c.Name = strControlName) Then
Wipeout(c)
'Exit For
End If
Next
End Sub

- Rob

"rowe_newsgroups" <[e-mail] in message

news:11**********************@y80g2000hsf.googlegr oups.com...
On May 12, 7:15 am, "Rob" <[e-mail]:

I tried this...

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim delme As Object
delme = New Object()

Dim ctrl As Control
For Each ctrl In FlowLayoutPanel1.Controls

delme = (ctrl.Name)
Call wipeout(delme)

Next

End Sub
End Class

Public Sub wipeout(ByRef delme As Object)

Me.FlowLayoutPanel1.Controls.Remove(delme)
End Sub

"Mattias Sjögren" <[e-mail] in message

news:ed**************@TK2MSFTNGP05.phx.gbl...

How may I pass a variable in the parameter position ? i.e.,
>>me.Controls.Remove(strVariable)

I assume from your naming convention that strVariable stores the name
of the control. If you instead store a reference to the control
itself, you could just pass it in as it is.

Mattias

--
Mattias Sjögren [C# MVP] mattias @ mvps.org
>http://www.msjogren.net/dotnet/|http://www.dotnetinterop.com
Please reply only to the newsgroup.

Try something like this:

' Typed in message
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
For Each c As Control In Me.FlowLayoutPanel1.Controls
If (c.Name = "The name of the control to delete") Then
Wipeout(c)
Exit For
End If
Next
End Class

Public Sub Wipeout(ByVal c as Control)
If (Me.FlowLayoutPanel1.Controls.Contains(c)) Then
Me.FlowLayoutPanel1.Controls.Remove(c)
c.Dispose()
End If
End Sub

Or if you're using .Net 2.0 (VB 2005) you should be able to do this:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Wipeout(Me.FlowLayoutPanel1.FindControl("The name of the control
to delete"))
End Class

Public Sub Wipeout(ByVal c as Control)
If (Me.FlowLayoutPanel1.Controls.Contains(c)) Then
Me.FlowLayoutPanel1.Controls.Remove(c)
c.Dispose()
End If
End Sub

Thanks,

Seth Rowe

I placed the code below into the project... odd thing though...
It appears to delete only half the controls... (FYI - using 2.0 VS2005)

That's because as we remove a control it throws off the for each
loop's counter causing it to skip every other control. Now that I
realized my stupid mistake (hey it is early here) try this instead:

Private Sub Button3_Click2(ByVal sender As System.Object, ByVal e
As System.EventArgs) 'Handles Button3.Click
Dim i As Integer = 0
While i < Me.FlowLayoutPanel1.Controls.Count
Dim c As Control = Me.FlowLayoutPanel1.Controls(i)
If (c.Name = "ControlToDelete") Then
Wipeout(c)
Else
i += 1
End If
End While
End Sub

That way we only increment the counter when we don't remove a control.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim strControlName As String
For Each c As Control In Me.FlowLayoutPanel1.Controls
strControlName = c.Name
If (c.Name = strControlName) Then
Wipeout(c)
'Exit For
End If
Next
End Sub

I see you are just deleting all the FlowLayoutPanels controls right?
If that's all you need to do you can just replace that whole method
with:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e
As
Me.FlowLayoutPanel1.Controls.Clear()
End Sub

Thanks,

Seth Rowe