设为首页收藏本站 Access中国

开启辅助访问切换到宽版

官方QQ群

Office中国论坛/Access中国论坛»论坛首页 › Access 资料区 › Access技巧 › 判断系统是否支持声音

发新帖

查看: 1868|回复: 5

上一主题

下一主题

[模块/函数] 判断系统是否支持声音

电梯直达

跳转到指定楼层

1^#

发表于 2007-12-25 09:52:47 | 只看该作者回帖奖励

回帖奖励

|倒序浏览 |阅读模式

判断系统是否支持声音

Option Explicit

Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Sub ChkSndIsSupport()
Dim intRtn As Integer
intRtn= waveOutGetNumDevs()
If intRtn> 0 Then
MsgBox "支持声音"
Else
MsgBox "不支持声音"
End If
End Sub

分享到: QQ好友和群 QQ空间 腾讯微博 腾讯朋友

收藏0 分享 淘帖0 订阅

回复

使用道具举报

2^#

发表于 2007-12-25 11:22:51 | 只看该作者

顶下~~~~~~~~

回复支持反对

使用道具举报

3^#

发表于 2007-12-25 12:25:30 | 只看该作者

謝謝站長分享精美代碼!

回复支持反对

使用道具举报

4^#

发表于 2007-12-25 13:23:05 | 只看该作者

支持，好东西收藏了！！

回复支持反对

使用道具举报

5^#

发表于 2007-12-25 13:24:07 | 只看该作者

好象一般在我们的程序里用不着这个功能，系统没有声音一般用户是知道的，我程序中只要保证播放声音时不出错就行了（没试过系统不支持声音时是否会出错，还是先收藏了）。

回复支持反对

使用道具举报

6^#

发表于 2016-8-8 16:06:51 | 只看该作者

收藏了

回复

使用道具举报

发新帖

|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )

GMT+8, 2024-5-4 02:35 , Processed in 0.081023 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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