5562.html
来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 23 行
HTML
23 行
<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:kavintai@yahoo.com">Kavin</a> on September 11, 1998 at 23:30:33:<p>
In Reply to: <a href="5397.html">Re: How to play MID</a> posted by Honey on September 08, 1998 at 18:55:51:<p>
Thank you very much.<br>点先知道播到第几分钟...<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: 5562-->
</ul><!--end: 5562-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?