标题:请教MCI的用法
取消只看楼主
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
结帖率:100%
 问题点数:0 回复次数:3 
请教MCI的用法

如果播放声音?
帮助这样写:
Private Sub Form_Load ()
' Set properties needed by MCI to open.
MMControl1.Notify = FALSE
MMControl1.Wait = TRUE
MMControl1.Shareable = FALSE
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = "C:\WINDOWS\MMDATA\GONG.WAV"

'打开 MCI WaveAudio 设备。
MMControl1.Command = "Open"
End Sub
可是放不出声音来?这空件可以播放MP3 MID等其他格式的声音么?

搜索更多相关主题的帖子: MCI 用法 
2007-02-14 13:48
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
得分:0 
以下是引用清澂居士在2007-2-14 16:01:47的发言:

對這個沒有研究```妳還是用下MCISENDSTRING這個API試試```

这样不会耶 能不能写一段简单代码? 比如我按下 Command1 就会播放 D:\XX.MP3


If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-02-14 20:14
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
得分:0 
?????????????

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-02-15 01:42
b13690976754
Rank: 1
等 级:新手上路
威 望:2
帖 子:835
专家分:7
注 册:2006-11-9
得分:0 
有难度 要深入研究

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
2007-02-16 18:44



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-120940-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.805566 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved