Hilfe bei IF, ELSEIF und ENDIF

Question

    Private Sub bild1()
        If zahl1 = 1 Then PictureBox1.Image = My.Resources.bild1
        Else IF
            zahl1 = 2 Then picturebox1.image = My.Resources.bild2

        End IF
    End Sub

Was habe ich falsch gemacht? bzw. kann mir jemand helfen
 

MFG Qw123wQ

Answer 1

Hi,

IIRC gab es auch bei VB 6 schon Select Case. Daher würde ich das eher so machen:

Select Case zahl1
    Case 1: PictureBox1.Image = My.Resources.bild1
    Case 2: PictureBox1.Image = My.Resources.bild2
    ...
    Case Else: ...
End Select

Falls Du deinen Code weiterverwenden willst: Da dürfte noch ein End If fehlen.

Aber generell der Hinweis: Poste bitte immer die genaue und vollständige Fehlermeldung.

---

Gruß, Stefan
Microsoft MVP - Visual Developer ASP/ASP.NET
http://www.asp-solutions.de/ - Consulting, Development
http://www.aspnetzone.de/ - ASP.NET Zone, die ASP.NET Community

Answer 2

    Private Sub bild1()
        If zahl1 = 1 Then PictureBox1.Image = My.Resources.bild1
        Else IF

In VB heisst der Befehl "ElseIf" und nicht "Else IF"

---

Olaf Helper

[ Blog] [ Xing] [ MVP]