wichtig hilfe auslesen von audi dateien !

[Yugi-Radiodome]

wichtig hilfe auslesen von audio dateien !

Hallo !

Ich brauche eure Hilfe wie kann ich in ner Textbox anzeigen lassen wie lange ein lied aus einer Listbox noch geht ! wenn es abgespielt wirt?

 

[Thomas Kuse]

Womit wird denn das Lied abgespielt?
Doch nicht von einer Listbox, dort kannst Du nur Zeilenweise Strings speichern, aber keine Musik abspielen.

 

[Yugi-Radiodome]

....

Ich ahbe eine Listbox und einen MediaPlayer es soll wenn in der listbox das lied angeklickt wird im mediaplayer abspielen ! und dann soll er in einer textbox die zeit die das lied noch leuft anzeigen

 

[Thomas Kuse]

Sprichst Du den Mediaplayer über OLE/COM an oder führst Du den Mediaplayer per Kommandozeile mit dem Lied als Argument aus?

 

[meilon]

Ich gehe nun davon aus, dass du die WMP9 Komponente benutzt:

Private Sub tmTimeDown_Timer()
    If cmdPlayPause.Tag = "play" Then
        lblTime.Caption = "-" & wmpFormatTime(WMP.currentMedia.duration - WMP.Controls.currentPosition)
    Else
        lblTime.Caption = "-00:00"
    End If
End Sub

Private Sub tmTimeUp_Timer()
    If cmdPlayPause.Tag = "play" Then
        lblTime.Caption = wmpFormatTime(WMP.Controls.currentPosition)
    Else
        lblTime.Caption = "00:00"
    End If
End Sub

Public Function wmpFormatTime(ByVal Time As Long) As String
  Dim nMin As Integer
  Dim nSec As Integer

  nSec = Int(Time)
  nMin = Int(Time / 60)
  nSec = nSec - (nMin * 60)
  wmpFormatTime = Format$(nMin, "00") & ":" & Format$(nSec, "00")
End Function

Das ist einmal ür das heraufzählen der vergangenen zeit und einmal zum runterzählen der noch verbleibenden Zeit. Habe ich selber geschriegen, dürfte daher funktionieren. Halt für WMP9 Komponente gemacht.

mfg