Limpar Campos

[BrunoVeríssimo]

Eu quero limpar os campos do form, mas pra isso estou usando Modulo pra poder usar o recurso em todas as telas....eu to usando assim....

Public Sub LIMPACAMPOS(ByRef Formulario As Form)

Dim Controles As Object

For Each Controles In Formulario

If TypeOf Controles Is TextBox Then

Controles.Text = ""

Else

If TypeOf Controles Is CheckBox Then

Controles.Value = False

End If

End If

Next

End Sub

...não tem como eu usar um Select case pra diminuir o tamanho do código???

[kuroi]

não. mas pode tirar uns end ifs, fazendo assim:

For Each Controles In Formulario
If TypeOf Controles Is TextBox Then
Controles.Text = ""
ElseIf TypeOf Controles Is CheckBox Then
Controles.Value = False
End If
Next
End Sub[/code]

[BrunoVeríssimo]

é uma pena que não dá!!!!

Mas fazer o que né??? O vb não pode fazer td também....

vamo usar os ifs mesmo.....

Vlw

[Graymalkin]

Você pode fazer com o Select Case da seguinte maneira:

        Select Case TypeName(controle)
            Case "TextBox"
                controle.Text = ""
            Case "CheckBox"
                controle.Value = False
        End Select

Certo? ;)

Graymalkin

[BrunoVeríssimo]

Vlw Gray....

Funfo o barato!!!