VB6.0动态加载ActiveX控件漫谈(3)

原作者:kuku 添加时间:2007-06-02 原文发表:2007-06-02 人气:93 来源：互联网

本文章共3891字，分3页，当前第3页，快速翻页：

-----------------------------------------------------------------------------------------------------------------------------------------------

本文提示：《VB6.0动态加载ActiveX控件漫谈(3)》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

-----------------------------------------------------------------------------------------------------------------------------------------------

oControl.Visible = True
End Function

Private Sub Form_Load()
mblnTheory = True
End Sub

---- 3、为按钮cmdLoadOcx编写代码
Private Sub cmdLoadOCX_Click()
If mblnTheory Then
Call LoadControl(0)
mblnTheory = False
cmdLoadOCX.Caption = "实物图"
Else
Call LoadControl(1)
mblnTheory = True
cmdLoadOCX.Caption = "原理图"
End If
End Sub

---- 4、为事件ChangePosition编写代码
Private Sub oControl_ObjectEvent
(Info As EventInfo)
Select Case Info.Name
Case "ChangePosition"
MsgBox CStr(Info.EventParamters.Item(
1).Value) + ":" + _
CStr(Info.EventParamters.Item(2).Value)
Case "DbClick"
'双击处理代码
Case Else '
End Select
End Sub

---- 注意： EventInfo的参数EventParamters集合中是以1开始的，一般来说，微
软新的集合一般是以1开始的，而旧的是以0开始的，如RdoErrors.Item(0)。
---- 5、关闭窗口前卸载控件

Private Sub Form_Unload(Cancel As Integer)
Controls.Remove("MapView")
Set oControl = Nothing
End Sub

---- 6、特别注意
---- 通过Controls.Add方法添加的ActiveX控件一定不能在该工程中有该控件的任
何引用，否则系统将出错。

四、小结

---- 通过使用动态加载ActiveX控件使用庞大的应用程序变得很小，将不同的
ActiveX控件进行各种组合，使应用程序更加灵活多变，如您的应用系统要处理三十种门禁，
而某个具体的用户可能只有一种或两种门禁，根本没必要首先将所有门禁包含到应用
中，可将各个门禁独立封装，只安装注册需要的组件，就象Windows的自定义安装一样。
微软的未来技术基础是分布式的组件技术(DCOM)，将会把代码的重用发挥得淋漓尽致。
您不妨试一试动态加载，也许会产生令您惊喜的效果！

本文章更多内容：<<上一页 - 1 - 2 - 3

本页地址