标题:VB6只有Beep,没有APIBeep吧?
只看楼主
yuma
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:银河系
等 级:贵宾
威 望:33
帖 子:1883
专家分:2904
注 册:2009-12-22
结帖率:89.13%
 问题点数:0 回复次数:2 
VB6只有Beep,没有APIBeep吧?
VB6只有Beep,没有APIBeep吧?

这里用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


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


这到底是什么情况?
搜索更多相关主题的帖子: ByVal VB6 Private Sub Long 
2022-09-18 21:13
yuma
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:银河系
等 级:贵宾
威 望:33
帖 子:1883
专家分:2904
注 册:2009-12-22
得分:0 
明白了,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

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2022-09-18 21:24
约定的童话
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:47
帖 子:190
专家分:1061
注 册:2021-8-1
得分:0 
自定义的关系...
2022-09-19 08:15



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-510086-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.600829 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved