 |
vb6.0
windows98
能否在vb中实现wav和avi文件的自动播放？如果能的话该如何实现?(kobee)
|
| |
|
 |
播放WAV文件可以采用API函数sndPlaySound。
先加入如下声明：
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_LOOP = &H8
Const SND_NOSTOP = &H10
然后使用
sndPlaySound("c:\windows\tada.wav", SND_ASYNC Or SND_NODEFAULT)
播放WAV文件。另外，请参考QA000457 "SndPlaySound播放WAV文件时候不能进行其他对窗口的操作"。
播放AVI文件，可以在工程中加上Microsoft Windows Common Controls - 2，其中有一个Automation控件是播放AVI文件的。
在下面示例中，用“打开”对话框打开一个 .avi 文件并自动播放。要试用此例，在窗体上放置 Animation 控件和 CommonDialog 控件，并把代码粘贴到窗体的声明部分。运行该例，并选择要打开的 .avi 文件。
Private Sub Animation1_Click ()
With CommonDialog1
.Filter = "avi (*.avi)|*.avi"
.ShowOpen
End With
With Animation1
.Autoplay = True
.Open CommonDialog1.Filename
End With
End Sub
另外，请参考QA001084 "如何全屏播放avi动画文件"。
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, 多媒体, multimedia, mdi, wav, mp3, rm。
|
| |
|
| |
|
| |
|
|
能否在vb中实现wav和avi文件的自动播放