📄 2754.html
字号:
<html>
<head>
<title>Re: 如何让mid音乐重覆run</title>
</head>
<BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
<center>
<h1>Re: 如何让mid音乐重覆run</h1>
</center>
<HR><p>
Posted by <a href="mailto:antonio@ms12.hinet.net">Antonio</a> on May 04, 1998 at 19:44:17:<p>
In Reply to: <a href="2750.html"><b>Re: 如何让mid音乐重覆run</b></a> posted by panya on May 03, 1998 at 20:30:42:<p>
: : For i = 0 To 3<br>: : <br>: 媒体播放.音乐.Command = "close"<br>: If MMControl1.Mode = mciModeStop Then <br>: 媒体播放.音乐.filename = App.Path + "\背景音乐\music000.mid"<br>: : <br>: 媒体播放.音乐.Command = "play"<br>: : end if <br>: Next i<p>: : 是否可请各位先进指正,谢谢!!<br>: 试试看 <br>嗯!谢谢!原理大概知道了,不过还有问题耶,执行时 <br>If MMControl1.Mode = mciModeStop Then 这行<br>出现执行期错误'13' 型态不符合<br>是不是那儿没设好呢!?<br>vb的世界,有了你将更加多姿多彩再次的谢谢您!!!<p>
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 2754-->
<!--top: 2876--><li><a href="2876.html"><b>Re: 如何让mid音乐重覆run</b></a> Magician <i>19:20:55 5/18/98</i>
(<!--responses: 2876-->0)
<ul><!--insert: 2876-->
</ul><!--end: 2876-->
</ul><!--end: 2754-->
<br><HR><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -