Audioplayer ließt cd nicht....

phpMars

Erfahrenes Mitglied
also ich habe jetzt mit VB angefangen und habe mir vorgenommen einen audio player zu erstellen.... naja der geht irgendwie net hab auch keine ahnung warum, kann mir jemand helfen?


Code:
Private Sub Form_Load()
MMControl1.Command = "Open"
MMControl1.TimeFormat = mciFormatTmsf
MMControl1.UpdateInterval = 50
End Sub
Private Sub Form1_Unload()
MMControl1.Command = "Stop"
MMControl1.Command = "Close"
End Sub

Private Sub Form1_StatusUpdate()
Dim Minute As Integer
Dim Sekunde As Integer

With MMControl1
    Minute = (.Position And &HFFFF&) \ &HFF
    Sekunde = (.Position \ &H10000) And &HFF
    Lebel1.Caption = "Track " & CStr(.Track) & ", Gespielt " & Format$(Minute, "00") & ":" & Format$(Sekunde, "00")
    End With
End Sub


Private Sub Label1_Click()

End Sub

Steuerelement-------Eigenschaft------Wert
Form1---------------Caption----------Mars's Audioplayer
Form1---------------BorderStyle------Fester Dialog
MMControl1----------DeciceType-------False
MMControl1----------BackVisible------False
MMControl1----------RecordVisible----False
MMControl1----------StepVisible------False
 

Daniel Toplak

Erfahrenes Mitglied
Also du musst schon einen DeviceType angeben, was er abspielen soll. Z.B. "CDAudio".

Versuch das mal so:
Code:
Private Sub Form_Load()
    'Anfangswerte für die Eigenschaften des
    'Multimediageräts setzen.
    MMControl1.Notify = False
    MMControl1.Wait = True
    MMControl1.Shareable = False
    MMControl1.DeviceType = "CDAudio"
    MMControl1.TimeFormat = mciFormatTmsf
    MMControl1.UpdateInterval = 50

    'Das Multimediagerät öffnen.
    MMControl1.Command = "Open"
End Sub

Gruss Homer
 

phpMars

Erfahrenes Mitglied
ups, bin da in der zeile verrutscht.... hab AudioCd da stehen...

da ändert sich aber immer noch nix :(
also am display tut sich nix
 
Zuletzt bearbeitet: