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

Posted 2023-05-06

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

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 参考技术A Private Sub Command1_Click()
MsgBox WMP1.Controls.currentPositionString
End Sub 参考技术B 我帮你找一下以前我做过播放器

vb listview 选中项的列值怎么获取

比如我选中第一行，按下command显示第一行第一列的值，注意是第一列喔，ListView1.SelectedItem.SubItems(1)只能显示第2列的，要死了我，来帮帮我

参考技术A 你说的应该是 Listview1.Selecteditem.Text 吧 参考技术B ListView1.SelectedItem本回答被提问者采纳 参考技术C ListView1.SelectedItems(0) 参考技术D ListView1.SelectedItem.SubItems(0)