|
#2
yuma2022-09-18 21:24
明白了，Function Beep Lib "kernel32" 里的这个Beep是可以自定义的。
VB里本没有APIBeep，可以任意定义。 定义成这样都行，例：  程序代码：Private Declare Function abcdefghijklmn Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Form_Load() abcdefghijklmn 2000, 100 End Sub |
这里用APIBeep，也能运行：
https://zhidao.baidu.com/question/433784676.html
MSDN和网上只能查到Beep函数：
http://www.
APIBeep和Beep都能运行，神了。
Beep示例：
程序代码：Private Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Load()
Beep 2000, 100
End Sub
Private Sub Form_Load()
Beep 2000, 100
End Sub
APIBeep示例：
程序代码：Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Load()
APIBeep 2000, 100
End Sub
Private Sub Form_Load()
APIBeep 2000, 100
End Sub
这到底是什么情况？
