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 :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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

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

Versuch das mal so:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13

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

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

da ändert sich aber immer noch nix
also am display tut sich nix