1. 打开VC6,菜单上新建,ALT COM AppWizard,工程名称 trycom1
2. COM类型页,全部默认值。完成,另一页要求确认时点确认。
3. 生成trycom1类后,右键添加新object
选Simple Object,点Next
4. Short Name填simpletry,其它名字会自动填充。
属性页,aggregation 点 No,然后确定
5. 填加方法
方法名填经典的 AddNumbers, 参数按图填写。然后,确认。
6. 双击AddNumbers,右侧出现AddNumbers模块,填上函数 *RetVal = Num1 + Num2
7. 然后F7 Build 或在菜单上选Build
不出误输入或误操作的话,编译结果应该没有警告或错误。
8. 工菜单栏的工具中,点击Register Control
9. 在菜单的工具中,执行 OLE/COM Object Viewer
接下来,在新面页上点开 Type Libraries
在Type Libraries中找到显示名称 trycom1 1.0 Type Library(Ver 1.0)项,双击,右边会看到它的Library名称是 TRYCOM1LIB。在VB6引用时,先找显示名称,代码中引用Library 名称。
10. VB6中建立新的标准EXE工程,在菜单栏的工程下选“引用”,在引用页打勾 trycom1 1.0 Type Library项。
双击Command1,填写代码。圈1是VC6中的Library名称,圈2是VC6中添加的Object,圈3是VC6中添加的方法名称。
运行程序,结果如图。
源型参考: