Unloading a button at runtime

[Lou]

I need to unload a button that was created during runtime but keep getting
an error that
"Option Strict disallows operands of Type object for operator"=". Use the is
operator.

Here is my code
======================================

'Remove all old buttons

For i = 0 To Me.Controls.Count - 1

If TypeOf (Me.Controls(i)) Is Button Then

If Me.Controls(i).Tag = "MyButton" Then

End If

End If

Next i

==============================

Thanks

-Lou

[Armin Zingler]

"Lou" <lo********@comcast.netschrieb

I need to unload a button that was created during runtime but keep
getting an error that
"Option Strict disallows operands of Type object for operator"=".
Use the is operator.

Here is my code
======================================

'Remove all old buttons

For i = 0 To Me.Controls.Count - 1

If TypeOf (Me.Controls(i)) Is Button Then

If Me.Controls(i).Tag = "MyButton" Then

End If

End If

Next i

==============================

The type of the Tag property is System.Object. You can not use the "="
operator to compare any object with a String. If you know that all Tag
properties reference a String, you can use:

If Me.Controls(i).Tag.ToString = "MyButton" Then
Armin

[Cor Ligthert [MVP]]

But you see how nice I have showed your method to everybody, sometimes
telling it is the method Armin Zingler.

:-)

Cor

[Lou]

That didn't work either. It still crashes?
"Cor Ligthert [MVP]" <no************@planet.nlwrote in message
news:uh**************@TK2MSFTNGP06.phx.gbl...

But you see how nice I have showed your method to everybody, sometimes
telling it is the method Armin Zingler.

:-)

Cor

[Lou]

This does not work:

Dim i As Integer

Dim ctrl As Button

For i = 0 To PanelMiddle.Controls.Count

If TypeOf (PanelMiddle.Controls(i)) Is Button Then

ctrl = CType(PanelMiddle.Controls(i), Button)

If ctrl.Tag.ToString = btn.Key.ToString Then

PanelMiddle.Controls(i).Text = btn.Key

End If

End If

Next i

"Cor Ligthert [MVP]" <no************@planet.nlwrote in message
news:uh**************@TK2MSFTNGP06.phx.gbl...

But you see how nice I have showed your method to everybody, sometimes
telling it is the method Armin Zingler.

:-)

Cor

[Armin Zingler]

"Lou" <lo********@comcast.netschrieb

This does not work:

"not work" means what? Maybe a NullReferenceException?

Dim i As Integer

Dim ctrl As Button

For i = 0 To PanelMiddle.Controls.Count

For i = 0 To PanelMiddle.Controls.Count - 1

If TypeOf (PanelMiddle.Controls(i)) Is Button Then

ctrl = CType(PanelMiddle.Controls(i), Button)

If ctrl.Tag.ToString = btn.Key.ToString Then

PanelMiddle.Controls(i).Text = btn.Key

End If

End If

Next i

Did you consider "If you know that all Tag properties reference a String".
Is this the case?
Armin