vb怎样使计算机发出“当”的一声。

如果计算机没有PC喇叭，怎样控制用VB控制声卡发出出“当”的一声.
Beep()函数我试过了，不行，还有其它方法吗?

解决方案 »

  1.   

    这问题我之前也问过，可回复也是叫我用Beep，我试也只有耳机响，主机喇叭不响的，不知到底怎搞，是不是不装声卡驱动主机喇叭才会响
      

  2.   

    Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
      

  3.   

    呵呵,同意楼上.
    如果beep只有你的耳机响的话呢,你把你的声卡卸载掉就可以让机箱的喇叭响了,不过不是"当.当.当当当",而是"哔.哔.哔哔哔"
      

  4.   

    msgbox出错的信息，就是当一声了，然后用API把它关了。
      

  5.   

     播放文件：C:\WINNT\Media\chord.wav 即可
      

  6.   


    首先取得　WINNT　目录当然也可以把这个文件做为资源文件，然后播放资源即可
      

  7.   

    QBASIC下，我们用PLAY，SOUND，蛮好玩的。SOUND，似乎现在VB中还有di。
      

  8.   

    个人认为，想让主机响，当然是调用api了，和声卡之类有什么关系。
    试试DooDu(杜霖:I want,I can.(MmMVP马甲))的方法吧
      

  9.   

    Public Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long这个就是专门用来控制主机喇叭的
      

  10.   

    通过计算机喇叭发出一个声调。语法Beep说明呼叫的频率与时间长短取决于硬件和系统软件，并随电脑不同而不同。.
    还有那种直接播放 "当" 也是不错了哦
      

  11.   

    PC喇叭发出BI的声音.当当的声音只有少林寺的钟才能发出的建议把机器帮到少林寺去,控制系统声音和和尚敲钟同步
      

  12.   

    又想到一个...msgbox("")
    sendkey("{Enter}")运行就会"当"一声，然后就什么都没有了，
      

  13.   

    用嘴模仿“当”--你听“当，当”
    --计算机没当，是你当的
    --我知道，因为你听不见我才当给你听的嘛
    嘿嘿，还有一种方法就是用api函数MessageBeep,后面的那个参数是几种声音的类型，其中就有“当”
    Private Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal wType As Long) As Long
    Private Const MB_OK = &H0&
    Private Const MB_ICONASTERISK = &H40&
    Private Const MB_ICONEXCLAMATION = &H30&
    Private Const MB_ICONHAND = &H10&
    Private Const MB_ICONQUESTION = &H20&