📄 5397.html
字号:
<html>
<head>
<title>Re: How to play MID</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: How to play MID</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:honey0@tcts1.seed.net.tw">Honey</a> on September 08, 1998 at 18:55:51:<p>
In Reply to: <a href="5322.html">Re: How to play MID</a> posted by Kavin on September 06, 1998 at 16:34:24:<p>
抱歉 可能是编码的问题吧<br>前篇我只看到 <br>"o甘可唔可以依家首歌的时间.."<br>我猜<br>也许你要的是从某个时段开始拨放音乐<br>或者是播放某个时段到某时段的音乐吧<br>如果是前者你可以输入<br>Call mciSendString("play e from 20", 0, 0, 0)<br>'从0.2秒开始播放<br>如果是后者你可以输入<br>Call mciSendString("play e from 20 to 60", 0, 0, 0)<br>'从0.2秒开始播放到0.6秒<p>: ThX you first.<br>: o甘可唔可以依家首歌的时间..<p>: <br>: : : 请问如何play mid file ...<p>: : 可以用Multimedia控制项 或者用mciSendString函式<br>: : mciSendString宣告方式如下<br>: : Private Declare Function mciSendString Lib _<br>: : "winmm.dll" Alias "mciSendStringA" _<br>: : (ByVal lpstrCommand As String, ByVal _<br>: : lpstrReturnString As String, ByVal _<br>: : uReturnLength As Long, ByVal _<br>: : hwndCallback As Long) As Long<br>: : '若在模组宣告 private 得去掉<p>: : <br>: : 使用方法如下<br>: : Call mciSendString("open C:\untitled.mid type sequencer _<br>: : alias e", 0, 0, 0)<br>: : '开启档案"C:\untitled.mid",取名为另一个别名 e<br>: : 'type sequencer 指使用的设备<p>: : Call mciSendString("play e wait", 0, 0, 0)<br>: : '播放别名e所代表的档案 ,加入wait代表声档播放 _<br>: : 完毕时才将使用权交回<p>: : Call mciSendString("close e ", 0, 0, 0)<br>: : '关闭档案<p><br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 5397-->
<!--top: 5562--><li><a href="5562.html">Re: How to play MID</a> <b>Kavin</b> <i>23:30:33 9/11/98</i>
(<!--responses: 5562-->0)
<ul><!--insert: 5562-->
</ul><!--end: 5562-->
</ul><!--end: 5397-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -