Article View: cn.bbs.comp.program
Article #574vb�������3
From: ���δ�
Date: Mon, 22 Jun 1998 00:00
Date: Mon, 22 Jun 1998 00:00
187 lines
10077 bytes
10077 bytes
VB �� �� С �� �ɣ�3��
�� �� �� �� �� ��
̷��
---- �� ij Щ �� �� �£� �� �� �� �� Ա �� �� �� д һ �� ��
Ϸ�� �� �� �� Ҫ �� �� һ �� �� �� �� �� �� �� �� �� �̣� ��
�� ͨ �� �� �� �� �� �� �� �� �� Ϸ �� �� �� Ч �� �� �� ��
�� �� �� �� �� �� �� �� �� �� �� �롣 �� �� �� �� �� �� ��
Microsoft Visual Basic �� �� �� �� �� �� �� �� �� �š�
�� �� �� �� �� ��
---- ��Microsoft Visual Basic �� �� �� �� ý �� �� �� �� ��
�� �� һ �� �� �� �� �� �� �� �顣 ��Microsoft Windows ϵ ͳ
�� ֧ �� �� �� �� �� �� ��WAV �� �� ��MIDI �� ���� ͨ �� ʹ
��Windows Ӧ �� �� �� �� �� �� �ڣ�API�� �� ��mciExecute ��
�� �� �� ��MIDI �� �� �� �� �� �š� �� ʹ ��API ��
��sndPlaySound �� �� �� ��WAV �� �� �� �� �� �� �� �ţ� ��
Ȼ�� �� Ҳ �� �� ʹ ��mciExecute �� �� �� �� ��WAV �� ����
---- Ϊ �� �� ��WAV �� ���� �� �� Ҫ �� �� �� �� �� �� �� ��
ͨ �� �� �� �� �� �У� �� �� �� ģ �� �� �� �� �� �� ��
�� �� �� �䣺
---- Private Declare Function sndPlaySound Lib "winmm.dll"
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal
uFlags As Long) As Long
---- �� �� �� �� �� �� ʶ �� ����
---- Public Const SND_SYNC = &H0
---- Public Const SND_ASYNC = &H1
---- Public Const SND_NODEFAULT = &H2
---- Public Const SND_MEMORY = &H4
---- Public Const SND_ALIAS = &H10000
---- Public Const SND_FILENAME = &H20000
---- Public Const SND_RESOURCE = &H40004
---- Public Const SND_ALIAS_ID = &H110000
---- Public Const SND_ALIAS_START = 0
---- Public Const SND_LOOP = &H8
---- Public Const SND_NOSTOP = &H10
---- Public Const SND_VALID = &H1F
---- Public Const SND_NOWAIT = &H2000
---- Public Const SND_VALIDFLAGS = &H17201F
---- Public Const SND_RESERVED = &HFF000000
---- Public Const SND_TYPE_MASK = &H170007
---- sndPlaySound �� �� �� Ҫ �� �� �� �� �� һ �� �� ��
soundfilename �� Ҫ �� �� ��WAV �� �� �� �� �ơ� �� �� �� ��
�� �� һ �� �� �� �� �� �� ʽ �� �� ʶ �� ���� �� �� �� ��
ֵ �� �� �� ʾ�� ͨ �� �� ʹ �� �� �� ʶ �� �� �� �£�
---- SND_SYNC �� ��WAV �� ���� �� �� �� �� �� �� �� �� ת ��
�� �� �� Ӧ �� �� �� �С�
---- SND_ASYNC �� ��WAV �� ���� Ȼ �� �� �� �� �� �� ת ��
�� �� �� Ӧ �� �� �� �У� �� �� �� ��WAV �� �� �� �� �� ��
�� �� ��
---- SND_NODEFAULT �� Ҫ �� �� ȱ ʡ ��WAV �� ���� �� �� ��
�� ij ٠�� �� �� �� ��
---- SND_MEMORY �� �� �� ǰ �� �� �� �� �� �� �� �� ��WAV ��
����
---- SND_LOOP ѭ �� �� ��WAV �� ����
---- SND_NOSTOP �� �� ʼ �� �� �� �� ��WAV �� �� ֮ ǰ�� ��
Ҫ �� �� �� ��WAV �� �� �� �� �š�
---- ע �⣺SND_LOOP �� ʶ ͨ �� �� Ҫ ͬSND_ASYNC �� ͬ ʹ
�ã� Ҳ �� �� �� �� �� ʶ ֮ �� �� �� �� �� �� �� �� �� ��
��WAV �� �� �� �� �� �� �� ʱ �� �� ϵ ͳ �� ��
---- Ϊ �� �� ��MIDI �� ���� �� �� Ҫ �� �� �� �� �� �� ��
�� ͨ �� �� �� �� �� �У� �� �� �� ģ �� �� �� �� �� ��
�� �� �� �� �䣺
---- Private Declare Function mciExecute Lib "winmm.dll"
Alias "mciExecute" (ByVal lpstrCommand As String) As Long
---- mciExecute �� �� ֻ �� Ҫ һ �� �� ��CommandString��
�� �� ˼ �壬 �� �� һ �� �� �� �� �� ���� �� �� �� �� �� ��
�� �� �� �� �� �� �� � �� �磬 ϣ �� �� �� �� �� �� �� ��
���� �� �� �� �� �� �� �� �� �� ���play" �� �� �� �� �� ��
�� · �� �� �� �� �� �� �ƣ� �� �� �� ʾ**
---- Dim ReturnValue As Long
---- ReturnSoundValue = mciExecute("play
C:\WIN95\MEDIA\CANYON.MID")
---- �� �� ϣ �� �� �� �� �� �� �� �� �� �� �� �� �ţ� �� ��
ʹ ��from...to... �� �� �� ʽ�� �� �� �� Ҫ �� ��CANYON.MID
�� �� ��10 �� �� ��100 �� �� �� �� �֣� �� �� ʹ �� �� �� ��
�� �䣺
---- Dim ReturnValue As Long
---- ReturnSoundValue = mciExecute("play
C:\WIN95\MEDIA\CANYON.MID from 10 to 100")
---- mciExecute �� �� Ҳ �� �� �� �� ��WAV �� �� �� �� ��
�ţ� �� �� ͬ �� ��MIDI һ ��
�� �� �� ��
---- 1. ��Visual Basic �� �� ʼ һ �� �� �� �� Ŀ�� �� �� ȱ
ʡ �� �� �� �� ��Form1��
---- 2. �� �� �� �� �� �� �� �� �� �� ��Form1 �� ͨ �� �� ��
�� �� �У� ע �� ÿ �� �� �� �� �� �� Ҫ �� �� д �� һ ��
�ڣ���
---- Private Declare Function sndPlaySound Lib "winmm.dll"
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal
uFlags As Long) As Long
---- Const SND_SYNC = &H0
---- Const SND_ASYNC = &H1
---- Const SND_NODEFAULT = &H2
---- Const SND_MEMORY = &H4
---- Const SND_ALIAS = &H10000
---- Const SND_FILENAME = &H20000
---- Const SND_RESOURCE = &H40004
---- Const SND_ALIAS_ID = &H110000
---- Const SND_ALIAS_START = 0
---- Const SND_LOOP = &H8
---- Const SND_NOSTOP = &H10
---- Const SND_VALID = &H1F
---- Const SND_NOWAIT = &H2000
---- Const SND_VALIDFLAGS = &H17201F
---- Const SND_RESERVED = &HFF000000
---- Const SND_TYPE_MASK = &H170007
---- Private Declare Function mciExecute Lib "winmm.dll"
Alias "mciExecute" (ByVal lpstrCommand As String) As Long
---- 3. ��Form1 �� �� �� һ �� �� �� �� �� ���� �� �� ȱ ʡ
�� �� �� �� ��Text1�� �� �� ��Caption �� �� �� �� ΪNULL��
---- 4. ��Form1 �� �� �� һ �� �� �� �� ť �� ���� �� �� ȱ
ʡ �� �� �� �� ��Command1�� �� �� ��Caption �� �� �� �� Ϊ"
ʹ ��sndPlaySound �� ��*
---- 5. ��Form1 �� �� �� һ �� �� �� �� ť �� ���� �� �� ȱ
ʡ �� �� �� �� ��Command2�� �� �� ��Caption �� �� �� �� Ϊ"
ʹ ��mciExecute �� ��*
---- 6. �� �� �� �� �� �� �� �� ��Command1 �� �� �� �� ��
�У�
Private Sub Command1_Click()
Dim ReturnValue As Long
Text1.Text = " ʹ ��sndPlaySound �� �� �� ��TADA.WAV �� ����"
ReturnValue = sndPlaySound("C:\WIN95\MEDIA\TADA.WAV", SND_SYNC)
End Sub
---- 7. �� �� �� �� �� �� �� �� ��Command2 �� �� �� �� ��
�У�
Private Sub Command2_Click()
Dim ReturnValue As Long
Text1.Text = " ʹ ��mciExecute �� �� �� ��Canyon.mid �� ����"
ReturnSoundValue = mciExecute
("play C:\WIN95\MEDIA\CANYON.MID from 10 to 100")
End Sub
---- ͨ �� �� ��F5 �� �� ִ �� �� �� �� �� �� ��" ʹ
��sndPlaySound �� ��" �� �� �� ť �� ʹ ��sndPlaySound ��
�� �� �� ��C:\WIN95\MEDIA Ŀ ¼ �� �� ��TADA.WAV �� �� ��
���� �� ͼ1�� �� ��" ʹ ��mciExecute �� ��" �� ʹ
��mciExecute �� �� �� �� ��C:\WIN95\MEDIA Ŀ ¼ �� ��
��CANYON.MID �� �� ��10 �� �� ��100 �� �� �� �� �֣� �� ͼ2
�� ʾ��
--
�� ��Դ:��Yat-sen Channel argo.zsu.edu.cn��[FROM: 202.116.78.75]
Technical Details
Message-ID:
<3PCW5g$tjB@argo.zsu.edu.cn>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB X-Google-Thread: fc86e,7bdbcb021241b88d,start X-Google-Attributes: gidfc86e,public From: ox.bbs@argo.zsu.edu.cn (���δ�) Subject: vb���С����3 Date: 1998/06/22 Message-ID: <3PCW5g$tjB@argo.zsu.edu.cn> X-Deja-AN: 365073801 X-Filename: Programming/M.898523418.A Organization: Yat-sen Channel BBS Newsgroups: cn.bbs.comp.program