Función que limpia TextBox dentro de un Groupbox
Publicado por Miguel (281 intervenciones) el 14/02/2014 09:41:27
Función para limpiar los textBox dentro de un GroupBox. Quiza no he aportado todo lo necesario así que lo completo ahora,
Como función que esta dentro del proyecto.
Sub limpiarCajas()
Limpiar_Textos(gbDatos)
End Sub
Asi funciona correctamente.
Ahora dentro del proyecto está como una dll.
Sub limpiarCajas()
Dim vacio As New clsLimpiar
vacio.Limpiar_Textos(gbDatos)
End Sub
Entonces muestra este error en (gbDatos)
Un valor de tipo "System.Windows.Forms.GroupBox" no se puede convertir en "LimpiaTexto,Windows.Forms.GropBox".
Adjunto tambien la 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
Un saludo y muchas gracias.
Como función que esta dentro del proyecto.
Sub limpiarCajas()
Limpiar_Textos(gbDatos)
End Sub
Asi funciona correctamente.
Ahora dentro del proyecto está como una dll.
Sub limpiarCajas()
Dim vacio As New clsLimpiar
vacio.Limpiar_Textos(gbDatos)
End Sub
Entonces muestra este error en (gbDatos)
Un valor de tipo "System.Windows.Forms.GroupBox" no se puede convertir en "LimpiaTexto,Windows.Forms.GropBox".
Adjunto tambien la 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
Un saludo y muchas gracias.
Valora esta pregunta


0