Проигрывание Wav-файлов
Часто в приложениях нам нужно проиграть какую-нибудь музыку.
Для этого мы обычно добавляем какой-нибудь компонент, например - MciWnd.
Но в результате использования компонентов размер программы существенно увеличивается, поэтому
если Вы не хотите создавать профессиональный плайер, то нужно использовать лишь стандартные
средства Visual Basic'а.
Итак для этого создаем новый проект и добавляем в него модуль класса под называнием WavePlayer
и записываем в него:
Private mFileName As String
Private mFlagsAs String
Private Declare Function sndPlaySound lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'Создаем интерфес к свойству Filename
Prublic Property Get Filename() As String
filename = mFilename
End Function
Public Property Let Filename(ByVal vNewValue As String)
mFilename = vNewValue
End Property
'Теперь интерфейс свойства Flags
Public Property Get Flags()As Long
Flags = MFlags
End Property
Public Property Let Flags(ByVal vNewValue As Long)
mFlags = vNewValue
End Property
'А теперь создадим единственный метод класса
Public Sub Play()
Dim rc As Long
rc = sndPlaySound(nFilename, mFlags)
End Sub
Всё, с классом мы закончили, теперь переходим к использованию созданного класса:
'Создаем ссылку на класс
Option Explicit
Private wav As WavePlayer
'Создаем экземпляр класса
Private Sub Form_Load()
Set wav= New WavePlayer
End Sub
'При завершении работы приложения объкт WavePlayer необходимо уничтожить
Private Sub Form_Unload(cancel As Integer)
Set wav = Nothing
End Sub
'Для воспроизведения Wav:
Private Sub Play_Click()
With
.FileName = App.Path & "tada.wav"
.Flags = 1
.Play
End With
End Sub