用VBA做的switch游戏机玩俄罗斯方块，绝对是你没见过的UI设计。（补充附件）

kuangben8

楼主厉害！佩服至极！

qqyyh

太牛了，

炎猪

aman1516 发表于 2023-3-7 22:37
VBA头号级玩家......
试试：
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySou ...

试了一下，可以使用，非常感谢。
还有两个问题想请教一下：
1、SndPlaySound的“&H5”的参数，代表的是什么？查了一下没查到有对应“5”的参数说明。
SND_SYNC      = 0; {同步播放, 程序须等到播放完毕才向下执行}
SND_ASYNC     = 1; {异步播放, 在函数返回之后开始播放, 不影响程序继续执行}
SND_NODEFAULT = 2; {声音文件缺失时, 函数自动返回不播放默认声音}
SND_MEMORY    = 4; {播放内存中的声音, 譬如资源文件中的声音}
SND_LOOP      = 8; {循环播放, 需要和 SND_ASYNC 组合使用}
SND_NOSTOP    = 16;{如果当前正在播放声音, 立即返回 False}
2、我现在是通过外挂.wav文件的方式，用你的方法在启动时读入内存数组再播放。能不能我先把.wav文件通过插入对象的方式嵌入excel表中（如下图），再在启动主游戏窗体时读取嵌在excel表中的.wav文件读进内存数组。这样不用带着外挂文件。

兰色的回忆

厉害，顶起楼主

aman1516

炎猪 发表于 2023-3-11 08:07
试了一下，可以使用，非常感谢。
还有两个问题想请教一下：
1、SndPlaySound的“&H5”的参数，代表的是 ...

对象嵌入不懂，
如果音频文件很小，可以直接把WAV以二进制写到工作表中，需要时从工作表中读取播放
试试：

1. Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
   
2. Sub PutWAVinSht()
   
3. Dim btData() As Byte, i
   
4. Open "D:\Downloads\my.wav" For Binary Access Read As #1
   
5. ReDim btData(LOF(1) - 1)
   
6. Get #1, , btData
   
7. Close #1
   
8. ''Call sndPlaySound(btData(0), &H5)
   
9. For i = 0 To UBound(btData)
   
10.     Cells(i + 1, 1) = btData(i)
    
11. Next i
    
12. MsgBox "ok"
    
13. End Sub
    
14. 
    
15. Sub GetWAVinSht()
    
16. Dim ar, dr() As Byte, r&, x&
    
17. r = Range("A" & Rows.Count).End(xlUp).Row
    
18. ar = Range("A1:A" & r)
    
19. ReDim dr(0 To UBound(ar) - 1)
    
20. For x = 1 To UBound(ar)
    
21.     dr(x - 1) = ar(x, 1)
    
22. Next
    
23. Call sndPlaySound(dr(0), &H5)
    
24. End Sub
    

复制代码

有限制，数据不能超工作表最大行数 1048576 行；
音频文件一般数据较大，十秒、几秒的音频可能就超工作表最大行数了，
当然，也可将数据分多列写入来处理……

炎猪

aman1516 发表于 2023-3-11 11:15
对象嵌入不懂，
如果音频文件很小，可以直接把WAV以二进制写到工作表中，需要时从工作表中读取播放
试 ...

涨知识了，再次感谢！！

炎猪

aman1516 发表于 2023-3-11 11:15
对象嵌入不懂，
如果音频文件很小，可以直接把WAV以二进制写到工作表中，需要时从工作表中读取播放
试 ...

用aman1516教的方法修改了代码，.wav音效文件转换为二进制先存入excel单元格，然后启动游戏时把单元格数据写入音效数组。好处就是去除了外挂音效.wav文件，代价就是excel本身因为存放了大量数据，体积增大7M左右。如果各位大神还有存储数据的同时还能减小文件体积的方法，欢迎继续讨论指导，谢谢。修改代码后的文件见附件。

踏破拖鞋

太牛了  界面设计也很契合。

Adultpeter

⊙⊙！很不错嘛

txh30603866

⊙⊙！厉害