小格子衬衫: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是时长