您的位置：首页 > 编程语言 > ASP

ASP.NET中应用VB6编写的Activex控件

2010-05-02 23:26 218 查看
打开microsoft visual basic开发环境，新建一个Activex控件



设计界面如下,这是直接运行这个控件的结果。接下来我们看看如何



一个驱动器控件，一个文件夹控件，一个文件显示控件
代码如下：

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

再添加一个form窗体，命名为form1，拖一个windowMedaplayer上去,如下图
代码如下



Sub Command1_Click() Sub Command1_Click()
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub

总体的功能是点击文件列表如果所点击的文件时MP3文件，则播放其。



查看源文件如下
<HTML><BODY><OBJECT classid="clsid:E324CF06-C6E8-4F7F-AD6A-95FB7D2ADF5D">
</OBJECT></BODY></HTML>



ok现在我们看看如何在asp.net项目中引用，前台代码如下
点击播放按钮弹出文件选择框，选择MP3文件进行播放。
看看效果



本机的话不用进行cab包签名，只需要进行ocx的注册（注册方法如：regsvr32 G:\WebSite2\工程1.ocx）。否则则需要对控件进行签名。cab文件可通过VB6的打包程序得到。
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签：  ASP 编写 控件 Activex NET
相关文章推荐
新的分享
章节导航