Visual Basic 6 - Dove sbaglio?

Forum - Visual Basic 6 - Dove sbaglio?

zerosat (Normal User)
Newbie

Messaggi: 2
Iscritto: 30/04/2009

Postato alle 16:06
Giovedì, 27/08/2009

Questo topic è stato chiuso dal moderatore

Salve a tutti, in questo momento sto scrivendo un piccolo programmino che in pratica schiacciando dei button compaiono dei numeri su una textbox e se i numeri che ho schiacciato sono ad esempio 554 allora un'altro butto che era disabilitato ora si abiliterà...
Il problema è che se io schiaccio quei numeri (554), la button non si abilita...
Ora vi posto il codice:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If TextBox1.Text = "5 & "5" & "4" then
            Button1.Enabled = True
        End If
    End Sub
-----------------------------------------------------------------------------------------
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = TextBox1.Text & "1"
    End Sub
-----------------------------------------------------------------------------------------
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = TextBox1.Text & "2"
    End Sub
-----------------------------------------------------------------------------------------
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = TextBox1.Text & "3"
    End Sub
-----------------------------------------------------------------------------------------
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = TextBox1.Text & "4"
    End Sub
-----------------------------------------------------------------------------------------
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Text = TextBox1.Text & "5"
    End Sub
-----------------------------------------------------------------------------------------
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Text = TextBox1.Text & "6"
    End Sub
-----------------------------------------------------------------------------------------
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Text = TextBox1.Text & "7"
    End Sub
-----------------------------------------------------------------------------------------
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox1.Text = TextBox1.Text & "8"
    End Sub
-----------------------------------------------------------------------------------------
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox1.Text = TextBox1.Text & "9"
    End Sub
-----------------------------------------------------------------------------------------
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        TextBox1.Text = TextBox1.Text & "a"
    End Sub
-----------------------------------------------------------------------------------------
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        TextBox1.Text = TextBox1.Text & "0"
    End Sub
-----------------------------------------------------------------------------------------
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        TextBox1.Text = TextBox1.Text & "b"
    End Sub
-----------------------------------------------------------------------------------------
    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Close()
    End Sub
-----------------------------------------------------------------------------------------
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
-----------------------------------------------------------------------------------------
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        TextBox1.Text = ""
    End Sub
End Class

Ps. grazie in anticipo

BigMitch (Member)
Rookie

Messaggi: 43
Iscritto: 15/02/2009

Postato alle 17:28
Giovedì, 27/08/2009

Salve intanto ti dico ke hai postato nella parte del forum sbagliato il codice che hai postato e VB.NET e non VB 6.

Poi non si capisce tanto che vuoi fare però da quello ke si vede ogni volta ke premi una button alla textbox aggiungi un valore ma se vuoi controllare il risultato della textbox inserisci un evento change della text ke al momento della modifica della text controlla se è il numero ke interessa a te....poi nell'evento load hai messo il controllo ke ti abilita un pulsante..ma metti di default il valore 554? poi per controllare puoi mettere anke

       If TextBox1.Text = "554" then
            Button1.Enabled = True
        End If

Ciao fammi sapere

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 19:30
Giovedì, 27/08/2009

1) Il codice è più bello a vedersi dentro ai tag [ code ][ /code ] (senza spazi)

2) Essendo un problema riguardante il vb.net chiudo