USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Como funciona o botão de limpa?
kairos
IPATINGA
MG - BRASIL
Postada em 19/09/2006 11:51 hs         
Meu formulario tem muitos textbox e combobox para ser preenchido, e tem um botão escrito limpar que limpa todos estes campos.
Eu tenho que inserir um valor em branco em todos os botões quando clicar no botão limpar ou tem um código simples e fácil que faz isto.
Quem soube me fala!!!
Valeu!!!
     
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 19/09/2006 11:56 hs         
For i% = 0 to me.controls.count -1
    if typeof me.controls(i%) is TextBox then
      me.controls.text = ""
    end if
next i%
     
Dário Cardoso
não registrado
Postada em 19/09/2006 12:43 hs   
Mas funciona com as Combos tambem???
Como faria para limpar os Textbox e as combobox com o mesmo botão?????
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 19/09/2006 13:10 hs            
quase a mesma coisa, aproveitando o código do colega Kerplunk:
 
For i% = 0 to me.controls.count -1
    if typeof me.controls(i%) is ComboBox then
      me.controls.text = ""
    end if
next i%
 
at+ :)
     
kairos
IPATINGA
MG - BRASIL
Postada em 19/09/2006 14:42 hs         
O codigo não funcionou comigo!!! 
O que eu devo estar fazendo de errado???
Eu coloquei cada um textbox e combobox com um nome diferente será que é isso que está dando errado?
A palavra textbox ou me.controls do código acima deve ser substituída pelo nome do textbox? 
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 19/09/2006 15:05 hs            
Errei!!! desculpa faltou um item ae:
 
For i% = 0 to me.controls.count -1
    if typeof me.controls(i%) is ComboBox then
      me.controls(i%).text = ""
    end if
next i%
 
desculpa novamente
 
at+
 
obs.: mesma coisa pra textbox
     
Página(s): 1/2      PRÓXIMA »

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página