🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: cn.bbs.comp.program
Article #574

vb�������3

#574
From: ���δ�
Date: Mon, 22 Jun 1998 00:00
187 lines
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-mail

Show 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