在visual basic中停止和启动每个循环数组

Question

我有一个每个循环，即

For Each dgvRow In boutgrid.Rows
file = dgvRow.Cells("FileName").Value
AxWindowsMediaPlayer1.url = file
AxWindowsMediaPlayer1.Ctlcontrols.play()
Next

如果想要在播放器播放文件直到完成播放时循环停止

Answer 1

在AXWindowsMediaPlayer课上做一些Googlefoo，你应该能够获得持续时间。 AxWindowsMediaPlayer类有一个currentMedia字段，其get_duration成员以秒为单位返回持续时间。

然后调用System.Threading.Thread.Sleep（持续时间* 1000）因为get_duration返回秒，而Thread.Sleep以毫秒为单位。