Question

vb中的sleep函数的问题

我的程序是

wmp.url= app.path & "\1.wav" 'wmp 是windowsmediaplayer
wmp.controls.play
sleep 1000
wmp.url=app.path & "\2.wav"
wmp.controls.play
sleep 1000
wmp.url =app.path & "\3.wav"
wmp.controls.play
sleep 1000

本来打算是实现播完1.wav，继续播2.wav，最后播 3.wav
但是执行后结果是等待了几秒 播出了3.wav
1.wav和2.wav，3.wav 的时间长度都很短

Answer 1

为什么要用sleep呢？windowsmediaplayer本身有播放列表不会好好利用：

WMP.URL = app.path & "\1.wav"
WMP.currentPlaylist.appendItem WMP.newMedia(app.path & "\2.wav")
WMP.currentPlaylist.appendItem WMP.newMedia(app.path & "\3.wav")

Answer 2

sleep 1000
意思是 vb执行程序暂停1000毫秒后继续执行以后的程序段！
如果加上打开的时间的话，所以1.wav、2.wav、3.wav之间的间隔就会不到1秒就停止了。
解决的方法：1、你必须先获取这些音频文件的时间长度。然后把间隔时间设置为变量就可以了。

Answer 3

sleep 1000
改成下面的代码试下
while wmp.playstate=8
doevents
wend