⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 5322.html

📁 以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.
💻 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:kavintai@netscape.net">Kavin</a> on September 06, 1998 at 16:34:24:<p>
In Reply to: <a href="5318.html">Re: How to play MID</a> posted by Honey on September 06, 1998 at 13:41:57:<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: 5322-->
<!--top: 5397--><li><a href="5397.html">Re: How to play MID</a> <b>Honey</b> <i>18:55:51 9/08/98</i>
(<!--responses: 5397-->1)
<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-->
</ul><!--end: 5322-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -