COMO LIMPAR UM COMBOBOX E UM OPTION BUTTON
Olha eu de novo.
Ao invès de apagar um campo de texto ,preciso apagar um campo com combobox.
Alias dar um limpa total na tela.
Data e texto eu sei apagar mais e combo e option button
Mask e Text - ok
Ao invès de apagar um campo de texto ,preciso apagar um campo com combobox.
Alias dar um limpa total na tela.
Data e texto eu sei apagar mais e combo e option button
Mask e Text - ok
Ah outra tela.
faça uma sub e tal, ae usa essa sub na rotina
Sub LimparCampos(NomeForm As Form)
'On Error Resume Next
Dim Controle As Control
For Each Controle In NomeForm.Controls
If TypeOf Controle Is CheckBox Then Controle.Value = 0
If TypeOf Controle Is TextBox Then Controle.Text = ""
If TypeOf Controle Is ComboBox Then Controle.ListIndex = 0
' If TypeOf Controle Is Image Then Controle.Picture = Nothing
Next Controle
Olá AllanFox! Boa Tarde! Para apagar o ComboBox utilize: seuCombo.Clear, isto limpará todos os dados nele registrados, mas, se vc for apagar só o texto que está visÃÂÂvel vc utiliza: seuCombo.Text = "" (sem espaço entre as aspas), para retirar a marca de um option button vc usa seuOptionButton.Value = False, ou seja, False (Sem marcação) ou True (com marcação), lembrando que apenas um destes controles pode ficar como True de cada vez.
Se ajudei... Saiba que estou aprendendo junto com vc.
Tenha um ótimo final de semana!
Nunca se envergonhe de perguntar, pois até hoje pessoas fazem coisas erradas por receio de perguntar quais as certas, vivendo assim de tentativa e erro.
Se ajudei... Saiba que estou aprendendo junto com vc.
Tenha um ótimo final de semana!
Nunca se envergonhe de perguntar, pois até hoje pessoas fazem coisas erradas por receio de perguntar quais as certas, vivendo assim de tentativa e erro.
Só melhorando o código do Guto...
Troque essa frase:
If TypeOf Controle Is ComboBox Then Controle.ListIndex = 0
Por:
If TypeOf Controle Is ComboBox Then Controle.ListIndex = -1
Pq no combobox existe o item 0..
E pronto..vai funcionar show de bola!
Boa sorte
é verdade, foi mal ae
VICENTEBR primeiramente agradeço.
Que bom que estamos aprendendo junto.
Mas fui tentar usar seu codigo nesse campo e da pau das duas formas.
Essa função apaga os campos ,só que da pau quando eu dou um limpar sabe porque ?
Irei testar da outra forma que meus colegas estão falando.
Que bom que estamos aprendendo junto.
Mas fui tentar usar seu codigo nesse campo e da pau das duas formas.
Essa função apaga os campos ,só que da pau quando eu dou um limpar sabe porque ?
Irei testar da outra forma que meus colegas estão falando.
Private Sub Limpar_Click()
'Funcao Limpar
tb_ssti_null.Text = ""
tb_num_ssti.Text = ""
tb_asu.Text = ""
cb_ssti.Text = ""
End Sub
allan para "apagar" a combobox bastar fazer assim:
cbo_Suacombo.ListIndex = -1
e o option button se nao me engano eh
opt_Seubotao.Value = False
t+
cbo_Suacombo.ListIndex = -1
e o option button se nao me engano eh
opt_Seubotao.Value = False
t+
Blz cara
O option button blz ,ja tinha feito meu problema mesmo estava no combobox mesmo.
Mais uma vez valeu.
A cada dia mais aprendendo por causa de vcs.
O option button blz ,ja tinha feito meu problema mesmo estava no combobox mesmo.
Mais uma vez valeu.
A cada dia mais aprendendo por causa de vcs.
Tópico encerrado , respostas não são mais permitidas