安康日报报纸:vb 常量 蜂鸣的表达式

来源:百度文库 编辑:神马品牌网 时间:2024/04/29 02:59:06

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

Private Sub Command1_Click()
Dim retval As Long
retval = Beep(400, 200)
End Sub

400是频率 200是时长