VBA版打气球游戏，源码公开，注释详细

HHAAMM · 发表于 2009-5-27 04:26

小fisher版主看看这个，用语音向小fisher兄提问，呵呵！！

运行test，是我自己的录音！！

[ 本帖最后由 HHAAMM 于 2009-5-27 05:01 编辑 ]

dengni · 发表于 2009-5-27 10:42

楼主做的用飞信给自己发短信的程序非常实用，期待实现能给在列表内人发短信的功能。

HHAAMM · 发表于 2009-5-27 11:15

俺试过N种办法，都不能把音频文件插入到表中，是不是还要使用个什么控件呀！！

小fisher · 发表于 2009-5-27 13:08

原帖由 HHAAMM 于 2009-5-27 11:15 发表
俺试过N种办法，都不能把音频文件插入到表中，是不是还要使用个什么控件呀！！

插入－对象－由文件创建，然后选择一个.wav文件就可以了

HHAAMM · 发表于 2009-5-27 13:20

[quote]原帖由 小fisher 于 2009-5-27 13:08 发表

插入－对象－由文件创建，然后选择一个.wav文件就可以了

我的excel里这样不行
用插入视频记剪辑的方式搞定了！！

HHAAMM · 发表于 2009-5-27 13:23

视频记剪辑的方式，不行呀，还不是真正的插入！！

HHAAMM · 发表于 2009-5-27 13:30

插入视频记剪辑，用下面的这句可以播放
ActiveSheet.OLEObjects(1).Verb Verb:=xlPrimary
但同目录下的wav文件要是删除了的话，就不能播放了，不是真正的插入！！

小fisher · 发表于 2009-5-27 13:59

原帖由 HHAAMM 于 2009-5-27 13:30 发表
插入视频记剪辑，用下面的这句可以播放
ActiveSheet.OLEObjects(1).Verb Verb:=xlPrimary
但同目录下的wav文件要是删除了的话，就不能播放了，不是真正的插入！！

用我说的方法应该可以实现，插入时不要选“链接到文件”，这样就嵌入在工作表中了，以后再播放时不依赖于原来文件，HHAAMM版主插入对象失败的过程能否录成动画发上来，大家一起分析。
用Verb方法播放声音可以成功，但是有几个缺点：
1）会产生一个sndrec32.exe（Windows录音机）隐藏进程，在播放声音期间Userform会失去焦点，这个问题可以在调用Verb语句之后加一句AppActivate Me.Caption解决，但每次播放都启动一个进程显然不如直接用api播放响应快
2)用Verb语句是同步播放的，即调用一次ActiveSheet.OLEObjects(1).Verb以后，用户必须等待声音播放完毕后方可播放第二次

HHAAMM · 发表于 2009-5-27 14:09

截了两张图

小fisher · 发表于 2009-5-27 14:13

工作表没有保护吧，新建一个工作簿试试，我的过程是这样的：

		自动登录	找回密码
密码			免费注册