停止和啓動在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以毫秒爲單位。