
Sub nextmusic()
Static f
f = f + 1'счётчик музыки
If f = 6 Then f = 1
End If
MMC.Command = "close"
compname = App.Path & "\Music" & f & ".wav"
MMC.Filename = compname
MMC.Command = "open"
MMC.Command = "play"
End Sub
Private Sub Form_Load()
MMC.Wait = True
MMC.Shareable = False
mmc.devicetype="WaveAudio"
nextmusic
End Sub
Private Sub MMC_Done(NotifyCode As Integer)
If MMC.Position = MMC.TrackLength Then'проверка, находимся ли мы в конце трека
MMC.Command = "close"
nextmusic
End If
Sub nextmusic()
Static f
f = f + 1'счётчик музыки
If f = 6 Then f = 1
End If
MMC.Command = "close"
compname = App.Path & "\Music" & f & ".wav"
MMC.Filename = compname
MMC.Command = "open"
MMC.Command = "play"
End Sub
MMC.Wait = True
MMC.Shareable = False
mmc.devicetype="WaveAudio"
nextmusic
If MMC.Position = MMC.TrackLength Then 'проверка, находимся ли мы в конце трека
MMC.Command = "close"
nextmusic
Sub nextmusic()
Static f
f = f + 1'счётчик музыки
If f = 6 Then f = 1
MMC.Command = "close"
compname = App.Path & "\Music" & f & ".wav"
MMC.Filename = compname
MMC.Command = "open"
MMC.Command = "play"
End Sub
Max! писал(а):Музыка не играет !
compname = App.Path & "C:\Music\" & f & "x.wav" ' Здесь указал путь до музыки !
compname = "C:\Music\" & f & "x.wav" ' Здесь указал путь до музыки !
Как сделать что бы в проге играла музыка например заканчивается одна запись и начинается другая и так до бесконечности сменяя друг друга
Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Public Sub PlaySound(strFileName As String)
sndPlaySound strFileName, 1
End Sub
Private Sub Command1_Click()
PlaySound "c:\wondering.wav"
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8