| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1070 人关注过本帖
标题:VB6只有Beep,没有APIBeep吧?
取消只看楼主 加入收藏
yuma
Rank: 12Rank: 12Rank: 12
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1934
专家分:3012
注 册:2009-12-22
结帖率:89.13%
收藏
 问题点数:0 回复次数:1 
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: 12Rank: 12Rank: 12
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1934
专家分:3012
注 册: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
快速回复:VB6只有Beep,没有APIBeep吧?
数据加载中...
 
   



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

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