Probleme mit If und Else-Anweisungen in Visual Basic

Baue ich ein Programm erzeugt nach dem Zufallsprinzip eine Nummer diese Nummer wird dann verknüpft mit einem Bild, das zeigt, in ein Bild-Feld. Ich habe eine, eine text-box unten, und eines der Bilder ist variabel, je nachdem, was Sie dieses Textfeld, sagt, so habe ich einige if-und else-Anweisungen. Aber ich bekomme diese Fehlermeldung, 'Else' muss vorangestellt werden, ein zugehöriges 'If' oder 'ElseIf'. Es gibt wohl eine einfache Lösung, das ich einfach nicht sehen, hier ist der code.

Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Timer1.Start()
    Dim key As Integer
    key = (Rnd() * 3)
    Select Case key
        Case 1
            Label14.Text = "Assault"
        Case 2
            Label14.Text = "Support"
        Case 3
            Label14.Text = "Specialist"
    End Select
    If Label14.Text = "Assault" Then
        Timer1.Start()
        Dim key1 As Integer
        key1 = (Rnd() * 15)
        Select Case key1
            Case 1
                PictureBox10.Image = My.Resources.assault_1
                TextBox7.Text = "AC130"
                If TextBox14.Text = "Hardline" Then TextBox8.Text = "11"
                Else TextBox8.Text = "12"
            Case 2
                PictureBox10.Image = My.Resources.assault_2
                TextBox7.Text = "Care Package"
                If TextBox14.Text = "Hardline" Then TextBox8.Text = "3"
                Else TextBox8.Text = "4"
            Case 3
                PictureBox10.Image = My.Resources.assault_3
                TextBox7.Text = "Juggernaut"
                If TextBox14.Text = "Hardline" Then TextBox8.Text = "14"
                Else TextBox8.Text = "15"
            Case 4
                PictureBox10.Image = My.Resources.assault_4
                TextBox7.Text = "Attack Helicopter"
                If TextBox14.Text = "Hardline" Then TextBox8.Text = "6"
                Else TextBox8.Text = "7"
            Case 5
                PictureBox10.Image = My.Resources.assault_5
                TextBox7.Text = "Pave Low"
                If TextBox14.Text = "Hardline" Then TextBox8.Text = "11"
                Else TextBox8.Text = "12"
            Case 6
                PictureBox10.Image = My.Resources.assault_6
                TextBox7.Text = "IMS"
                If TextBox14.Text = "Hardline" Then TextBox8.Text = "4"
                Else TextBox8.Text = "5"
            Case 7
                PictureBox10.Image = My.Resources.assault_7
                TextBox7.Text = "Assault Drone"
                If TextBox14.Text = "Hardline" Then TextBox8.Text = "9"
                Else TextBox8.Text = "10"
            Case 8
                PictureBox10.Image = My.Resources.assault_8
                TextBox7.Text = "Strafe Run"
                If TextBox14.Text = "Hardline" Then TextBox8.Text = "8"
                Else TextBox8.Text = "9"
            Case 9
                PictureBox10.Image = My.Resources.assault_9
                TextBox7.Text = "AH-6 Overwatch"
                If TextBox14.Text = "Hardline" Then TextBox8.Text = "8"
                Else TextBox8.Text = "9"
            Case 10
                PictureBox10.Image = My.Resources.assault_10
                TextBox7.Text = "Osprey Gunner"
                If TextBox14.Text = "Hardline" Then TextBox8.Text = "16"
                Else TextBox8.Text = "15"
            Case 11
                PictureBox10.Image = My.Resources.assault_11
                TextBox7.Text = "Percision Airstrike"
                If TextBox14.Text = "Hardline" Then TextBox8.Text = "5"
                Else TextBox8.Text = "6"
            Case 12
                PictureBox10.Image = My.Resources.assault_12
                TextBox7.Text = "Predator Missile"
                If TextBox14.Text = "Hardline" Then TextBox8.Text = "4"
                Else TextBox8.Text = "5"
            Case 13
                PictureBox10.Image = My.Resources.assault_13
                TextBox7.Text = "Reaper"
                If TextBox14.Text = "Hardline" Then TextBox8.Text = "8"
                Else TextBox8.Text = "9"
            Case 14
                PictureBox10.Image = My.Resources.assault_14
                TextBox7.Text = "Sentry Gun"
                If TextBox14.Text = "Hardline" Then TextBox8.Text = "4"
               Else  TextBox8.Text = "5"
            Case 15
                PictureBox10.Image = My.Resources.assault_15
                TextBox7.Text = "Assault UAV"
                If TextBox14.Text = "Hardline" Then TextBox8.Text = "2"
                Else TextBox8.Text = "3"

        End Select
    End If
End Sub
  • Bitte verkürzen Sie den Beispiel-code in die Fragen der Zukunft.
InformationsquelleAutor hammy78 | 2012-02-18
Schreibe einen Kommentar