Problemas con controles Krypton

[3ricks0ul]

Saludos colegas, vera, quiero realizar una función donde pueda hacer la limpieza de todos los controles texbox y combobox de mi form, hasta ahora tengo esto...

Código VB.NET:

For Each t As ComponentFactory.Krypton.Toolkit.KryptonTextBox In Controls
            If TypeOf t Is ComponentFactory.Krypton.Toolkit.KryptonTextBox Then
                t.Text = ""
            End If
        Next
 
        For Each c As ComponentFactory.Krypton.Toolkit.KryptonComboBox In Controls
            If TypeOf c Is ComponentFactory.Krypton.Toolkit.KryptonComboBox Then
                c.SelectedIndex = -1
            End If
        Next
 

Pero me truena el programa al llamar a las funciones, me sale el siguiente error:

Unable to cast object of type 'ComponentFactory.Krypton.Toolkit.KryptonPanel' to type 'ComponentFactory.Krypton.Toolkit.KryptonTextBox'.

Sugerencias? :(

[AndyDroid]

Intenta cambiar la línea

For Each t As ComponentFactory.Krypton.Toolkit.KryptonTextBox In Controls

Por

For Each t As Control In Controls

[3ricks0ul]

No funcino :( llevo bastante tiempo tratando de hacerlo, y no puedo :( no me marca error, pero simplemente no pasa nada....

[AndyDroid]

Pero ya no te marca el error de:

Unable to cast object of type 'ComponentFactory.Krypton.Toolkit.KryptonPanel' to type 'ComponentFactory.Krypton.Toolkit.KryptonTextBox'.

??


Mira yo cuando utilizo ese ciclo(precisamente para hacer lo que tu quieres), meto mis controles en un groupbox y llamo a los controles del groupbox, no de todo el form...
Ejemplo:

For Each t As Control In GroupBox1.Controls

O intenta con Me.Controls para que especifiques en el form...

[3ricks0ul]

No, ya no marca error..te comento, que creo que es por que no estoy relacionando los controles del Krypton, por que utilize la misma sintaxis pero para texbox's y combox sin agruparlos en group box y asi si funcionan...

[AndyDroid]

Dos sugerencias:

1.- Primero cerciórate que la ejecución se esté haciendo en la línea... es decir que entre en el if

2.- En mi caso, cuando hago lo mismo con textbox, pero necesito la propiedad ReadOnly, hago un cast y funciona... prueba algo asi:
DirectCast( t , ComponentFactory.Krypton.Toolkit.KryptonTextBox).T ext = ""

[3ricks0ul]

:( hice pruebas con las sugerencias que me diste, y nada amigo, no se realmente que pueda hacer.


Hice el cast directo, quite las propiedades readonly, y nada

[AndyDroid]

Pero si entra la ejecución en el IF?

[3ricks0ul]

Si, si entra el IF


hice algo asi para testear eso del if y si funciono..


If TypeOf TextRuta Is ComponentFactory.Krypton.Toolkit.KryptonTextBox Then
MessageBox.Show("Es un control de krypton....")
End If

[3ricks0ul]

Sigo buscando e intentando...pregunte en los foros de soporte de krypton y no me han podido ayudar... :/