Código vb:
Ver original
Public Shared Sub Valida1(ByVal f As ComponentFactory.Krypton.Toolkit.KryptonForm) For Each c As Control In f.Controls If TypeOf c Is ComponentFactory.Krypton.Toolkit.KryptonTextBox Then If c.Text = "" Then MessageBox.Show("Faltan Campos que llenar") End If End If Next End Sub
Y así lo mando a llamar en el evento Clic de un botón:
Código vb:
Ver original
Call Valida1 (Me)
Pero no hace nada :( , corrí el código en modo debug pero no hace nada, no se si sea por el tipo de controles Krypton que los este referenciando mal.