Question

vb 中怎么获取WindowsMediaPlayer控件播放视频的当前播放时间（进度）

得寸进尺一下，怎么能精确到毫秒呢，我想了一晚上也没有办法，哪位能给个主意？

Answer 1

WindowsMediaPlayer.controls.currentPosition
double类型，显示当前进度

WindowsMediaPlayer.controls.currentPositionString
string类型，显示当前进度，字符串格式。如“00:23”

label1.caption=WindowsMediaPlayer.controls.currentPositionString

不过要把这个代码放到timer控件里才能实时显示时间

要显示毫秒的用这个，写到Timer里面，但是Timer的Interval属性值要小一点，不然没什么效果

Private Sub Timer1_Timer()
If InStr(WindowsMediaPlayer1.Controls.currentPosition, ".") Then
Label1.Caption = WindowsMediaPlayer1.Controls.currentPosition \ 60 & ":" & Format(WindowsMediaPlayer1.Controls.currentPosition Mod 60, "00") & "." & Left(Split(WindowsMediaPlayer1.Controls.currentPosition, ".")(1), 3)
Else
Label1.Caption = WindowsMediaPlayer1.Controls.currentPosition \ 60 & ":" & Format(WindowsMediaPlayer1.Controls.currentPosition Mod 60, "00") & ".000"
End If
End Sub

Answer 2

Private Sub Command1_Click()
MsgBox WMP1.Controls.currentPositionString
End Sub

Answer 3

我帮你找一下以前我做过播放器