End Of erwartet (War: Problem!)

[Dan1eL]

Huhu Leutz,
Brauche Hilfe bei einem Code
Er sagt er erwartet eine "end-of" anweisung..
Keine Ahung was er meint!

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If RichTextBox1.Text = "Aus wie vielen Leuten besteht ein Fussball Team" Then
             TextBox1.Text = "11" Then
            MsgBox("Antwort ist Richtig!")
        Else
            MsgBox("Antwort ist Flasch!")
        End If

    End Sub

Bitte um Hilfe
mfg

 

[Dario Linsky]

Hallo,

schau dir mal diese Zeilen an:

If RichTextBox1.Text = "Aus wie vielen Leuten besteht ein Fussball Team" Then
    TextBox1.Text = "11" Then

Da ist ein Then zu viel (oder ein If bzw. And zu wenig).

Grüße, D.

 

[Dan1eL]

Auf das hab ich garnicht geachtet!
Danke für die Hilfe !

mfg

 

[Dan1eL]

Ich hab noch eine Frage:

Wie geht der Code das "ein" Text per Button Klick von einer der 10 verschiedenen Textboxen in einer Richtextbox steht?
Also durch Zufallsgenerator!

mfg

[Ich habe es in diesen Thread geschrieben weil ein weitiger unnötig gewesen wäre!]

 

[Arster-Boy]

So geht das:

        Dim Variable As String
        Randomize()
        Rnd((Variable) * 10)
        Label.Text = CStr("TextBox" & Variable & ".Text")

 

[Dan1eL]

wenn ich auf den button drücke kommt imma nur der selbe Textbox.Text