技术宅的结界

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

QQ登录

只需一步,快速开始

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

【VFB】播放MID、WAV文件

[复制链接]

47

主题

67

帖子

588

积分

用户组: 大·技术宅

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

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

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

x
MIDI

初始化
[Visual Basic] 纯文本查看 复制代码
Function winmmInitMidi As Integer
 
    Function = mciSendString( "open sequencer", Null, 0, 0 ) = 0
 
End Function

播放文件
[Visual Basic] 纯文本查看 复制代码
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

停止播放
[Visual Basic] 纯文本查看 复制代码
Function winmmStopMidi( ) As Integer
    
    mciSendString( "stop mymidifile", Null, 0, 0 )
 
    Function = mciSendString( "close mymidifile", Null, 0, 0 ) = 0
    
End Function

释放
[Visual Basic] 纯文本查看 复制代码
Function winmmEndMidi As Integer
    
    Function = mciSendString( "close sequencer", Null, 0, 0 ) = 0
    
End Function


WAV
[Visual Basic] 纯文本查看 复制代码
Function winmmPlayWave( ByVal filename As String ) As Integer
 
    Function = sndPlaySound( filename, SND_ASYNC )
    
End Function



991

主题

2181

帖子

5万

积分

用户组: 管理员

一只技术宅

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

47

主题

67

帖子

588

积分

用户组: 大·技术宅

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

用 MCI 命令

本版积分规则

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

GMT+8, 2018-6-22 13:47 , Processed in 0.079332 second(s), 13 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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