打开microsoft visual basic开发环境,新建一个Activex控件
![](https://i-blog.csdnimg.cn/blog_migrate/de43653275575392afe7d8c250517241.png)
设计界面如下,这是直接运行这个控件的结果。接下来我们看看如何
![](https://i-blog.csdnimg.cn/blog_migrate/27d4ead41021f52f2f89e32a53ab8400.png)
一个驱动器控件,一个文件夹控件,一个文件显示控件
总体的功能是点击文件列表如果所点击的文件时MP3文件,则播放其。
代码如下:
Sub Command1_Click()
Sub Command1_Click()
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub
Sub Dir1_Change() Sub Dir1_Change()
ChDir Dir1.Path
File1.Path = Dir1.Path
End Sub
Sub Drive1_Change() Sub Drive1_Change()
ChDrive Drive1.Drive
Dir1.Path = Drive1.Drive
End Sub
Sub File1_DblClick() Sub File1_DblClick()
If File1.FileName Like "*.mp3" Then
Form1.Show
Form1.WindowsMediaPlayer1.URL = File1.FileName
End If
End Sub
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub
Sub Dir1_Change() Sub Dir1_Change()
ChDir Dir1.Path
File1.Path = Dir1.Path
End Sub
Sub Drive1_Change() Sub Drive1_Change()
ChDrive Drive1.Drive
Dir1.Path = Drive1.Drive
End Sub
Sub File1_DblClick() Sub File1_DblClick()
If File1.FileName Like "*.mp3" Then
Form1.Show
Form1.WindowsMediaPlayer1.URL = File1.FileName
End If
End Sub
再添加一个form窗体,命名为form1,拖一个windowMedaplayer上去,如下图
代码如下
![](http://fmn.xnimg.cn/fmn040/20100303/2025/b_large_E0hD_3e0f000100a52d14.jpg)
Sub Command1_Click()
Sub Command1_Click()
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub
总体的功能是点击文件列表如果所点击的文件时MP3文件,则播放其。
![](http://fmn.xnimg.cn/fmn045/20100303/2040/b_large_d1La_5df2000104092d10.jpg)
查看源文件如下
<HTML><BODY><OBJECT classid="clsid:E324CF06-C6E8-4F7F-AD6A-95FB7D2ADF5D">
</OBJECT></BODY></HTML>
</OBJECT></BODY></HTML>
![](http://fmn.xnimg.cn/fmn040/20100303/2230/b_large_4Pmn_599900003acb2d0c.jpg)
ok现在我们看看如何在asp.net项目中引用,前台代码如下
点击播放按钮弹出文件选择框,选择MP3文件进行播放。
看看效果
![](http://fmn.xnimg.cn/fmn036/20100303/2240/b_large_bIdp_5df0000098f12d10.jpg)
本机的话不用进行cab包签名,只需要进行ocx的注册(注册方法如:regsvr32 G:\WebSite2\工程1.ocx)。否则则需要对控件进行签名。cab文件可通过VB6的打包程序得到。