[Ravikna]

Hallo Leute, ich hoffe ich bin hier richtig. Es geht um ein Programm in Visual Basic. Ich habe zwei Bilder und eine Picturebox. Bild 1 ist beim Start schon in der Picturebox, wenn ich auf einen Button drücke erscheint Bild 2. Soweit so gut, nur wie stelle ich es an das nach erneutem Druck auf den Button wieder Bild 1 erscheint? Ich bin echt mit meinem Latein am Ende, und hoffe, das ihr mir helfen könnt. Hier ist mein Code den ich bis jetzt habe:

Public Class Form1

Dim aktuellesBild As Integer = 0




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

Select Case aktuellesBild

Case 0
PictureBox1.Image = My.Resources._2




End Select


aktuellesBild += 1



End Sub

[Your_Conscience]

Ich kenne jetzt die Syntax von VB nicht genau, aber man könnte es so machen:

if (PictureBox1.Image = My.Resources._2)
PictureBox1.Image = My.Resources._1
else PictureBox1.Image = My.Resources._2

[Ravikna]

"Der =-Operator ist für die Typen "System.Drawing.Image" und "System.Drawing.Bitmap" nicht definiert."

[bibaboon80]

Select Case aktuellesBild

Case 0
PictureBox1.Image = My.Resources._2
aktuellesBild = 1
Case 1
PictureBox1.Image = My.Resources._1
aktuellesBild = 0
End Select


Ist das VB6 oder was? += und so sachen funktionieren doch in vb gar nicht oder täusch mich.

Auch das du deine Variable gleich vorbelegst:
Dim aktuellesBild As Integer = 0

das geht so viel ich weiss auh nicht.

Oder programmierst du VB.NET? dann ist es was anderes....

[vangelios]

Dim aktuellesBild As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Select Case aktuellesBild
Case 0
PictureBox1.BackgroundImage = My.Resources._1
aktuellesBild = 1
Case 1
PictureBox1.BackgroundImage = My.Resources._0
aktuellesBild = 0
End Select
End Sub

Ein "Problem" ist das allerdings nicht. Wenn doch, sieht es ganz duster aus für die Zukunft.

[Sodomie]

Das stellst du mit einer if an

Private Sub [...] Handles Button1.Click (Beim klick vom Button)

if Picturebox = 2
PictureBox1.BackgroundImage = My.Resources._0 (Bild 1)
else
=+1

Bedeuted:
Wenn wir auf Bild 2 sind und Button klicken, dann öffne Bild 1

anderenfalls (else)

+=1 (Das nächste Bild)

[AtPeterG]

Das geht viel einfacher:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Select Case picturebox.image
        Case Picturebox1.Image = My.Resources._1
            PictureBox1.Image = My.Resources._2
        Case else
            PictureBox1.Image = My.Resources._1
        End Select
End Sub

Das geht auch mit einer "if then" Abfrage.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If Picturebox1.Image = My.Resources._1 then
            PictureBox1.Image = My.Resources._2
        else
            PictureBox1.Image = My.Resources._1
        End if
End Sub

Vorher natürlich die Bilder in die Resouces des Projektes laden.

[Sodomie]

lol, was für einfacher

[AtPeterG]

Um dich zu beruhigen, deine Antwort ist eindeutiger Quatsch.

[NetWebs]

Sorry, er hat aber absolut recht. Daher scheinst du nicht wirklich Ahnung von der Materie zu haben.

[AtPeterG]

Bitte erkläre mir das, warum das so sein soll.

[AtPeterG]

Nein, sagt mir nichts. Bitte erkläre mir, was das ist. Und warum man das braucht um Bilder in eine Picturebox unter vb.net zu laden. Ich weiß das wirklich nicht.

[ProgMaster]

Da du beruflich nichts in der Richtung machst, ist es irrelevant, wie du unter VB.NET programmierst. Daher kannst du deine PictureBox und was auch immer 'dreckig' (so nennt man das im Programmier-Jargon, wenn man z.B. gegen SOLID-Prinzipien verstößt) befüllen.