Picturebox bei Klick Bild ändern

sdcleitung · 11. Januar 2010, 19:59

Hey,
ich würde gerne das Bild einer Picturebox beim ersten Klick in das Bild audio_off.png ändern und bei erneutem Klick wieder zu audio_on.png ändern...

Wie kann ich das machen?

Danke schonmal

darksplain · 11. Januar 2010, 20:13

Zuerst die Bilder in den ressourcenmanager laden !
Dann wählst du die picturebox in den eigenschaften aus, gehst auf events und dann auf MouseClick!
Im codefenster tippst du dann unter dem clickevent diesen code ein

Quellcode

PictureBox1.Image = My.Resources.wiedasgewünschtebildheißt

PictureBox1 musst du ggf. noch in den namen deiner picturebox umändern !

mfg

Kouki · 11. Januar 2010, 20:15

Wenn du beide Bilder in den Ressoucen hast, geht das mit If-Abfragen:

VB.NET-Quellcode

If PictureBox1.Image = My.Ressources.[Bild] Then
PictureBox1.Image = [anderes Bild]
End If

darksplain · 11. Januar 2010, 20:17

achso stimmt nimm die Lösung von Kuoki, ich hab gedacht du wolltest das Bild nur einmal ändern und nicht wieder zurückändern !

mfg

sdcleitung · 11. Januar 2010, 20:42

Hey,
Danke für die schnellen Antworten. Ja ich möchte es wieder zurück ändern ...

Wie ich ein Bild via Click ändere weiß ich ...
Wenn ich das jetzt aber mit My.Resources mache kommt nur:

Resources ist kein Member von My

Muss ich da irgendetws deklarieren oder so?

VCJunk · 11. Januar 2010, 21:09

Kouki hatte ein doppeltes s, das darf nicht sein, also so:

VB.NET-Quellcode

If PictureBox1.Image = My.Resources.[Bild] Then
PictureBox1.Image = [anderes Bild]
End If

ChaosBernd · 11. Januar 2010, 21:28

ihr vergesst immer das Else, wenn er beim ersten Click das Bild ändert, bleibt es ewig auf dem Zweiten Bild stehen und kann nicht zurückwechseln.

VB.NET-Quellcode

If PictureBox1.Image = My.Resources.ErsteBild Then
PictureBox1.Image = My.Resources.ZweiteBild
Else
PictureBox1.Image = My.Resources.ErsteBild
End If

VCJunk · 11. Januar 2010, 21:33

Das war beabsichtigt. Ich denke der Threadersteller soll auch noch was lernen

Wenn man einen fertigen Code gibt, so wie du, dann lernt er nix und fragt, dann bald wieder so eine Anfänger-Frage!

fraju · 11. Januar 2010, 21:35

Ich dachte schon es merkt keiner

edit: Hallo VCJunk
Dies sieht immer als Ausrede aus, besser ganz unterlassen.
Trotzdem ist es passend einen richtigen Code zu geben,der Fragende hat sonst mehr Arbeit als wenn er gleich sucht.

Gruß

sdcleitung · 11. Januar 2010, 21:38

Hey,
Danke für die vielen und schnellen Antworten ...

Bei mir müsste es dann angepasst alles so aussehen:

VB.NET-Quellcode

If PictureBox11.Image = My.Resources.audio_on Then
PictureBox11.Image = My.Resources.audio_off
Else
PictureBox11.Image = My.Resources.audio_on
End If

Allerdings unterstreicht er die 1. Zeile und meint:

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

Was kann ich dagegen tun?

ChaosBernd · 11. Januar 2010, 21:41

Das soll besitmmt

PictureBox.BachgroundImage

heisen.

VCJunk · 11. Januar 2010, 22:15

Backgroundimage? Eine Picturebox ist für Pictures = Bilder

Also ist Image schon richtig!

Ich weiß gerade nicht, wie man das jetzt überprüfen kann, als not lösung würde ich jetzt einfach mal eine Boolean Variable vorschlagen:

VB.NET-Quellcode

Option Strict On
Public Class Form1
Dim bild1 As Boolean = True
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If bild1 = True Then
PictureBox11.Image = My.Resources.audio_off
bild1 = False
Else
PictureBox11.Image = My.Resources.audio_on
bild1 = True
End If
End Sub
End Class

sdcleitung · 12. Januar 2010, 16:48

sdcleitung schrieb:

Hey,
Danke für die vielen und schnellen Antworten ...

Bei mir müsste es dann angepasst alles so aussehen:

VB.NET-Quellcode

If PictureBox11.Image = My.Resources.audio_on Then

PictureBox11.Image = My.Resources.audio_off

Else

PictureBox11.Image = My.Resources.audio_on

End If

Allerdings unterstreicht er die 1. Zeile und meint:

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

Was kann ich dagegen tun?

Hey,
es ging jetzt hier um die Frage ... Deshalb verstehe ich nicht was du mir mit dem Code sagen willst ...

nicgenie · 12. Januar 2010, 16:58

Sry wenn ich mich täusche:

VB.NET-Quellcode

If PictureBox11.Image.Equals(My.Resources.audio_on) Then
PictureBox11.Image = My.Resources.audio_off
Else
PictureBox11.Image = My.Resources.audio_on
End If

ChaosBernd · 12. Januar 2010, 17:32

So nun hatte ich mehr Zeit.
Wie ich gesagt habe, als BackgroundImage mit der Einstelleung Zoom. Dann hast du auch gleich die Reichtige größe ohne noch umwandeln zu müssem.

VB.NET-Quellcode

Private Sub AusResource()
Dim MyImage As Bitmap = Nothing
MyImage = My.Resources.Bild1
If (MyImage IsNot Nothing) Then
MyImage.Dispose()
End If
Try
MyImage = New Bitmap(My.Resources.Bild1)
Catch ex As Exception
End Try
PictureBox1.BackgroundImageLayout = ImageLayout.Zoom
PictureBox1.BackgroundImage = CType(MyImage, Image) ' nimmst du es als Backgorund Image, hast du geleich Zoom z.Auswahl
End Sub

Und das nu in deine If Then Else eingebaut, und gut is.

@ VCJunk: du hast ja recht mit dem was du sagst, aber je länger ich das Forum in betracht nehme. Die machen nur C&P. siehste doch in diesem Beispiel wieder sehr schön.
Da kommt ein Fehler und die suchen nicht lange, und lesen schon garnicht.

sdcleitung · 12. Januar 2010, 20:31

Hey,
nicgenie
Deine Lösung sieht einleuchtend aus, aber irgendwie funktioniert die bei mir nicht.
Ich habe jetzt schon verschiedenes ausprobiert. Bei der besagten PictureBox steht bei Image:

Programm.My.Resources.Resources.audio_on

ich habe den Code jetzt auchschon in der 1. Zeile eingegeben statt des My.Resources.Resources.audio_on aber es funktioniert nicht.
wenn ich den gesammten Code ändere in:

VB.NET-Quellcode

If PictureBox11.Image.Equals(My.Resources.Resources.audio_on) Then
PictureBox11.Image = My.Resources.audio_off
Else
PictureBox11.Image = My.Resources.audio_off
End If

Dann ändert sich das Bild, also denkt es wohl das als Picture nicht My.Resources.Resources.audio_on, aber warum?

sdcleitung · 13. Januar 2010, 18:30

Hey,
kann mir das niemand von euch erklären ?

Beep! · 13. Januar 2010, 18:32

Mann, bist du blind? Da steht zweimal audio_off..

sdcleitung · 13. Januar 2010, 18:35

Ich bin nicht blind ...
aber du solltest den Beitrag vielleicht mal richtig lesen ...

Wenn ich es darauf ändere das da zweimal off steht dann ändert sich das Bild von on zu off, d.h. das Programm denkt als Bild wäre nicht audio on geladen.

Meine Frage war warum es das denkt?

Mono · 14. Januar 2010, 02:10

VB.NET-Quellcode

Public Class Form1
Private Image1 As Image = My.Resources.Blaue_Berge
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
If (PictureBox1.Image Is Image1) Then
PictureBox1.Image = My.Resources.Sonnenuntergang
Else
PictureBox1.Image = Image1
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize'optional
PictureBox1.Image = Image1
End Sub
End Class

so gehts(res pic namen anpassen;))

gruss mono

Picturebox bei Klick Bild ändern

Picturebox bei Klick Bild ändern

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

sdcleitung schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben