error al borrar controles button

[tienda]

hola amigos, a aquaventus por descantado un hola enorme...el caso es el siguiente, tengo unos controles que creo dinamicamente, cada vez que los creo borro los anteriores...pero al borrarlos me sale este error, alguien lo conoce=?

No se puede convertir un objeto de tipo 'Infragistics.Win.Misc.UltraButton' al tipo 'System.Windows.Forms.Button'.

el código de borrado es este;

For Each nuevobotonProducto In Me.Controls
If TypeOf nuevobotonProducto Is Button Then
nuevobotonProducto.Controls.Clear()
End If
Next

[Aquaventus]

Hola tienda, sucede que estas usando botones de Infragistics, motivo por el cual no usan las mismas librerias y NO SON IGUALES. Lo que puedes hacer alli es no compararlo como boton sino como UltraButton :

Código vb:

For Each nuevobotonProducto In Me.Controls
If TypeOf nuevobotonProducto Is Infragistics.Win.Misc.UltraButton Then
nuevobotonProducto.Controls.Clear()
End If
Next
 

Nos cuentas si te resultó. Saludos!.

[tienda]

la pera...aquaventus, muchas gracias por la pronta respuesta, mira, me pone lo siguiente en esta línea:

If TypeOf nuevobotonProducto Is Infragistics.Win.Misc.UltraButton Then

la marca en azul y dice que:

La expresión de TIpo 'System.windows.Forms.button' nunca puede ser del tipo 'Infragistics.Win.Misc.Ultrabutton'

ante todo gracias por la ayuda

[tienda]

te envío más código por si está algo mal

Dim nuevobotonProducto As New Infragistics.Win.Misc.UltraButton
Dim primerpaso As Integer
Dim primerpasoborra As Integer

primerpaso = 1
primerpasoborra = primerpasoborra + primerpaso
If primerpasoborra = 1 Then
For Each nuevobotonProducto In Me.Controls
If TypeOf nuevobotonProducto Is Infragistics.Win.Misc.UltraButton Then
nuevobotonProducto.Controls.Clear()
End If
Next

[tienda]

yo veo el problema es que el for each no debería ser me.controls puesto que nuevobotonproducto es un ultrabutton pero no se como hacerlo si no es así

[Aquaventus]

Hola tienda, yo acabo de probar y si funciona, te paso un codigo :

Código vb:

For Each x As Control In Me.Controls
            If TypeOf x Is Infragistics.Win.Misc.UltraButton Then
                Me.Controls.Remove(x)
            End If
        Next
 

PDT : No es necesario que crees una variable para eliminarla, basta con que sea un tipo que exista y ya. Esta linea esta de más :
Dim nuevobotonProducto As New Infragistics.Win.Misc.UltraButton
Te lo digo xq tambien trabajo con infragistics. Saludos!.

[tienda]

si tienes razón funciona, pero mi problema es mayor...yo nuevobotonProducto lo llamo a una serie de botones, que se crean aleatoriamente según una información de la base de datos, el problema esta en que con la fórmula que me envías...borro todos los botones del formuario y no los que necesito borrar, que son solo los de nuevobotonProducto
gracias por tu ayuda

[Aquaventus]

hola tienda eso ya lo puedes hacer tu en cuestion a logica. Intenta ya que te brindé como borrar, si aun así no logras el resultado nos lo comentas por aqui Saludos!.

[tienda]

ok lucharé ....por el fin de mis quebraderos de cabeza..jejjeje gracias

[tienda]

no lo consigo, si alguien me pudiera ayudar, el problema es que genero los botones ahora sin ser infragistics...los hago normal...el caso es que los genero dinamicamente con el nombre nuevoproducto...pero soy incapaz de borrarlos del formulario

[Aquaventus]

Hola tienda te doy una idea, en un arraylist almacena los nombres de los botones que creas y cuando los borres dentro del for compara si se llaman cualquiera de los del arraylist y los eliminas. Saludos!.

[tienda]

jajajaja, hay que me parto..jajajajja que no me da más el cuerpo...aquaventus voy a hacer contigo un estatua.....he encontrado la solución en un aporte tuyo...graciasssssss lo pongo

Private Sub renovarBotones()
''Aqui verifico si se presiono para eliminar los
''botones creados anteriormente y no se esten
''amontonando con los de la otra consulta
' If accion = 1 Then
' Recorremos la colección de controles del formulario
For Each ctrl As Control In Me.Controls
' Si el tipo de control es un Button
If TypeOf ctrl Is Button Then
' Si se la primera letra del name del boton contiene X es porque es un producto
letra = ctrl.Name.Chars(0)
If letra = "x" Then
' Lo eliminamos de la colección
Me.Controls.Remove(ctrl)
'AQUI VUELVO A LLAMAR AL METODO ,SI ELIMINO UN BOTON QUE HAGA
'OTRA REVISION SINO QUE NO HAGA NADA PORQUE YA NO HAY
renovarBotones()
End If
End If
Next
'Limpio la tabla productos para que no se incremente
'undataset.Tables("productos").Clear()
'End If
End Sub