停止和启动在Visual Basic

Question

每个循环数组我有一个每个循环即

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

如果想要使循环停止，而播放机上播放文件，直到完成播放

Answer 1

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

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