martes, 26 de agosto de 2014

Limpia todos los campos de un formulario

Limpia el contenido de todos los campos de un formulario sin necesidad de limpia uno a uno.

Private Sub limpia_todo()
        For Each x As Control In Me.Controls
              If TypeOf x Is TextBox Then
                  x.Text = "" ' limpia todos lo textbox
              End If
              If TypeOf x Is ComboBox Then
                 x.Text = "" ' limpia todos los combobox
              End If
              If (TypeOf (x) Is CheckBox) Then
                  CType(x, CheckBox).Checked = False 'pone como FALSE todos los checkbox
              End If
              If TypeOf x Is DateTimePicker Then
                 x.Text = Date.Today ' limpia fecha de los datetimepicker
              End If
          Next
End Sub

Comparte