《VBA高档应用30例》（版权10178985），是我推出的第十套教程，教程是荒谬针对高档学员在学习VBA历程中普及道路上的案例伸开，这套教程案例与表面斡旋，紧贴“实战”，并作念“政策回来”，以便群众能很好的应用。教程的标的是条款群众在骨子责任平分发VBA步调，写好的步调不错升级。本套教程共三册三十个专题，本讲的内容是：VBA高档应用30例应用5：转盘游戏代码终了之音效终了

【共享服从，随喜正能量】10东谈主生有可为之事，也有不可为之事。可为之事，当奋发为之，此谓尽性；不可为之事，当全心从之，此谓知命。毕竟东谈主生幸福的事情，不是活的像别东谈主，而是在努力之后，活得更像我方，作念我方的光，一步步走向光明，即使前路漫长，也要坚强。

在骨子责任中，咱们发现Excel是一个相等严肃和纷乱的应用步调，但这并不料味着咱们不可从中取得乐趣。在本文中，我将给群众陶冶怎么构建一个Excel文献，使您概况玩红运轮，同期咱们会援手声息和一些必要游戏基础设施构建！

为了终了音效，咱们看底下的代码：

#If VBA7 Then

Private Declare PtrSafe Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _

(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

#Else

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _

(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

#End If

'Sound constants

Private Const SND_SYNC = &H0

Private Const SND_ASYNC = &H1

Private Const SND_NODEFAULT = &H2

Private Const SND_LOOP = &H8

Private Const SND_NOSTOP = &H10

Sub PlayBackLoop()

If Len(Dir(ThisWorkbook.Path & "\WheelOfFortune.wav")) > 0 Then

WAVLoop ThisWorkbook.Path & "\WheelOfFortune.wav"

End If

End Sub

Sub PlayBackStop()

Call WAVPlay(vbNullString)

End Sub

Sub WAVLoop(File As String)

Dim SoundName As String

Dim wFlags As Long

Dim x As Long

SoundName = File

wFlags = SND_ASYNC Or SND_LOOP

x = sndPlaySound(SoundName, wFlags)

If x = 0 Then MsgBox "Can't play the audio file. ", vbCritical, "Error"

End Sub

代码截图：

代码的陶冶：以上代码终了的是音效的播放和罢手，诈欺的是一个API函数。由于API函数功能纷乱，但不是VBA边界，我仅仅调用，不再过多陶冶，如若群众有酷好，我会送给群众一份十分全的API函数贵府。

我20多年的VBA施行教诲，沿路浓缩不才面的各个教程中：