Thread View: cn.bbs.comp.program
1 messages
1 total messages
Started by ���δ�
Mon, 22 Jun 1998 00:00
vb�������3
Author: ���δ�
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]
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads