función que limpia textBox dentro un GroupBox
Publicado por Miguel (281 intervenciones) el 13/02/2014 20:52:26
La función me funciona bien estando dentro del proyecto. Pero cuando es como una libreria no me reconoce el GrouBox (gbDatos) que le paso como parámetro.
Adjunto documento con el error.
Adjunto función:
Namespace TextoVacio
Public Class clsLimpiar
Public Sub Limpiar_Textos(ByVal Grupo As Windows.Forms.GroupBox)
Dim miControl As Object
Try
'Limpia los TextBox que estan dentro de un GroupBox
For Each miControl In Grupo.Controls
If miControl.GetType Is GetType(LimpiaTexto.Windows.Forms.GroupBox) Then
miControl.Clear()
End If
System.Windows.Forms.Application.DoEvents()
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Function MessageBox() As Object
Throw New Global.System.NotImplementedException
End Function
End Class
End Namespace
Adjunto documento con el error.
Adjunto función:
Namespace TextoVacio
Public Class clsLimpiar
Public Sub Limpiar_Textos(ByVal Grupo As Windows.Forms.GroupBox)
Dim miControl As Object
Try
'Limpia los TextBox que estan dentro de un GroupBox
For Each miControl In Grupo.Controls
If miControl.GetType Is GetType(LimpiaTexto.Windows.Forms.GroupBox) Then
miControl.Clear()
End If
System.Windows.Forms.Application.DoEvents()
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Function MessageBox() As Object
Throw New Global.System.NotImplementedException
End Function
End Class
End Namespace
Valora esta pregunta


0