���� ���� ������ ������� ���� 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) |
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() |
� ������ ��� ��� ����� 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() |
� ������ ��� ��� ����� 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() |
������ ����� ���� ������ ��� ����� ������ ���� �� ����� � ���� � ��� �������� ������� FileName .
������ ������ ������ ������� Command ���� ����� .
������ ������ ������� �� ������� Command ������ ����� .
� ������ ����� ������ ������ ������� :
MMControl1.Command = "Stop" |
� ������ ���� ����� ������ ������ ������� :
MMControl1.Command = "Pause" |
� ������ ����� ������ ������ ������� :
MMControl1.Command = "Close" |
������� ������� ������ ����� ����� (����� �����) |
� ������ ����� ���� ���� ����� ����� ���� ������� � ��������� ������ ������� ���� ������� ���� ��� Ctrl+T � ���� �� ������� �� ������ ��� ������� Form:
� ������ ����� ���� ���� ������ ��� Form ������ ������ ������� :
Private Sub Form_Load() |
������ ����� ���� ������ ��� ����� ������ � ����� � ���� �� ����� Wav ��� ��� ������� ������� Source .
������ ������ ���� ������ ����� ������� �������� ������� autoStart ������ True .
� ������ ����� ������ ������ ������� :
RealAudio1.DoStop |
� ������ ���� ����� ������ ������ ������� :
RealAudio1.DoPlayPause |
� ���� ������� ������� ������ ���� ������� � ���� .
��� ����� �������� .
������� ���� : ����� �������� ������ �� ������ ���� ���� � ����� ��� ������ ����
���� ����� ������ ������ ���������@2006 |