ActiveX控件过程的操作步骤
这是我们需要解决的N个问题(从简单到难)
1． 如何从服务端获取数据，传递到ActiveX控件中。
1） 初始化时使用参数绑定
2） 运行时得到数据
2． ActiveX控件得到客户端的信息，如何传递到服务端。
3． 安全性
1） 数字签名
2） 使用IOBJSAFE接口
好了，我们开始实例学习。
这个功能演示了如何制作一个简单的控件,并嵌入网页中执行。
工作环境:WINXP+VB6+IE6
我的IE安全设置为安全级别-中。所有的Activex选项设为启用。
打开vb6,新建ActiveX控件工程。
工程名:fOcx，用户控件名:UC1
为了方便，我们使用ActiveX控件接口向导…,菜单->外接程序->外接程序管理器->VB 6 ActiveX控件接口向导。确定即可。
打开ActiveX控件接口向导，下一步，对于可用名称和选定名称我们默认下一步，新建自定义成员，GetInfo类型:属性，下一步，共有方法中选择我们刚才添加的GetInfo,映射到控件选择TxtInfo,成员选择Text,下一步直到完成。代码窗口中会生成一些我们不需要的，删除，剩下的代码如下：
Option Explicit
'注意！不要删除或修改下列被注释的行！
'MappingInfo=txtinfo,txtinfo,-1,Text
Public Property Get GetInfo() As String
GetInfo = txtinfo.Text
End Property
Public Property Let GetInfo(ByVal New_GetInfo As String)
txtinfo.Text() = New_GetInfo
PropertyChanged GetInfo
End Property
'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
txtinfo.Text = PropBag.ReadProperty(GetInfo, Text1)
End Sub
'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty(GetInfo, txtinfo.Text, Text1)
End Sub
OK,好了，我们编译成fOcx.ocx文件，然后F5直接运行,VB会打开一个测试页。如下：
E:\Program Files\Microsoft Visual Studio\VB98\UC1.html
同时，打开你的IE浏览器,看到了吧，你做的控件出现在了这个测试页中。
你可以打开测试页，可以看到ClsID,比如：890D1028-298B-45CF-9A64-6ED5A5BACBC9
因为VB编译的时候已经完成注册.所以无法模拟客户端没有安装该控件时出现的提示.
我们继续
使用regsvr32 F:\csdn_vb\com+_activeX\sample1\fOcx.ocx –u卸载
或者
打开注册表,在HKEY_CLASSES_ROOT\CLSID下面找到
890D1028-298B-45CF-9A64-6ED5A5BACBC9项,删除之,当然这种方式还有项存在而没有删除干净.
由于IE中ActiveX设置为启动，所以，控件会显示出来。
AiPPT
2024-09-19 广告
