能否在vb中实现wav和avi文件的自动播放.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 27 行

播 放 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文 件 。 
    播 放 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 
<END>