信息: VB Automation of Visual C++ Server Using OBJ1.OBJ2.prop Syntax
文章 ID : 137343
最后评论 : December 1, 2003
修正版本 : 1.0
本文章先前在知识库 Q137343 条发表
本页来源(英文查看):http://support.microsoft.com/default.aspx?scid=kb;en-us;137343
翻译:huyoo,胡子,来自: http://blog.csdn.net/huyoo [--转载请不要删除此信息--]
本页目录
摘要
更多信息
摘要
编程中非常必要访问OLE Automation 服务器暴露的嵌套对象的属性.
Visual Basic 语法是: OBJ1.OBJ2.Property
这篇文章示范了怎样在Viusal C++环境下创建一个简单OLE Automation服务器,然后在Visual Basic中调用服务器的嵌套对象访问属性.
更多信息
下面的步骤示范了怎样在VC++中创建一个 OLE Automation 服务器,它允许在 Visual Basic 中 使用 OBJ1.OBJ2.Property 这样的语法访问.
在VC++中创建OLE Automation 服务器的步骤:
1. 使用AppWizard创建一个名字为 AutoServ 的工程,单文档结构的,选中 Automation 这一项.
2. AppWizard创建完成之后,查看 ClassWizard.
3. 单击选中 Automation 标签.
4. 单击 Add Class 按钮, 输入下面的值, 创建下面这个类:
Class Name: nested
Class Type: CCmdTarget
选中 Automation 这一项
5. 单击 ClassWizard 的 Automation 标签. 把 Class Name 选择为 nested, 单击 Add Property 按钮, 输入下面的值,然后单击 OK:
External Name: Value
Type: long
6. 在ClassWizard 中把类名(ClassName)改变为 CAutoServDoc. 这时,将可能弹出是否保存改变,单击是.然后单击 Add Method 按钮输入下面的值,单击OK.
External Name: Nested
Return Type: LPDISPATCH
7. 点OK 以接受这些由 ClassWizard 添加的部分.
8. 打开 project的 AutoServDoc.h 文件, 在文件的头部加入下面这行:
#include "nested.h"
9. 在同一个文件中,添加一个公共成员变量( public member variable) m_nested ,类型为 nested . 一个转撤机构会被用来维持这个 nested 类; 不过在此例中, 所选的方法将会分别随着Documents的构造和析构,而自动构造和析构对象nested(它变成了文档的子类)
10. 打开 project的nested.h 文件, 并且修改这个nested 类的构造和析构函数的访问权限为 public ,以便Document调用.
11. 打开 project 的AutoServDoc.cpp 文件, 并且修改 Nested Method 如下:
LPDISPATCH CAutoServDoc::Nested()
{
//TODO: Add your dispatch handler code here
return m_nested.GetIDispatch(TRUE);
}
12. 编译工程, 然后运行 AutoServ.exe ,以注册这个服务器到注册表.
在 Visual Basic 中测试这个服务器程序.
1. 启动一个新的工程在Visual Basic中,用来测试这个 OLE Automation 服务器.
2. 切换到代码编辑模式.
3. 在对象选择的复合下拉框中,选 general .
4. 输入下面的代码:
Dim Server As object
5. 在对象选择的复合下拉框中,选择Form. 修改 Sub 过程如下:
Sub Form_Load ()
Set Server = CreateObject("autoserv.document")
Debug.Print Server.Nested.Value '我添加的
Server.Nested.Value = 10
x = Server.Nested.Value '我添加的
Debug.Print x
End Sub
6. 添加 x 和 Server.Nested.Value到 Visual Basic watch窗口, 这样当你单步调试的时候,你就可以观察它们的值的改变.
----------------------------------------------------------
我已经测试过代码,在VC6.0的环境下编译成功,在VB6.0中成功实现了调用.
第六步实际上已经不需要了.
参考资料:
GUI大夫和COM自动化，第一部分 http://www.microsoft.com/china/MSDN/library/archives/techvoiCE/10.asp
自动化对象 http://blog.csdn.net/wingforward/archive/2005/01/12/250539.aspx
Automation In C++ Builder http://blog.csdn.net/kingcaiyao/archive/2003/02/24/15200.aspx