怎麼用抓出播放中的音樂長度?

WindowsMediaPlayer1.URL=\"某一首歌的位置\"

請問一下…

要怎麼把音樂檔的長度抓出來?

已更新項目:

太棒了

我要的就是這個

不過問一下

Format((.Controls.currentPosition / .Controls.currentItem.duration) * 100, "000.000")

這個偶爾會發生溢位有辦法解決嗎?

1 個解答

評分
  • W.J.S.
    Lv 7
    1 0 年前
    最佳解答

    '表單置1個WindowsMediaPlayer,1個CommandButton及1個TimerPrivate Sub Command1_Click()        With WindowsMediaPlayer1             .URL = "C:\Music\李翊君-七情六慾.mpg"             .Controls.play             Timer1.Interval = 10             Timer1 = True        End WithEnd SubPrivate Sub Timer1_Timer()        Cls        With WindowsMediaPlayer1                Print .Controls.currentPositionString; "\"; .Controls.currentItem.durationString, Format(.Controls.currentPosition, "0.0"); "\"; Format(.Controls.currentItem.duration, "0.0")        End WithEnd Sub

    2006-06-19 13:18:26 補充:

    把變數宣告成Variant再改成Decimal型態看看有沒有辦法,畢竟有些媒體檔案實在太大了Dim A As VariantA = Cdec( A )A = Format((.Controls.currentPosition / .Controls.currentItem.duration) * 100, "000.000")

    • 登入以對解答發表意見
還有問題?馬上發問,尋求解答。