小格子衬衫:vb 常量 蜂鸣的表达式
来源:百度文库 编辑:查人人中国名人网 时间:2024/07/08 12:51:12
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是时长