关于VB背景音乐

来源：百度知道 编辑：UC知道 时间：2024/05/18 01:47:09
我想用控件OLE打开一个mid声音文件，当打开FORM窗体的时候，这个音乐就打开，当关闭这个窗体的时候就关闭。给点具体点的代码啊！！！
还有怎么打开OLE控件的文件，怎么关闭OLE控件的文件哦！！
~~~~~~先谢谢了！

Visual Basic是第一个支持对象连接与嵌入（OLE）的开发工具，利用OLE可以简单的在应用程序中插入声音文件。这也是使用Visual Basic开发多媒体软件常用的方法。使用过VB的读者都知道，VB的ToolBox中就有OLE2.0控件。当我们双击OLE2.0控件时，会弹出“Insert Object”窗口，在窗口中选择对象类型Object Type为声音文件，选择“Create from File”,指定硬盘上声音文件的位置，同时确认Link方式。这些步骤其实是在设置OLE2.0的属性。通过按F4打开Properties属性窗口，设置其中的Class、SourceDoc、SourceItem等属性也可完成这一工作。按F5运行程序，双击OLE对象时就会发声。与播放各种声音文件相关的属性为Action，通过设置Action属性可以打开、驱动、删除相应的声音对象。如下例在窗体装入时调用声音文件：
Sub Form_Load ()
ole1.Class = "soundrec"
ole1.SourceDoc = "c:\windows\ding.wav"
ole1.Action = 1
ole1.Action = 7
End Sub