VFP用ToolbarActiveX控件生成Coolbar界面.doc

VFP用ToolbarActiveX控件生成Coolbar界面概述本文描述如何用 Microsoft Toolbar Version 6.0 ActiveX 控件创建一个类似于 Coolbar 的界面.更多信息Coolbar 界面是一种仅当用户移动动它上面才突起的的按钮, 就象 IE 4.0 那样.主要的生成 Coolbar 按钮的属性是 Toolbar Active 控件的 Style 属性. Style 属性的默认值是 0 ASCII 150 Standard 按钮. 改变该属性为 1 ASCII 150 Transparent 可提供类似于 Coolbar 按饭的效果.示例用以下代码创建一个程序文件:PUBLIC xx=CREATEOBJECT(myform)x.SHOW* myform - Class DefinitionDEFINE CLASS myform as FormADD OBJECT myclass1 AS myclassADD OBJECT check1 AS checkbox WITH;Top = 150,;Left = 50,;Height = 50,;Caption = CoolBarPROCEDURE check1.ClickDO CASECASE This.value = 0& Changing the Toolbar to look like Coolbar.Thisform.myclass1.OBJECT.Style = 0CASE This.value = 1& Changeing the Toolbar to Standard Toolbar.Thisform.myclass1.OBJECT.Style = 1ENDCASEENDPROCPROCEDURE myclass1.ButtonClick* ActiveX Control Event *LPARAMETERS buttonDO CASECASE Button.key = OneWAIT WINDOW Test1CASE Button.key = TwoWAIT WINDOW Test2CASE Button.key = ThreeWAIT WINDOW Test3ENDCASEENDPROCPROCEDURE myclass1.ButtonMenuClick* ActiveX Control Event *LPARAMETERS buttonmenuDO CASECASE buttonmenu.key = OneWAIT WINDOW SubOneCASE buttonmenu.key = TwoWAIT WINDOW SubTwoENDCASEENDPROCENDDEFINE*- EndDefine: myform* myclass - Class DefinitionDEFINE CLASS myclass AS olecontrol#DEFINE tbrDEFAULT 0 & (默认) 按钮#DEFINE tbrCHECK 1 & 复选框#DEFINE tbrBUTTONGROUP 2 & 按钮组#DEFINE tbrSEPARATOR 3 & 分隔器#DEFINE tbrPLACEHOLDER 4 & 占位器#DEFINE tbrDROPDOWN 5 & 菜单按钮下拉Top = 0Left = 0Height = 38Width = 375Align = 1Name = Olecontrol1OleClass = MSComCtlLib.Toolbar.2PROCEDURE InitThis.Buttons.Add(,One,Test1,)This.Buttons.Add(,Two,Test2,)This.Buttons.Add(,Spr,tbrSEPARATOR,)This.Buttons.Add(,Three,Test3,tbrDROPDOWN,)This.Buttons(4).ButtonMenus.Add(1,One,