查看: 4083|回复: 10

问个vb调用api的问题

  [复制链接]
梦石
0
星屑
55
在线时间
20 小时
注册时间
2005-10-24
回帖
1175
发表于 2007-5-17 00:20:33 | 显示全部楼层 |阅读模式

加入我们,或者,欢迎回来。

您需要 登录 才可以下载或查看,没有账号?注册会员

×
先声明,然后调用
比如:beep
假设声明过了

dim a as long
a=beep(dwFreq ,dwDuration)#这两个参数具体是什么数值也不知道
但是程序并没有执行

请问:这个编辑方式对不对?为什么没有执行?



本贴由论坛斑竹雷欧纳德结贴,如楼主认为问题未解决,请重新将此贴编辑为“有事请教”,并回帖叙述疑点即可~ ^-^
梦石
0
星屑
55
在线时间
20 小时
注册时间
2005-10-24
回帖
1175
发表于 2007-5-17 00:20:33 | 显示全部楼层 |阅读模式

加入我们,或者,欢迎回来。

您需要 登录 才可以下载或查看,没有账号?注册会员

×
先声明,然后调用
比如:beep
假设声明过了

dim a as long
a=beep(dwFreq ,dwDuration)#这两个参数具体是什么数值也不知道
但是程序并没有执行

请问:这个编辑方式对不对?为什么没有执行?



本贴由论坛斑竹雷欧纳德结贴,如楼主认为问题未解决,请重新将此贴编辑为“有事请教”,并回帖叙述疑点即可~ ^-^

月下可怜人

梦石
0
星屑
50
在线时间
10 小时
注册时间
2005-11-23
回帖
3667

第1届短篇游戏比赛亚军

发表于 2007-5-17 04:06:20 | 显示全部楼层
VB的API声明后,与正常方法的调用方式一样

那两个参数分别为频率,与持续时间???
纵然千里外,我等雁归来。
回复

使用道具 举报

梦石
0
星屑
275
在线时间
1373 小时
注册时间
2005-10-16
回帖
5038

贵宾

发表于 2007-5-17 05:03:31 | 显示全部楼层
下个api手册吧.......囧rz
我只个搬答案的
叔叔我已经当爹了~
婚后闪人了……
回复

使用道具 举报

梦石
0
星屑
55
在线时间
20 小时
注册时间
2005-10-24
回帖
1175
 楼主| 发表于 2007-5-17 05:10:09 | 显示全部楼层
程序我想没有错,用msgbox测试的是1。
不过就是没有反应
回复

使用道具 举报

月下可怜人

梦石
0
星屑
50
在线时间
10 小时
注册时间
2005-11-23
回帖
3667

第1届短篇游戏比赛亚军

发表于 2007-5-17 05:27:26 | 显示全部楼层
Private  Declare  Function  Beep  Lib  "kernel32"  Alias  "Beep"  (ByVal  dwFreq  As  Long,  ByVal  dwDuration  As  Long)  As  Long  

'正常情况下,没dwFreq ,dwDuration这两个常数吧,

Beep  100,  1000

不过我记得VB默认下有beep方法.
纵然千里外,我等雁归来。
回复

使用道具 举报

梦石
0
星屑
55
在线时间
20 小时
注册时间
2005-10-24
回帖
1175
 楼主| 发表于 2007-5-17 08:16:41 | 显示全部楼层
成功了!
回复

使用道具 举报

梦石
0
星屑
60
在线时间
274 小时
注册时间
2005-10-22
回帖
167
发表于 2007-5-17 08:33:19 | 显示全部楼层
楼主,i服了you
回复

使用道具 举报

梦石
0
星屑
55
在线时间
20 小时
注册时间
2005-10-24
回帖
1175
 楼主| 发表于 2007-5-18 16:25:38 | 显示全部楼层
看了一下,用beep做简单的midi还是可以的

回复

使用道具 举报

梦石
0
星屑
55
在线时间
20 小时
注册时间
2005-10-24
回帖
1175
 楼主| 发表于 2007-6-4 17:44:00 | 显示全部楼层
  beep函数是主板发声,不安声卡也可以播放{/se}
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

Powered by Discuz! X5.0 © 2001-2026 Discuz! Team.

在本版发帖返回顶部