Captcha

05/23/2010 21:52 Chain Reaction#1
Hey Leute
ich bin grade bei visual basic 2010 an einem captcha dran

Ich habe einen Button, der einen Zahlencode in einer Textbox generiert.
dieser text der generiert wird, soll in eine zweite textbox eingegeben werden.
dann soll per if geguckt werden ob der text in textbox 1 und in textbox 2 gleich sind.
wenn dies der fall ist soll das panel unsichtbar werden.

soweit bin ich schon

zahlengenerator :
PHP Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rnd As Random
        Dim number As Integer
        rnd = New Random
        number = rnd.Next(1, 300000)
        TextBox1.Text = number.ToString
    End Sub 
Dann habe ich es mit dem folgendem code beim panel versucht:
PHP Code:
If TextBox1.Text = TextBox2.Text Then 
Panel.Visible = False 
ich glaub es klappt nicht, weil ja direkt am anfang beim debuggen die textboxen ja leer sind und dann das programm sich halt denkt, dass die texte gleich sind und dann halt das panel " unsichtbar macht"

habt ihr eine bessere lösung?
danke
05/23/2010 21:58 Chain Reaction#2
Alles klar hat sich erledigt:

habs so gemacht:
PHP Code:
Public Class Form1





    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rnd As Random
        Dim number As Integer
        rnd = New Random
        number = rnd.Next(1, 300000)
        TextBox1.Text = number.ToString
    End Sub

   
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TextBox2.Enabled = True
        End If
    End Sub

    Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
        If CheckBox1.Checked = True Then
            If TextBox1.Text = TextBox2.Text Then
                Panel1.Visible = False
            End If
        End If
    End Sub
End Class 
trotzdem hab ich noch eine frage.

ich hätte es jetzt gerne so, dass wenn in textbox2 was anderes als in textbox1 drin steht, dass dann ein label sichtbar wird wo z.b. steht "falscher code"
ich habe es mit
PHP Code:
If TextBox2.Text = Not TextBox1.Text Then 
Label1.Visible = True 
Klappt aber nicht

edit: k ich habs
hab es mit else gemacht
PHP Code:
  If CheckBox1.Checked Then
            If TextBox2.Text = TextBox1.Text Then
                Panel1.Visible = False
            Else : Label1.Visible = True


            End If