BOTAO COM ENABLED TRUE OU FALSE.

AMOVB 30/12/2013 00:16:15
#432520
Galera, to com um problema aqui em um botão. Eu coloco nele uma condição, caso esta condição seja verdadeira, ele estara com o Enabled no False, caso for falsa, ele estara com o Enabled no True.

Eu quero que enquanto as TextBoxes estiverem vazias, o botão esteja indisponivel para clicar.

Vejam meu código:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If TextBox1.Text = [Ô][Ô] And TextBox2.Text = [Ô][Ô] And TextBox3.Text = [Ô][Ô] And TextBox4.Text = [Ô][Ô] And TextBox5.Text = [Ô][Ô] And TextBox6.Text = [Ô][Ô] And TextBox7.Text = [Ô][Ô] Then
Button2.Enabled = False
Else

End If
End Sub

Quero saber se meu código esta certo... reparem que eu coloquei ele para rodar este código, quando o Form carregar (: quero saber se está errado ^^[ô]

Obrigado !
OMAR2011 30/12/2013 14:56:42
#432531
Acho que o efeito não vai ser o desejado.
Desabilita no próprio form.
Ai habilita onde quiser.
Use desta forma.
If TextBox1.Text.Trim = [Ô][Ô] Or TextBox2.Text.Trim = [Ô][Ô] Or TextBox3.Text.trim = [Ô][Ô] Or TextBox4.Text.Trim = [Ô][Ô] Or TextBox5.Text.Trim = [Ô][Ô] Or TextBox6.Text.Trim = [Ô][Ô] Or TextBox7.Text.Trim = [Ô][Ô] Then
Use sempre o Trim.
PROGRAMADORVB6 30/12/2013 22:12:14
#432550 
 Public Class Form1
    Private Sub ActiveButton(ByVal root As Control)
        For Each cntrl As Control In root.Controls

            If TypeOf cntrl Is TextBox Then
                If CType(cntrl, TextBox).Text = String.Empty Then
                    Me.Button2.Enabled = False
                Else
                    Me.Button2.Enabled = True

                End If
            End If
        Next (cntrl)

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ActiveButton(Me)
    End Sub
PEDROALSOI 31/12/2013 08:41:05
#432554 Resposta escolhida
Coloque um timer e coloque o code:

Citação:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If TextBox1.Text = [Ô][Ô] And TextBox2.Text = [Ô][Ô] And TextBox3.Text = [Ô][Ô] And TextBox4.Text = [Ô][Ô] And TextBox5.Text = [Ô][Ô] And TextBox6.Text = [Ô][Ô] And TextBox7.Text = [Ô][Ô] Then
Button2.Enabled = False

End If
End Sub

PEGUDO 31/12/2013 11:47:34
#432565
Cara,
Eu usaria o código do ProgramadorVB6, mas utilizando o TextChanged dos TextBoxes:
Suponha que eu tenha 5 TextBoxes: TextBox1, TextBox2, TextBox3, TextBox4, TextBox5

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged, TextBox4.TextChanged, TextBox5.TextChanged
        Button2.Enabled = ControlaBotao()
    End Sub

    [txt-color=#0000f0]Private Function[/txt-color] ControlaBotao() [txt-color=#0000f0]As Boolean[/txt-color]
        ControlaBotao = [txt-color=#0000f0]True

        For Each[/txt-color] caixa As TextBox In Me.Controls.OfType(Of TextBox)()
            If caixa.Text = [txt-color=#e80000][Ô][Ô][/txt-color] Then
                ControlaBotao = [txt-color=#0000f0]False
                Exit For
            End If
        Next

        Return[/txt-color] ControlaBotao
    End Function
PEDROALSOI 31/12/2013 17:32:29
#432571
faz o seguinte mande o projeto que analisamos e te mandamos com o code certo.
AMOVB 02/01/2014 23:09:04
#432605
Citação:

:
Coloque um timer e coloque o code:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If TextBox1.Text = [Ô][Ô] And TextBox2.Text = [Ô][Ô] And TextBox3.Text = [Ô][Ô] And TextBox4.Text = [Ô][Ô] And TextBox5.Text = [Ô][Ô] And TextBox6.Text = [Ô][Ô] And TextBox7.Text = [Ô][Ô] Then
Button2.Enabled = False

End If
End Sub



Me salvou ! ;3
Obrigado cara, tinha me esquecido do Timer kkkk[ô] muito obrigado ^^[ô]
Tópico encerrado , respostas não são mais permitidas
Voltar