Home of Gamehacking - Archiv
Design Anpassen - Druckversion

+- Home of Gamehacking - Archiv (http://archiv-homeofgamehacking.de)
+-- Forum: Coding (http://archiv-homeofgamehacking.de/forumdisplay.php?fid=15)
+--- Forum: Visual Basic 6, VB.NET (http://archiv-homeofgamehacking.de/forumdisplay.php?fid=19)
+--- Thema: Design Anpassen (/showthread.php?tid=167)

Seiten: 1 2 3 4 5

RE: Design Anpassen - iNvIcTUs oRCuS - 24.12.2010

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

RE: Design Anpassen - fr33k - 24.12.2010

(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.....

RE: Design Anpassen - Bluespide - 24.12.2010

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



RE: Design Anpassen - chesar - 24.12.2010

(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.

RE: Design Anpassen - Bluespide - 24.12.2010

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.

RE: Design Anpassen - chesar - 24.12.2010

(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.

RE: Design Anpassen - iNvIcTUs oRCuS - 24.12.2010

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.

RE: Design Anpassen - chesar - 24.12.2010

Also brauch ich 2 Picture Boxen oder wie jetzt?

Noch mal :sleepy:

[Bild: xdco6vkt4pjp.png]

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.

RE: Design Anpassen - Bluespide - 24.12.2010

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



RE: Design Anpassen - DNA - 24.12.2010

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