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

发布网友发布时间：2022-05-10 22:15

共3个回答

热心网友时间：2023-11-07 07:44

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

热心网友时间：2023-11-07 07:44

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

热心网友时间：2023-11-07 07:45

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