Ver Mensaje Individual
  #3 (permalink)  
Antiguo 04/02/2005, 16:55
Avatar de reel
reel
 
Fecha de Ingreso: febrero-2004
Ubicación: Managua, Nicaragua
Mensajes: 496
Antigüedad: 21 años, 3 meses
Puntos: 1
El siguiente código lo utilizo para poder saber que tipo de control es y de esa forma realizar la operación necesaria.
Código:
Sub IniControls(myForm As Form)
    Dim cCtrl As Control
    For Each cCtrl In myForm.Controls
        If TypeOf cCtrl Is TextBox Then
            cCtrl.Text = ""
        ElseIf TypeOf cCtrl Is ComboBox Then
            If cCtrl.ListCount > 0 Then cCtrl.ListIndex = 0
        End If
    Next
End Sub
El objetivo del código es poner vacio todos los textbox y los combobox en su estado inicial.

Saludes
__________________
Leer es Saber, REEL.
Mi Blog