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

HHAAMM

俺获得了“气球杀手”的称号！！

fdd

是“挺有意思的”！呵呵，插嘴了，学生不乖！

小fisher

原帖由 HHAAMM 于 2009-5-26 13:10 发表
别的学不会了，俺就想试试能把“4。在VBA中播放通过“插入对象”放置到EXCEL工作表中的WAV音效，不需要生成硬盘文件，不需要调用外部播放器（首创）。”弄明白不！！

这个比较简单，把一个.wav文件的完整字节读取到字节型数组中，比如wavExplode() as Byte中，然后用下面的语句就可以播放声音了。
sndPlaySound ByVal VarPtr(wavExplode(0)), SND_ASYNC Or SND_MEMORY
附件中只不过是把.wav文件放到工作表的插入对象中，然后换用剪贴板读取其中内容到字节数组中而已，这个过程的具体代码在附件Sound模块的Private Sub LoadSound(oleSource As OLEObject, TargetArray() As Byte)过程中。

原帖由 HHAAMM 于 2009-5-26 13:17 发表
老外弄的那个excel中mtv（名字叫什么火车来着，忘了），用的也是这种方法
记的是Winland版主推荐的

地址还有吗，我去拜读一下　

小fisher

原帖由 HHAAMM 于 2009-5-26 14:37 发表
俺获得了“气球杀手”的称号！！

六一快乐

HHAAMM

http://club.excelhome.net/thread-367332-1-1.html
小fisher版主，这个好像是

HHAAMM

原帖由 小fisher 于 2009-5-26 19:50 发表

六一快乐

得到几百分的时候，又点到了个*2，呵呵！！

HHAAMM

原帖由 HHAAMM 于 2009-5-26 20:57 发表
http://club.excelhome.net/thread-367332-1-1.html
小fisher版主，这个好像是

定位，对象，可以看到那个装音频的东东！！

小fisher

原帖由 HHAAMM 于 2009-5-26 21:16 发表


定位，对象，可以看到那个装音频的东东！！

谢谢HHAAMM分享，确实学到很多东西。
那个附件中释放文件和播放的方式和我的不一样，他是直接以二进制方式打开Excel文件，从其中读取声音文件所含的字节释放到硬盘上再播放，我的是先调用OleObject的复制方法，再从剪贴板中释放到内存数组中播放。播放时都使用了sndPlaySound函数。
应该说他释放文件的方式比我的好，因为不会影响到剪贴板的内容，不过需要对xls文件格式有所了解，不然工作表和嵌入对象一多怕容易出错；我的方法比较简单和通用，但是会影响用户的剪贴板。
其实他的声音也可以从内存中播放，他选择释放到硬盘上可能是因为他的声音文件比较大，放在内存中太占空间；而我的是几个小于20K的wav文件，所以选择在从内存中播放。

HHAAMM

小fisher版主也做个吧，不能只是老外能做出来！！
好像央视2套节目中都介绍这个了

fdd

原帖由 小fisher 于 2009-5-26 21:42 发表

谢谢HHAAMM分享，确实学到很多东西。
那个附件中释放文件和播放的方式和我的不一样，他是直接以二进制方式打开Excel文件，从其中读取声音文件所含的字节释放到硬盘上再播放，我的是先调用OleObject的复制方法，再 ...

小Fisher的话总是能说到点子上！