Access2000下内部COM插件的编程实现
2008-02-26 20:26:35 来源:WEB开发网简介
在这里,我们仍然使用VC6中的ATL来实现Access2000下的内部COM插件,至于其基本原理和详细的实现方法及步骤,可以参看前面我的文章< Office2000下内部COM插件的编程实现>等,这里只重点说明它和其它Office2000中内部COM插件(如:Word2000、Excel2000、PowerPoint2000、Outlook2000)实现的不同之处,文章及示例代码都可以在http://code.ddvip.com网站中找到。下面是Access2000内部COM插件示例代码运行后的效果图:
具体实现
打开VC6.0,在新建工程中选中ATL COM Appwizard,在右侧工程名中输入AccessAddin,点击Finish(完成)按钮完成工程创建。接着,选取菜单Insert->New ATL Objec项,在弹出的ATL对象向导对话框中选中相应Objects对应右侧的Simple Object选项,点击下一步,在弹出的对话框中ShortName中输入AcceAddin,点OK完成插入ATL对象。
接着通过导入类型库来实现_IDTExtensibility2接口,编释好上面所建工程后,在ClassView中的CAcceAddin类上点鼠标右键,在弹出的右键菜单中选Implement Interface项。在弹出的实现接口对话框中点击Add Typelib,在弹出的Browse Type Libraries对话框中,向下滚动选取Microsoft Add-in Designer(1.0)子项,点OK按钮。在弹出的接口列表对话框中选中_IDTExtensibility2接口,点OK按钮完成导入。系统会自动为你生成空的上面所提到的五个所需接口函数。
下面来看看它们之间实现的不同点。
第一点:注册类型信息有所不同(*.rgs),在文件AcceAddin.rgs中内容的下面,添加所下代码:
HKCU
第二点:在文件中Stdafx.h中的类型的导入库部分源码将有所不同,可在Stdafx.h中添加下面代码。
{
Software
{
Microsoft
{
Office
{
Access
{
Addins
{
''AccessAddin.AcceAddin''
{
val FriendlyName = s ''Access2000插件''
val Description = s ''使用ATL开发的Access2000的内部插件''
val LoadBehavior = d ''00000003''
val CommandLineSafe = d ''00000000''
}
}
}
}
}
}
}#pragma warning(disable:4146) // 暂时屏蔽编译时4146警告信息
导入Access2000所需类型库ADO、DAO、VBE、OFFICE及ACCESS库(具体路径可根据实际情况自行设定,jingzhou xu)#import "D:\\Program Files\\Common Files\\system\\ado\\msado21.tlb" no_namespace \
第三点:Access2000中没有ActiveExplorer对象,所以不必象Outlook2000一样要经过它来获取CommandBars,可以直接从_Application中获得CommandBars对象进行操作。修改部分如下面源码所示:
rename ("EOF", "adoEOF")
#import "D:\\Program Files\\Common Files\\Microsoft Shared\\DAO\\DAO360.DLL" rename("EOF","EndOfFile") \
rename("BOF","BegOfFile")
#import "E:\\Program Files\\Microsoft Office\\Office\\mso9.dll" rename_namespace("Office")
using namespace Office;
#import "D:\\Program Files\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.olb" rename_namespace("VBE6")
using namespace VBE6;
#import "E:\\Program Files\\Microsoft Office\\Office\MSACC9.OLB" named_guids,rename_namespace("MSACCESS")
using namespace MSACCESS;
#pragma warning(default:4146) // 恢复编译时4146警告信息// 装缷插件时处理, jingzhou xu
STDMETHOD(OnConnection)(IDispatch * Application, ext_ConnectMode ConnectMode, IDispatch * AddInInst, SAFEARRAY * * custom)
{
CComPtr < Office::_CommandBars> spCmdBars;
// Access应用接口_Application
CComQIPtr<MSACCESS::_Application> spApp(Application);
ATLASSERT(spApp);
// 获取CommandBars接口
HRESULT hr = spApp->get_CommandBars(&spCmdBars);
if(FAILED(hr))
return hr;
ATLASSERT(spCmdBars);
// 新增一个工具条及其上一个位图按钮
CComVariant vName("新增Access2000工具条插件");
CComPtr <Office::CommandBar> spNewCmdBar;
// 新增工具条位置
CComVariant vPos(1);
CComVariant vTemp(VARIANT_TRUE); // 临时
CComVariant vEmpty(DISP_E_PARAMNOTFOUND, VT_ERROR);
// 用Add方法在指定位置新增一工具条并让spNewCmdBar指向它
spNewCmdBar = spCmdBars->Add(vName, vPos, vEmpty, vTemp);
// 获取新增工具条的CommandBarControls,从而在其上添加按钮
CComPtr < Office::CommandBarControls> spBarControls;
spBarControls = spNewCmdBar->GetControls();
ATLASSERT(spBarControls);
// MsoControlType::msoControlButton = 1
CComVariant vToolBarType(1);
// 显示工具条
CComVariant vShow(VARIANT_TRUE);
CComPtr < Office::CommandBarControl> spNewBar;
// 用CommandBarControls中的Add方法新增第一个按钮,并让spNewBar指向它
spNewBar = spBarControls->Add(vToolBarType, vEmpty, vEmpty, vEmpty, vShow);
ATLASSERT(spNewBar);
// 为每一个按钮指定_CommandBarButton接口,从面可以指定按钮的显示风格等
CComQIPtr < Office::_CommandBarButton> spCmdButton(spNewBar);
ATLASSERT(spCmdButton);
// 设置位图按钮风格,位图为32x32大小,将其放入剪切板中,用PasteFace()贴在指定按钮上
HBITMAP hBmp =(HBITMAP)::LoadImage(_Module.GetResourceInstance(),
MAKEINTRESOURCE(IDB_BITMAP),IMAGE_BITMAP,0,0,LR_LOADMAP3DCOLORS);
::OpenClipboard(NULL);
::EmptyClipboard();
::SetClipboardData(CF_BITMAP, (HANDLE)hBmp);
::CloseClipboard();
::DeleteObject(hBmp);
// 粘贴前设置显示风格
spCmdButton->PutStyle(Office::msoButtonIconAndCaption);
hr = spCmdButton->PasteFace();
if (FAILED(hr))
return hr;
spCmdButton->PutVisible(VARIANT_TRUE);
spCmdButton->PutCaption(OLESTR("按钮1"));
spCmdButton->PutEnabled(VARIANT_TRUE);
spCmdButton->PutTooltipText(OLESTR("按钮1提示信息"));
spCmdButton->PutTag(OLESTR("按钮1标志信息"));
// 显示新增工具条
spNewCmdBar->PutVisible(VARIANT_TRUE);
m_spButton = spCmdButton;
// 激活新增的工具条按钮的事件连接点
m_spApp = spApp;
hr = CommandButton1Events::DispEventAdvise((IDispatch*)m_spButton);
if(FAILED(hr))
return hr;
::EmptyClipboard();
return S_OK;
}
不同之处,主要是以上三点,至于其它部分,如工具条按钮CommandBarButton派发接口的响应事件、打开或断开与接口的连接方法等都没有太大变化,其具体实现前面的文章已经介绍过了,有兴趣的朋友可以参看下面参考文献中的几篇有关Office2000下内部COM插件的编程实现文章,然后再看这篇文章及示例源码一定会倍感轻松。
参考文献:
Office2000下内部COM插件的编程实现 -- 徐景周
Word2000/XP中内部COM插件的编程实现 -- 徐景周
Excel2000/XP和PowerPoint2000/XP下内部COM插件的实现 -- 徐景周
ATL开发指南(第二版) -- Tom Armstrong & Ron Patton
- ››Access数据库安全策略之ASP式
- ››Accessibility.updateProperties ,Accessibility...
- ››COM 组件多层聚合嵌套原理
- ››Access denied for user...
- ››Access denied for user: root@dbhost (Using pas...
- ››access 的页怎么用
- ››COM对象与连接点机制及其MFC程序实现
- ››comScore 统计显示 Android 市场份额继续高歌猛进...
- ››ComScore:谷歌 Android 美国市场份额增至9%
- ››Access 2000中的查询分析器
- ››access编程打开其他数据库中的窗体
- ››Access报表打印如何自动分页
更多精彩
赞助商链接