Option Explicit
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim frequency As Long
frequency = CLng(txtFrequency.Text)
APIBeep frequency, 500
End Sub
上一篇： 如何控制系统音量
下一篇： 文件与VB程序关联后——双击和打开
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
