ActiveBar在PB中动态生成Outlook框架的应用

ActiveBar在PB中动态生成Outlook框架的应用

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- ActiveBar在PB中动态生成Outlook框架的应用 (http://www.webasp.net/article/22/21168.htm)

-- 作者：未知
-- 发布日期： 2005-04-29

ActiveBar在PB中动态生成Outlook框架的应用

By …---… (QQ:21417511)

一、ActiveBar简介：

在VB、VC或者Delphi程序员看来，ActiveBar是一款设计用户界面必不可少的ActiveX控件。使用它可以制作出像Word一样的个性化菜单、“自定义”对话框；像Outlook的快捷按钮栏；像CorelDRAW的入坞式窗口；像Delphi的控件选择页面。并且ActiveBar使用十分简单，保存设计图和加载设计图都十分简单，只用几个方法即可。

二、ActiveBar在PB中的应用

       很早就有大侠写了《ActiveBar控件在PowerBuilder中的应用》的文章，类似的介绍我就不多说了，没有看过该文章的可以用Google找一下来看看。我着重介绍一下如何用ActiveBar动态生成Outlook框架。

1、首先，我们要对ActiveBar的对象及其关系有个大体的了解，如下图所示：

2、接下来，我们来探讨一下如何用ActiveBar做Outlook框架。

先创建一个custom visual userobject，里面添置ActiveBar OLE控件ole_1，保存成：u_ActiveBar。这样做的好处是将ActiveBar控件封装成userobject，方便以后的调用。当然，我还喜欢在这个userobject上放一个statictext st_1，Text是：ActiveBar，这样我以后调用时就能一目了然啦：） userobject的construct代码如下：

st_1.hide( )

ole_1.x = 0

ole_1.y = 0

this.x = 0

this.y = 0

ole_1.width = this.width

ole_1.height = this.height

目的是让ole自动放置到调用窗口的左上方，并且隐藏掉st_1。

ActiveBar提供了大量的属性和方法，我们把这些属性与方法转换到u_ActiveBar中，以便以后直接调用。

下面，我们开始扩展u_ActiveBar。先把ActiveBar中常量定义到instance变量，这样就省得每次找帮助来看1、2、3…对应的含义啦，举例如下：

//CaptionPostion

Int ddCPStandard                            = 0 , &

        ddCPLeft                                   = 1 , &

        ddCPRight                                 = 2 , &

        ddCPAbove                                = 3 , &

        ddCPBelow                                = 4 , &

        ddCPCenter                               = 5

//ChildBandFont3D

int     dd3DNone                                  = 0 , &

        dd3DRaisedLight                         = 1 , &

        dd3DRaisedHeavy                       = 2 , &

        dd3DInsetLight                           = 3 , &

        dd3DInsetHeavy                          = 4

在PB中，对于ActiveBar的对象band及tool一律视为oleobject。例如我们要写一个函数，目的是让ActiveBar可以动态增加一个Band，我们可以在u_ActiveBar中创建如下函数：

/*------------------------------------------------------------------------------

Function:                     public u_ActiveBar.uf_Addband

Returns:         OLEObject

Parameters:      value String name

                  value String caption

                  value Integer dockingarea

                  value Integer grabhandlestyle

Description:

--------------------------------------------------------------------------------

2005-04-12    2.0.0              Initial version by cuixuf (Mail:cuixuf@chinarapid.com)

------------------------------------------------------------------------------*/

oleobject   lobj_band

lobj_band = create oleobject

lobj_band = ole_1.object.Bands.Add(name)

lobj_band.Caption = caption

lobj_band.ChildBandStyle = ddCBSSlidingTabs

lobj_band.DockingArea = DockingArea

lobj_band.GrabHandleStyle = GrabHandleStyle

return lobj_band

类似的，我们可以通过userobject的函数把ActiveBar需要用到的方法和属性集成到一起，在这里我就不多说了。大家可以看一下我做的u_ActiveBar，我集成了一些函数，但没有做全，如有人有兴趣的话，可以帮我补全，只是不要忘了发给我一份哦。

不过，不要开心得太早，我们用ActiveBar时可能最头痛的地方就是在动态生成tool时调用setpicture方法。ActiveBar中的帮助是这么写的：

[form!]Tool.SetPicture Index As ImageTypes, picture As Picture, [ color As Color ]

PB中是没有Picture类型的，用Blob取文件内容再赋值经过测试也不行，但是我们可以想到VB中有种数据类型就是PICTURE，只好曲线救国，利用VB写个OCX返回PICTURE类型让PB调用。VB中的OCX写法也很简单，如下：

Public Function getPict (ByVal strFileName As String) As Object

    Dim X As Picture

    Set X = LoadPict (strFileName)

    Set getPicture = X

End Function

生成OCX后，注册，并添加此OLE到u_ActiveBar中，名称为ole_2，设为Invisible。u_ActiveBar中uf_addtool函数示例如下：

/*------------------------------------------------------------------------------

Function:                     public u_ActiveBar.uf_Addtool

Returns:         OLEObject

Parameters:      value Integer id

                  value String name

                  value String caption

                  value Integer cposition

                  value String category

                  value Integer controltype

                  value String picture

                  value Integer toolstyle

                  value String tagvariant

Description:

--------------------------------------------------------------------------------

2005-04-12    2.0.0              Initial version by cuixuf (Mail:cuixuf@chinarapid.com)

------------------------------------------------------------------------------*/

oleobject lobj_tool

lobj_tool = create oleobject

lobj_Tool = ole_1.object.Tools.Add(id, name)

lobj_tool.Caption = caption

lobj_tool.CaptionPosition = cposition

lobj_tool.Category = category

lobj_tool.ControlType = controltype

lobj_tool.Style = toolstyle

lobj_tool.tagVariant = tagvariant

oleobject lobj_pic

lobj_pic = ole_2.object.getpict(picture)

lobj_tool.SetPicture(ddITNormal, lobj_pic )

return lobj_tool

OK，我们做完u_ActiveBar后，现在开始来使用它了。我们做一个用ActiveBar设计器做一个frame.tb2，只有一个status的band，其它的都不做，我们进行动态创建其它的对象。

在w_frame的OPEN事件里写如下代码：

string              ls_level1[]={"测试1","测试2","测试3"}, &

                      ls_level2_1[] = {"恭喜发财","万事如意","心想事成"}, &

                      ls_level2_2[] = {"Hello","World","My God"}, &

                      ls_level2_3[] = {"嘻嘻","哈哈","关于"}

long                i, &

                      j

Oleobject        lobj_band, &

                      lobj_childband, &

                      lobj_tool



ii_UniqueID = -1

//状态栏

uo_1.uf_load('',"frame.tb2",1 )

uo_1.uf_setstatuscaption( "Status", "designer", "...---... QQ:21417511" )

uo_1.uf_setstatuscaption( "Status", "operater", "用户: cuixuf")

//Outlook

lobj_band = uo_1.uf_addband( "Outlook", "工具栏", ddDALeft, ddGSNone)

uo_1.uf_setfont3d( lobj_band, dd3DInsetLight )

lobj_band.childbands.backcolor = rgb(58,110,165)

lobj_band.childbands.childbandBackGroundStyle = 0           //0:normal,1:gradient,2:picture

lobj_band.childbands.ChildbandCaptionAlignment = 1          //0:left,1:center,2:right

lobj_band.childbands.ForeColor = rgb(0,0,0)

lobj_band.childbands.ToolForeColor = rgb(255,255,255)

uo_1.uf_removeflag( lobj_band, ddBFDockTop)

uo_1.uf_removeflag( lobj_band, ddBFDockBottom)

uo_1.uf_removeflag( lobj_band, ddBFDockRight)

uo_1.uf_removeflag( lobj_band, ddBFFloat)

uo_1.uf_removeflag( lobj_band, ddBFCustomize)

uo_1.uf_removeflag( lobj_band, ddBFHide)

//Add tool

for i = 1 to Upperbound(ls_level1)

lobj_childband = uo_1.uf_addchildband( lobj_band, ls_level1[i], ls_level1[i] )

choose case i

        case 1

               for j = 1 to UpperBound(ls_level2_1)

//                           uo_1.uf_addtool( /*integer id*/, /*string name*/, /*string caption*/, /*integer cposition*/, /*string category*/, /*integer controltype*/, /*string picture*/, /*integer toolstyle*/, /*string tagvariant */)

                      lobj_tool = uo_1.uf_addtool( wf_getuniqueID(ii_UniqueID), ls_level2_1[j], ls_level2_1[j], ddCPBelow, ls_level1[i], ddTTButton, "find.ico", ddSIconText, ls_level2_1[j])

                      uo_1.uf_inserttool( lobj_childband, ii_UniqueID )

               next

        case 2

               for j = 1 to UpperBound(ls_level2_2)

                      lobj_tool = uo_1.uf_addtool( wf_getuniqueID(ii_UniqueID), ls_level2_2[j], ls_level2_2[j], ddCPBelow, ls_level1[j], ddTTButton, "find.ico", ddSIconText, ls_level2_2[j])

                      uo_1.uf_inserttool( lobj_childband, ii_UniqueID )

               next

        case 3

               for j = 1 to UpperBound(ls_level2_3)

                      lobj_tool = uo_1.uf_addtool( wf_getuniqueID(ii_UniqueID), ls_level2_3[j], ls_level2_3[j], ddCPBelow, ls_level1[j], ddTTButton, "find.ico", ddSIconText, ls_level2_3[j])

                      uo_1.uf_inserttool( lobj_childband, ii_UniqueID )

               next

        case else

end choose

next

//Resize u_ActiveBar

uo_1.uf_resize( this.workspacewidth( ) - 10 , this.workspaceheight( ) , mdi_1 )

uo_1.uf_resize( this.workspacewidth( ) , this.workspaceheight( ) , mdi_1 )

为了在w_frame变化窗口大小时ActiveBar及MDI窗口能随之变化，w_frame的RESIZE事件中写：uo_1.uf_resize( newwidth,newheight,mdi_1)

接下来，我们可以写一个函数f_menu，放在ActiveBar的toolclick事件里，我封装在u_ActiveBar的ue_toolclick上，根据ActiveBar的tool tag来进行不同的工作。

这样，一个用ACTIVEBAR动态创建Outlook的小例子就差不多完工了。我们在实际应用中，可以在数据库中建表存储MENU对应的模块ID号、模块名称、窗口名称、ICON图标等等信息，结合动态生成MENU的方法（关于动态生成MENU，可以参照汽球的BLOG，嘻嘻），用户通过自己的权限将获得不同的模块，从而动态生成属于不同用户的Outlook框架。

这是我第一次写东东，要特别感谢杨小宝做的取Picture字段的OCX。另外，如果有说得不清楚的地方或者需要讨论的事宜，请与我联系：） MAIL：cuixuf@sina.com，QQ：21417511。

webasp.net