大话战国gm命令:如何在vb中加入音乐

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/05 23:00:18
请问如何在VB中加入一段音乐,需要当软件运行的时候点一下按钮就可以播放的那种`!`由于水平问题,问题问的有点含糊,也希望答案越详细越好

首先应创建一个包含 Multimedia MCI 控件的窗体。

Private Sub Form_Load ()
' Set properties needed by MCI to open.
MMControl1.Notify = FALSE
MMControl1.Wait = TRUE
MMControl1.Shareable = FALSE
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = "C:\WINDOWS\MMDATA\GONG.WAV"

'打开 MCI WaveAudio 设备。
MMControl1.Command = "Open"
End Sub

为了正确管理多媒体资源,在退出应用程序之前,应该关闭那些已经打开的 MCI 设备。将下面的语句放到 Form_Unload 过程,那么在退出包含 Multimedia MCI 控件的窗体之前,就可以关闭那些已经打开的 MCI 设备。

Private Sub Form_Unload (Cancel As Integer)
MMControl1.Command = "Close"
End Sub

可以用mediaplayer控件进行播放!

在脚本<body></body>中间加:
<embed src="images/光良 - 02.都是你.mp3" autostart="true" loop="true"embed>