Wie kann man in einem Command Button einstellen, das wenn man drauf klickt das nächste lied abgespielt werden soll?
Ich habe zwei Lieder im Ressource file
Im Form_Load steht dass:
Code:
Private Sub Form_Load()
Dim buffer() As Byte
buffer = LoadResData(101, "CUSTOM")
Open Environ("temp") & "\test.mp3" For Binary As #1
Put #1, , buffer
Close #1
WMP.URL = Environ("temp") & "\test.mp3"
WMP.Controls.stop
Dim buffer2() As Byte
buffer2 = LoadResData(102, "CUSTOM")
Open Environ("temp") & "\test.mp3" For Binary As #2
Put #2, , buffer2
Close #2
WMP.URL = Environ("temp") & "\test.mp3"
WMP.Controls.stop
End Sub
Dann hab ich noch die Button Musik an und Musik Aus und Musik Pause.
alles funktioniert einwandfrei, aber ich kriegs nicht hin den Button Nächster Track so umzucoden dass der das auch macht, also iwie müsste das doch so gehen...
Code:
Dim buffer() As Byte
buffer = LoadResData(101+1 , "CUSTOM")
Open Environ("temp") & "\test.mp3" For Binary As #1
Put #1, , buffer
Close #1
Also das mit 101+1, Funktionieren will es aber nicht .
Registrieren
Login
