Question

如何在VB里精确计算一个mp3文件的播放时间长度

Answer 1

这个不难的

你需要用到 MediaPlayer(Msdxm.ocx) 这个控件

这个控件能读取打开的文件的 时长和帧数

MediaPlayer1.DisplayMode 设置为 mpTime, 读出来的就是时间长度

然后读取

MediaPlayer1.Duration

这个就是最终的结果数据

很精确的.

能到 1/1000秒的.

Option Explicit

Private Sub Command1_Click()
Dim SongLength As Single
Dim SongTime As Single
MediaPlayer1.FileName = "c:\ 3"
SongLength = MediaPlayer1.Duration

Debug.Print SongLength '音乐的长度

End Sub

自己去验证一下吧

我的 3 用程度读出来是 447.7126 秒,折合7分27秒.

用MediaPlay 看到的长度也是这样的.