# Re: How to play MID

Posted by Honey on September 08, 1998 at 18:55:51:

In Reply to: Re: How to play MID posted by Kavin on September 06, 1998 at 16:34:24:

抱歉 可能是编码的问题吧
前篇我只看到
"o甘可唔可以依家首歌的时间.."
我猜
也许你要的是从某个时段开始拨放音乐
或者是播放某个时段到某时段的音乐吧
如果是前者你可以输入
Call mciSendString("play e from 20", 0, 0, 0)
'从0.2秒开始播放
如果是后者你可以输入
Call mciSendString("play e from 20 to 60", 0, 0, 0)
'从0.2秒开始播放到0.6秒

: ThX you first.
: o甘可唔可以依家首歌的时间..

:
: : : 请问如何play mid file ...

: : 可以用Multimedia控制项 或者用mciSendString函式
: : mciSendString宣告方式如下
: : Private Declare Function mciSendString Lib _
: : "winmm.dll" Alias "mciSendStringA" _
: : (ByVal lpstrCommand As String, ByVal _
: : lpstrReturnString As String, ByVal _
: : uReturnLength As Long, ByVal _
: : hwndCallback As Long) As Long
: : '若在模组宣告 private 得去掉

: :
: : 使用方法如下
: : Call mciSendString("open C:\untitled.mid type sequencer _
: : alias e", 0, 0, 0)
: : '开启档案"C:\untitled.mid",取名为另一个别名 e
: : 'type sequencer 指使用的设备

: : Call mciSendString("play e wait", 0, 0, 0)
: : '播放别名e所代表的档案 ,加入wait代表声档播放 _
: : 完毕时才将使用权交回

: : Call mciSendString("close e ", 0, 0, 0)
: : '关闭档案

Follow Ups:

- Re: How to play MID Kavin 23:30:33 9/11/98 (0)