VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb教程之用VB5.0实现多首背景音乐的循环播放

许多有关VB5编写多媒体程序的文章解决了如何循环播放一首背景音乐的问题。但普遍存在两大局限性,一是只能播放一首乐曲,二是要得到曲长,现改进如下: 

1. 在E:\FODDER\SOUND目录下准备五个WAV文件,文件名分别为:BK1.WAV--BK5.WAV。 

2. 新建一个工程,在窗体中添加一个MMControl控件(?ο仍凇肮こ蹋考敝醒≡馦icrosoft Multimedia Control 5.0),一个Timer控件,其Interval属性设为5000。 

3. 双击窗体,在代码窗口的对象下拉框中选择“(通用)”,添加代码Dim i As Integer。 

4. 给Form的Load事件添加如下代码: 

Private Sub Form_Load() 

  MMControl1.Notify = False 

  MMControl1.Wait = True 

  MMControl1.Shareable = False 

  i = 1     注释:首先播放第一首音乐 

  If Not (MMControl1.Mode = mciModeNotOpen) Then 

    MMControl1.Command = "close" 

  End If 

  MMControl1.DeviceType = "waveaudio" 

  MMControl1.filename = "e:\fodder\sound\bk" & Trim(Str(i)) & ".wav" 

  MMControl1.Command = "Open" 

  MMControl1.Command = "Play" 

End Sub 

5. 给Timer的Timer事件添加如下代码 

Private Sub Timer1_Timer() 

  If MMControl1.Mode = 525 Then  注释:若一首乐曲放完,则放下一首 

    MMControl1.Command = "close" 

    i = i + 1 

    If i > 5 Then   注释:五首音乐放完,则循环 

      i = 1 

    End If 

    MMControl1.DeviceType = "waveaudio" 

    MMControl1.filename = "e:\fodder\sound\bk" & Trim(Str(i)) & ".wav" 

    MMControl1.Command = "open" 

    MMControl1.Command = "play" 

  End If 

End Sub 

6. 此外,你还可在容器或菜单中加一个背景音乐开关。 

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。


相关教程