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.
Du musst angemeldet sein, um einen Kommentar abzugeben.
Können Sie nicht code nach dem "UND" ein ANDERES auf einer anderen Linie:
Code:
Update:
oder:
Ort oder einem Unterstrich am Ende:
Wenn Sie beginnen, einen code-block mit
If
Sie muss ein Ende haben, dass code-block mitEnd If
.Sehe ich nicht
End If
in IhrenCase
Blöcke.Hier ist ein Beispiel aus der MSDN: wenn du es alles in einer Zeile, die Sie nicht brauchen, die
End If
-oder-
Können Sie auch die
If
Betreiber:Ich hatte das gleiche Problem mit diesem code und gelöst:
Offensichtlich, müssen Sie auch Platz ein, wenn Sie vor dem end if und else if, obwohl es ist eine bereits vorhanden ( VB 2010 )