Design Anpassen

[iNvIcTUs oRCuS]

Ich kann jetz mal nur von mir sprechen wie ich das in Delphi löse, aber ich denke in Visual Basic gibbet genau bzw. eine ähnliche Lösung.

Unter Delphi löse ich das Ganze mit einer IF/ELSE IF Anweisung und einer Booleschen Variable.

grEEtZ sILeNt heLLsCrEAm

[fr33k]

(24.12.2010, 01:22)sILeNt heLLsCrEAm schrieb: Ich kann jetz mal nur von mir sprechen wie ich das in Delphi löse, aber ich denke in Visual Basic gibbet genau bzw. eine ähnliche Lösung.

Unter Delphi löse ich das Ganze mit einer IF/ELSE IF Anweisung und einer Booleschen Variable.

grEEtZ sILeNt heLLsCrEAm

ist in VB nicht anders

if ....
elseif.....

[Bluespide]

bool braucht man garnicht einmahl, wenn du eine picturebox drüber legst würde es so schon gehen

Code:

1 2 3 4 5 6 7

If PictureBox1.Image IsNot Nothing Then PictureBox1.Image = Nothing 'Sound stoppen Else PictureBox1.Image = My.Resources.Image1 'Sound abspielen End If

---

[chesar]

(24.12.2010, 01:53)Bluespide schrieb: bool braucht man garnicht einmahl, wenn du eine picturebox drüber legst würde es so schon gehen

Code:

1 2 3 4 5 6 7

If PictureBox1.Image IsNot Nothing Then PictureBox1.Image = Nothing 'Sound stoppen Else PictureBox1.Image = My.Resources.Image1 'Sound abspielen End If

---

Ja mit if then else hatte ich auch die Idee, aber das mag nicht so recht gehen.

Code:

1 2 3 4 5 6 7

If musik.Image IsNot Nothing Then musik.Image = My.Resources.musikoff 'Sound stoppen Else musik.Image = My.Resources.musikon 'Sound abspielen End If

---

Geht nur ein mal Klicken, könnte Musik auf aus machen aber nicht wieder an.

[Bluespide]

Schon klar, weil die if auf Nothing überprüft. Du darfst nur den On Button aus den Resources laden und den Off hast du dann direkt im Hintergrundbild mit drinne.

[chesar]

(24.12.2010, 03:23)Bluespide schrieb: Schon klar, weil die if auf Nothing überprüft. Du darfst nur den On Button aus den Resources laden und den Off hast du dann direkt im Hintergrundbild mit drinne.

ja aber ich möchte das es beim erneuten Klicken wieder das Bild ON kommt also Musik ein.

[iNvIcTUs oRCuS]

Eben...
Wenn sein Sound einmal gestoppt ist bleibt dieser auch aus und lässt sich nicht mehr abspielen. Da er 2 Bilder dafür hat müsste er für jedes Bild diese Funktion schreiben. Weiterhin muss einer der Buttons, bzw. jeweils eines der Bilder, auf Visible gesetzt werden und das andere auf NonVisible bzw. Hidden.

Aber genau denselben Fall habe ich... Deswegen hantiere ich mit einem transparenten Label und fange direkt den Zustand von der UfMod Funktion ab.

[chesar]

Also brauch ich 2 Picture Boxen oder wie jetzt?

Noch mal :sleepy:



Ich Möchte Button Musik (eine Picture Box) klicken dann soll sich das Bild ändern in Rot und die Musik soll stoppen.
Beim erneuten klicken auf Musik soll der sich das Bild wieder ändern in Grün und die Musik soll wieder Spielen.

[Bluespide]

Code:

1 2 3 4 5 6 7

If PictureBox1.Image IsNot Nothing Then musik.Image = Nothing 'Code zum Sound abspielen Else musik.Image = My.Resources.musikoff 'Code zum Sound stoppen End If

---

[DNA]

Es gibt mehrere Möglichkeiten.

ich persönliche nutze folgende...

man nehme eine hilfsvariable z.B.

Dim Musik as Integer = 1
Dazu kommen 3 PictureBoxen
PictureBox1 bekommt das grüne Bild
PictureBox2 bekommt auch das grüne Bild
PictureBox3 bekommt das rote Bild

PictureBox1 muss so platziert werden, dass sie da ist, wo der Musik knopf sein soll
Die anderen beiden müssen entweder außerhalb der Form oder visible = false sein!

Beim Klick auf die PictureBox1 kommt folgender code rein:

Code:

1 2 3 4 5 6 7 8 9

If Musik = 1 Then PictureBox1.Image = PictureBox3.Image 'Code für Sound OFF Musik = 0 ElseIf Musik = 0 Then PictureBox1.Image = PictureBox2.Image 'Code für Sound ON Musik = 1 End If

---