ActiveX控件的MFC设计之旅-第13步 .

在VB的属性视图中,还有一个有意思的功能是将属性列在不同的类别,如,外观,行为,数据等等。这种功能是怎么来的,我自己的控件中的自定义的属性是不是也能列在这些类别中,我能不能创建自己的类别呢。

很简单,在你的控件中实现一个接口ICategorizeProperties就可以了,这个接口只有两个方法
HRESULT MapPropertyToCategory(DISPID dispid,PROPCAT* ppropcat);
HRESULT GetCategoryName(PROPCAT propcat,LCID lcid,BSTR* pbstrName);

PROPCAT实际上就是一int,表示某种类别编号
MapPropertyToCategory就是用来设置相应dispid的属性的类别的
GetCategoryName应是用来设置你自定义的类别(编号为propcat)的显示字符串的

看起来似乎挺简单的,可惜的是,这个接口没有定义,COleControl也没有帮我们做任何的工作。幸好,对于添加接口,我们已经有了经验了,前面的文章有过许多例子了。

我们有上一文中的例子tppb

1.在.odl上添加新接口定义

// ICategorizeProperties接口定义
[ uuid(4D07FC10-F931-11CE-B001-00AA006884E5),
helpstring("ICategorizeProperties Interface"),pointer_default (unique) ]
interface ICategorizeProperties : IUnknown
{
typedef [public] int PROPCAT;
const int PROPCAT_Nil = -1;
const int PROPCAT_Misc = -2;
const int PROPCAT_Font = -3;
const int PROPCAT_Position = -4;
const int PROPCAT_Appearance = -5;
const int PROPCAT_Behavior = -6;
const int PROPCAT_Data = -7;
const int PROPCAT_List = -8;
const int PROPCAT_Text = -9;
const int PROPCAT_Scale = -10;
const int PROPCAT_DDE = -11;
HRESULT MapPropertyToCategory(DISPID dispid,BSTR* pbstrName);
};

2.添加嵌套类,作为ICategorizeProperties接口的实现类
a.在tppbctl.h中添加声明
......
DECLARE_EVENT_MAP()

public:
BEGIN_INTERFACE_PART(CategorizeProperties,ICategorizeProperties)
STDMETHOD(MapPropertyToCategory)(DISPID dispid,PROPCAT* ppropcat);
STDMETHOD(GetCategoryName)(PROPCAT propcat,BSTR* pbstrName);
END_INTERFACE_PART(CategorizeProperties)
DECLARE_INTERFACE_MAP()
// Dispatch and event IDs
public:
enum {
//{{AFX_DISP_ID(CTppbCtrl)
dispidWeek = 1L,
dispidParam = 2L,
//}}AFX_DISP_ID
};
......
b.在tppbctl.cpp中添加实现代码

STDMETHODIMP_(ULONG) CTppbCtrl::XCategorizeProperties::AddRef()
{
METHOD_PROLOGUE_EX_(CTppbCtrl,CategorizeProperties)
return (ULONG)pThis->ExternalAddRef();
}

STDMETHODIMP_(ULONG) CTppbCtrl::XCategorizeProperties::Release()
{
METHOD_PROLOGUE_EX_(CTppbCtrl,CategorizeProperties)
return (ULONG)pThis->ExternalRelease();
}

STDMETHODIMP CTppbCtrl::XCategorizeProperties::QueryInterface(REFIID iid,LPVOID* ppvObj)
{
METHOD_PROLOGUE_EX_(CTppbCtrl,CategorizeProperties)
return (HRESULT)pThis->ExternalQueryInterface(&iid,ppvObj);
}

STDMETHODIMP CTppbCtrl::XCategorizeProperties::MapPropertyToCategory(DISPID dispid,PROPCAT* ppropcat)
{
METHOD_PROLOGUE_EX_(CTppbCtrl,CategorizeProperties)
if(dispid == dispidWeek){
*ppropcat = PROPCAT_Data;
return S_OK;
}
else if(dispid == dispidParam){
*ppropcat = 1;
return S_OK;
}
return E_FAIL;
}

STDMETHODIMP CTppbCtrl::XCategorizeProperties::GetCategoryName(PROPCAT propcat,BSTR* pbstrName)
{
METHOD_PROLOGUE_EX_(CTppbCtrl,CategorizeProperties)
if(propcat == 1){
*pbstrName = ::SysAllocString(L"参数");
return S_OK;
}
return E_FAIL;
}
注:这里将Week属性列入了数据类别(PROPCAT_Data)中,将Param属性列入自定义的类别"参数"中,类别编号为1,对于自定义的类别编号,必须大于0

3.将ICategorizeProperties接口添加到控件的接口映射表中
a.在tppbctl.h中添加接口映射声明
public:
BEGIN_INTERFACE_PART(CategorizeProperties,ICategorizeProperties)
STDMETHOD(MapPropertyToCategory)(DISPID dispid,PROPCAT* ppropcat);
STDMETHOD(GetCategoryName)(PROPCAT propcat,BSTR* pbstrName);
END_INTERFACE_PART(CategorizeProperties)
DECLARE_INTERFACE_MAP()

b.在tppbctl.cpp中添加ICategorizeProperties到映射表中

BEGIN_INTERFACE_MAP(CTppbCtrl,COleControl)
INTERFACE_PART(CTppbCtrl,IID_IDispatch,Dispatch)
INTERFACE_PART(CTppbCtrl,DIID__DTppb,IID_ICategorizeProperties,CategorizeProperties)
END_INTERFACE_MAP()

4.现在编译的话,会发现少了很多的定义,需要从.odl中生成相应的接口定义文件,在文件列表中找到tppb.odl,点右键,选择Settings,在Output header file name中输入tppbuuid.h(不存在的任何文件名都可),确定后,再点右键,选择Compile tppb.odl,即生成tppbuuid.h文件了。

5.在tppbctl.h文件中#include "tppbuuid.h"

6.新建一initIIDs.cpp文件,输入代码如下:
#include <ole2.h>
#include <initguid.h>
#include "tppbuuid.h"
在文件列表中,找到initIIDs.cpp,点右键,在C/C++项中,选择Category为Precompiled Headers,并设置为Not using precompiled headers


7.编译,如果链接出现DllMain之类的错误,请移除initIIDs.cpp,然后再加入,并重新设置Precompiled Headers,再编译即可。

8.好了,在VB下测试就可以了

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...