Ir para conteúdo
Fórum Script Brasil
  • 0

Limpar Campos


BrunoVeríssimo

Pergunta

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???

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...