china.com
主页
新闻
体育
游戏
文化
教育
健康
财经
科技
旅游
军事
娱乐
商贸
  科技动态 硬件广场 下载基地 网络教室 网络冲浪 科学博览 移动时代 手机上网 桌面壁纸 科技商情  


用VB5.0实现多首背景音乐的循环播放

2000-08-14 15:22:29

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

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

2. 新建一个工程,在窗体中添加一个MMControl控件(应先在“工程/部件”中选择Microsoft 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. 此外,你还可在容器或菜单中加一个背景音乐开关。

  摘自《赛迪网》 吴丰/文

404 Not Found

404 Not Found


nginx


科技检索


中华网推荐

  • 1000名医生在线咨询

  • 中国足球队官方网站

  • 鸦片玫瑰(新版)

  • 精选股票天地

  • 闪光的flash教程

  • 中华网汽车世界

  • 为你的爱情出谋划策

  • 网文精选——野百合集

  • 世界文化遗产在中国

  • 历届香港小姐风姿集




  • 网络教室编辑信箱
    版权声明 | 本站检索 | 联系方法 | 刊登广告 | 使用说明 | 关于中华网 | 豁免条款

    版权所有 中华网