Unloading a button at runtime

  • Thread starter Thread starter Lou
  • Start date Start date
L

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
 
Lou said:
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

==============================
Click to expand...

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
 
But you see how nice I have showed your method to everybody, sometimes
telling it is the method Armin Zingler.

:-)

Cor
 
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
 
Lou said:
This does not work:
Click to expand...

"not work" means what? Maybe a NullReferenceException?
Dim i As Integer

Dim ctrl As Button



For i = 0 To PanelMiddle.Controls.Count
Click to expand...

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
Click to expand...

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


Armin
 
Back
Top