★★★求解主机喇叭发生问题★★★

Question

假设:
1.窗体上有 3 个按钮(分别是 Command1 和 command2 和 command3)
2.点击command1 后主机的喇叭发出长鸣音.
  点击command2 后主机喇叭发出短暂的声音.
  点击command3 后主机喇叭停止发声.3.如果能够通过 Slider 来改变声调的话最好了(另开新贴给50分)求可用   源码 ~~~~

Answer 1

可以试试beep（api函数）：
【VB声明】
  Private Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long【说明】
  用于生成简单的声音 【返回值】
  Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError 【备注】
  在windows95中，这个函数简单的播放默认系统响铃【参数表】
  dwFreq ---------  Long，声音频率（从37Hz到32767Hz）。在windows95中忽略  dwDuration -----  Long，声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止。在windows95中会被忽略

Answer 2

给个程序看看！
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongPrivate Sub Command1_Click()
  Dim frequency As Long, sylong As Long
  frequency = CLng(1000)
  sylong = CLng(500)
  APIBeep frequency, sylong
End Sub

Answer 3

实在抱歉，前些时间Moedm坏了,感谢二位的帮忙,软件放弃了..谢谢..
不过学到了东西...感谢二位关注!!!!!谢谢!!!