技术宅的结界

 找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 721|回复: 2
收起左侧

【VFB】播放MID、WAV文件

[复制链接]

47

主题

72

帖子

608

积分

用户组: 大·技术宅

UID
3260
精华
7
威望
12 点
宅币
476 个
贡献
1 次
宅之契约
0 份
在线时间
20 小时
注册时间
2017-12-26
发表于 2018-3-8 14:50:50 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有帐号?立即注册→加入我们

x
MIDI

初始化
[mw_shl_code=vb,true]
Function winmmInitMidi As Integer

    Function = mciSendString( "open sequencer", Null, 0, 0 ) = 0

End Function
[/mw_shl_code]
播放文件
[mw_shl_code=vb,true]
Function winmmPlayMidi( ByVal filename As String ) As Integer
   
    If( mciSendString( "open " + filename + " alias mymidifile", Null, 0, 0 ) <> 0 ) Then
        Return 0
    End If
   
    Function = mciSendString( "play mymidifile", Null, 0, 0 ) = 0
   
End Function
[/mw_shl_code]
停止播放
[mw_shl_code=vb,true]
Function winmmStopMidi( ) As Integer
   
    mciSendString( "stop mymidifile", Null, 0, 0 )

    Function = mciSendString( "close mymidifile", Null, 0, 0 ) = 0
   
End Function
[/mw_shl_code]
释放
[mw_shl_code=vb,true]
Function winmmEndMidi As Integer
   
    Function = mciSendString( "close sequencer", Null, 0, 0 ) = 0
   
End Function
[/mw_shl_code]

WAV
[mw_shl_code=vb,true]
Function winmmPlayWave( ByVal filename As String ) As Integer

    Function = sndPlaySound( filename, SND_ASYNC )
   
End Function
[/mw_shl_code]


1048

主题

2341

帖子

6万

积分

用户组: 管理员

一只技术宅

UID
1
精华
218
威望
294 点
宅币
18440 个
贡献
37847 次
宅之契约
0 份
在线时间
1759 小时
注册时间
2014-1-26
发表于 2018-3-8 17:52:48 | 显示全部楼层
然而还是mci那套,论播放MIDI时你能指定合成器么?

47

主题

72

帖子

608

积分

用户组: 大·技术宅

UID
3260
精华
7
威望
12 点
宅币
476 个
贡献
1 次
宅之契约
0 份
在线时间
20 小时
注册时间
2017-12-26
 楼主| 发表于 2018-3-8 22:52:23 | 显示全部楼层
0xAA55 发表于 2018-3-8 17:52
然而还是mci那套,论播放MIDI时你能指定合成器么?

用 MCI 命令

本版积分规则

QQ|申请友链||Archiver|手机版|小黑屋|技术宅的结界 ( 滇ICP备16008837号 )|网站地图

GMT+8, 2019-12-12 11:54 , Processed in 0.086032 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表