大家幫我看看，怎么可以用它實現循環播放音樂？Public Sub PlaySound(filename) Dim cmd As String Call mciSendString("close MyWav", 0, 0, 0) '_ MyWav cmd = "open " & filename & " type WAVEAudio_ alias MyWav" Call mciSendString(cmd, 0, 0, 0) Call mciSendString("play MyWav ", 0, 0, 0)End Sub

熱心網友

你為什么把一個問題問這么多遍呢