你用什么方法播放的文件?MCI?如果是我有办法 Public Function GetMusicPos() As Long'这个函数得到当前播放进度 Dim RefStr As String * 80 mciSendString "status NOWMUSIC position", RefStr, 80, 0 GetMusicPos = Val(RefStr) End Function Public Function GetMusicLength() As Long'这个函数得到文件长度 Dim RefStr As String * 80 mciSendString "status NOWMUSIC length", RefStr, 80, 0 GetMusicLength = Val(RefStr) End Function 当然前面要声明mciSendString函数了NOWMUSIC 就是要播放的文件在此处的别名。如果你用了MCI估计这些问题你会明白的。好了,文件长度,当前进度都知道了,你就知道是否播放到末尾了! 呵呵,给点分啊!
playstate等于什么值时说明当前MP3已播完
望速回
Public Function GetMusicPos() As Long'这个函数得到当前播放进度
Dim RefStr As String * 80
mciSendString "status NOWMUSIC position", RefStr, 80, 0
GetMusicPos = Val(RefStr)
End Function
Public Function GetMusicLength() As Long'这个函数得到文件长度
Dim RefStr As String * 80
mciSendString "status NOWMUSIC length", RefStr, 80, 0
GetMusicLength = Val(RefStr)
End Function
当然前面要声明mciSendString函数了NOWMUSIC 就是要播放的文件在此处的别名。如果你用了MCI估计这些问题你会明白的。好了,文件长度,当前进度都知道了,你就知道是否播放到末尾了!
呵呵,给点分啊!
你用的不是9.0版吧?我这里有StatusChange事件
写在PlayStateChange也可以的,我试过了
//playstate等于什么值时说明当前MP3已播完
playState为1时If WindowsMediaPlayer1.playState = 1 Then MsgBox "啊哦"