�� 6

�� 6 �� 

�� 

��  Module

�� :

�� Add Module �� Project:

�� Open

��

�� Module1 �� :

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

� �� :

� �� (�� )

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

�� Api �� WAV � �� sndPlaySoundA �� winmm.dll ��

� �� Command1 � �� :

Private Sub Command1_Click()
esult = sndPlaySound(App.Path & "\s.wav", 0)
End Sub

esult �� .

sndPlaySound(App.Path & "\s.wav", 0)

sndPlaySound �� (, 0)

� �� s .

� �� (t)� �� (f) � �� .

�� .

�� : �� wav .

�� (�� )

�� ToolBox � �� Components .

� �� Project �� Components �� Ctrl+T .

�� Windows Media Player �� Apply � �� Close �� .

�� : �� Windows Media Player .

�� Form .

�� :

Private Sub Form_Load()
MediaPlayer1.FileName = App.Path + "\s.Wav"
End Sub

� �� s � �� Wav �� FileName .

�� .

�� : �� wave �� .

MediaPlayer1.FileName = App.Path + "\File.avi"

� �� MediaPlayer1 �� .

�� (�� )

�� ToolBox � �� Components .

� �� Project �� Components �� Ctrl+T .

�� Windows Media Player �� Apply � �� Close �� .

�� : �� Windows Media Player .

�� Form .

�� :

Private Sub Form_Load()
WindowsMediaPlayer1.URL = App.Path + "\s.Wav"
End Sub

� �� s � �� Wav �� URL �� .

�� .

�� : �� wave �� .

WindowsMediaPlayer1.URL = App.Path + "\File.avi"

� �� WindowsMediaPlayer1�� .

��  (Microsoft MutiMedia Control 6.0)

� �� Multimedia MCI Control �� Ctrl+T �� Microsoft MutiMedia Control 6.0 . �� Form .

�� :

Private Sub Form_Load()
MMControl1.FileName = App.Path + "\s.Wav"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub

�� FileName .

�� Command �� .

� �� :

MMControl1.Command = "Stop"

� �� :

MMControl1.Command = "Pause"

� �� :

MMControl1.Command = "Close"

�� (�� )

� �� Ctrl+T � �� Form:

� �� Form �� :

Private Sub Form_Load()
RealAudio1.Source = App.Path + "\s.Wav"
RealAudio1.autoStart = True
End Sub

�� Wav �� Source .

�� autoStart �� True .

� �� :

RealAudio1.DoStop

� �� :

RealAudio1.DoPlayPause

� �� .

�� .

�� : �� 

�� @2006