Com组件技术(8)

COM组件概述与入门实例

3、在工程，“引用”中选择“VCCOMTest”组件，如下图

4、双击CommandButton 按钮，添加如下代码 Private Sub Command1_Click() Dim obj As COMTestInVC

Set obj = New COMTestInVC '定义一个COMTestInVC对象 Dim num1, num2, num3 As Long '定义变量 num1 = 1 num2 = 2

dd num1, num2, num3 '函数调用 MsgBox "1+2=" & num3 End Sub

5、保存工程，并执行，效果，如下图

搜索“diyifanwen.net”或“第一范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，第一范文网，提供最新资格考试认证Com组件技术(8)全文阅读和word下载服务。