limpiar controles desde un procedimiento...

juanpi
26 de Mayo del 2005
Que tal a todos...
Quiero generar un procedimiento publico sencillo que limpie todas las casillas de texto y combos del formulario del cual estoy llamando al procedimiento.
En un modulo tengo lo siguiente:

Public Sub LimpiarControles(formulario)
For Each Controls In formulario
Control.Text = ""
Next
End Sub

y desde un boton de Form1 tengo esto:

Private Sub Command1_Click()
Module1.LimpiarControles ("Form1")
End Sub

Que estoy haciendo mal? Como debo realizar el llamado al procedimiento? Saludos...

emiliomiguez
26 de Mayo del 2005
Public Sub LimpiarControles(formulario)
Dim obj As Cotrol
For Each obj In formulario
If TypeOf obj Is TextBox Then obj.Text = vbNullString
ElseIf TypeOf obj Is ComboBox Then
obj.clear 'si quieres limpiar el combo completo
obj.ListIndex = -1 'Esto sirve para todos los combos.
End If
Next
End Sub

Un saludo.