# Re: 如何让mid音乐重覆run

Posted by Antonio on May 04, 1998 at 19:44:17:

In Reply to: Re: 如何让mid音乐重覆run posted by panya on May 03, 1998 at 20:30:42:

: : For i = 0 To 3
: :
: 媒体播放.音乐.Command = "close"
: If MMControl1.Mode = mciModeStop Then
: 媒体播放.音乐.filename = App.Path + "\背景音乐\music000.mid"
: :
: 媒体播放.音乐.Command = "play"
: : end if
: Next i

: : 是否可请各位先进指正,谢谢!!
: 试试看
嗯!谢谢!原理大概知道了,不过还有问题耶,执行时
If MMControl1.Mode = mciModeStop Then 这行
出现执行期错误'13' 型态不符合
是不是那儿没设好呢!?
vb的世界,有了你将更加多姿多彩再次的谢谢您!!!

Follow Ups:

- Re: 如何让mid音乐重覆run Magician 19:20:55 5/18/98 (0)