1.关于游戏场景，比如说像那种一关一关的游戏，如何做不同场景做出不同关卡
2.关于音乐播放如何能同时播放2个音乐，下面这个代码为何不行
Sub playsoundBGM1()
Dim SoundInst
As
New
SoundClass
SoundInst.PlaySoundFile(
"C:\Users\wangqinxu\Desktop\Game\Music\Hit.wav")
End
Sub
Sub playsoundBGM2()
Dim SoundInst
As
New
SoundClass
SoundInst.PlaySoundFile(
"C:\Users\wangqinxu\Desktop\Game\Music\BadGuys.wav")
End
Sub
Public
Class
SoundClass
Declare
Auto
Function PlaySound
Lib
"winmm.dll" (
ByVal name
As
String,
ByVal hmod
As
Integer,
ByVal flags
As
Integer)
As
Integer
Public
Const SND_SYNC = &H0
Public
Const SND_ASYNC = &H1
Public
Const SND_FILENAME = &H20000
Public
Const SND_RESOURCE = &H40004
Public
Sub PlaySoundFile(
ByVal filename
As
String)
PlaySound(filename,
Nothing, SND_FILENAME
Or SND_ASYNC)
End
Sub
3.关于打砖块游戏，如何弄关于小球击打方块4个不同面，转向并消除