HABILITAR BOTAO
amigos estou criando um software e gostaria de habilitar o botão somente dps que os textbox estivem preenchido mais não consigo.
if txtnome.text = [Ô][Ô] then
buton.enable = false
else
buton.enable = true
ou vc coloque na propriedade do botao enable FALSE dai coloque no evento lostfocus do campo isso
buton.enable = TRUE
buton.enable = false
else
buton.enable = true
ou vc coloque na propriedade do botao enable FALSE dai coloque no evento lostfocus do campo isso
buton.enable = TRUE
não funciono, eu coloquei no lostfocus do textbox desabilita e depois não habilita
Posta o código ou o projeto que ajustamos para você.
Uma maneira simples é você usar condição para cada textbox como FELLIPEASSIS postou,porém com uma mudança.
If Textbox1.Text.Trim = [Ô][Ô] Then
Exit Sub
End If
Coloque e verá, enquanto não preencher todos os campos não pode gravar ou alterar.
Mas tem que usa [txt-color=#e80000]Textbox1.Text.Trim [/txt-color],porque se usar a tecla de espaço sem o
trim vai aceitar.Basta fazer um teste.
Nenhum campo ficará vazio.
Valeu.
If Textbox1.Text.Trim = [Ô][Ô] Then
Exit Sub
End If
Coloque e verá, enquanto não preencher todos os campos não pode gravar ou alterar.
Mas tem que usa [txt-color=#e80000]Textbox1.Text.Trim [/txt-color],porque se usar a tecla de espaço sem o
trim vai aceitar.Basta fazer um teste.
Nenhum campo ficará vazio.
Valeu.
Ou você poderá fazer assim também:
Citação:No evento load do form coloque:
nomedobotao.enabled = false
No evente leave do ultimo textbox antes de ir para o botão coloque:
if textbox1.text = [Ô][Ô] and textbox2.text = [Ô][Ô] and textbox3.text = [Ô][Ô] then [ô]Assim por diante
MsgBox([Ô]é obrigatório o preenchimento de todos os dados![Ô])
Textbox1.focus
exit sub
else
nomedobotao.enabled = true
endif
No evente leave do ultimo textbox antes de ir para o botão coloque:
if textbox1.text = [Ô][Ô] and textbox2.text = [Ô][Ô] and textbox3.text = [Ô][Ô] then [ô]Assim por diante
MsgBox([Ô]é obrigatório o preenchimento de todos os dados![Ô])
Textbox1.focus
exit sub
else
nomedobotao.enabled = true
endif
Isto não funciona,sinto muito MAXGUIMEL.Tem que usar o Trim
[txt-color=#e80000]If TextBox1.Text.Trim = [Ô][Ô] And TextBox2.Text.Trim = [Ô][Ô] And TextBox3.Text.Trim = [Ô][Ô] Then [/txt-color]
if textbox1.text = [Ô][Ô] and textbox2.text = [Ô][Ô] and textbox3.text = [Ô][Ô] then [ô]Assim por diante
MsgBox([Ô]é obrigatório o preenchimento de todos os dados![Ô])
Textbox1.focus
exit sub
else
nomedobotao.enabled = true
endif
Isto não funciona,sinto muito MAXGUIMEL.Tem que usar o Trim
[txt-color=#e80000]If TextBox1.Text.Trim = [Ô][Ô] And TextBox2.Text.Trim = [Ô][Ô] And TextBox3.Text.Trim = [Ô][Ô] Then [/txt-color]
OMAR2011, comigo sempre funcionou... questão de saber posicionar o codigo.
Meu Caro MAXGUIMEL,você não entendeu o meu ponto de vista.
Pode colocar seu código onde quiser, ele vai ser falho.Isto porque,
não digita nada dentro do textbox use somente a tecla de espaço.
Um click dentro da caixa de texto e um espaço com a tecla de espaço
e execute.Ai vai encontra a falha.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Text1.Text.Trim = String.Empty Then [ô]Pode ser também [txt-color=#e80000][Ô][Ô][/txt-color]
MsgBox([Ô]Vazio[Ô])
Else
MsgBox([Ô]Cheio[Ô])
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Text1.Text = String.Empty Then [ô]Pode ser também [txt-color=#e80000][Ô][Ô][/txt-color]
MsgBox([Ô]Vazio[Ô])
Else
MsgBox([Ô]Cheio[Ô])
End If
End Sub
Faça o teste.
Pode colocar seu código onde quiser, ele vai ser falho.Isto porque,
não digita nada dentro do textbox use somente a tecla de espaço.
Um click dentro da caixa de texto e um espaço com a tecla de espaço
e execute.Ai vai encontra a falha.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Text1.Text.Trim = String.Empty Then [ô]Pode ser também [txt-color=#e80000][Ô][Ô][/txt-color]
MsgBox([Ô]Vazio[Ô])
Else
MsgBox([Ô]Cheio[Ô])
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Text1.Text = String.Empty Then [ô]Pode ser também [txt-color=#e80000][Ô][Ô][/txt-color]
MsgBox([Ô]Vazio[Ô])
Else
MsgBox([Ô]Cheio[Ô])
End If
End Sub
Faça o teste.
Querido OMAR2011 - Ah sim, agora entendi o que você queria dizer. Realmente faltou o comando Trim. Abraços!
Faça seu login para responder