在VB5中如何使机箱内的小喇叭发出不同的声音？

- chengdx
回答1:
Mmsound.drv 是小喇叭的系统接口 ，很多API的书都有用法介绍
- 219 张晶
回答2:
使用VB中的beep语句，但这只能发出一种声音。如果想发出不同声音，可以
使用API函数。详情如下：（摘自VB-Helper）
Use the Beep API function.

This example demonstrates two interesting things. First, it shows how to make a beep of any frequency and duration rather than using the standard tone you get with the Beep statement.

Second, note that the Beep API function has the same name as VisualBasic's Beep statement. To differentiate them, you can assign a new name to the Beep API function in its Declare statement. It is known as "Beep" in the library (the Alias statement) but it is known as APIBeep to the program.

You can use this technique to differentiate between functions with the same name, or you can use it to give API functions a name that is easier to write (for example, if the API name is very long).

In the declarations section:

Option Explicit
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
' To make a beep lasting 500 milliseconds with frequency specified in the
' TextBox txtFrequency (try 1000 for starters):

Private Sub Command1_Click()
Dim frequency As Long

frequency = CLng(txtFrequency.Text)
APIBeep frequency, 500
End Sub
- Prisoner

上一篇： VB环境下压缩数据流播放技术
下一篇： 用VB制作下雪的特技景象

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有