|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：本站收集 日期：2005-8-4 11:33:47 |
|
|
- 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 |
|
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:33:47 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]