中财网上海携程网招聘石家庄:如何用Toolbar ActiveX控件来生成Coolbar界面
来源：百度文库 编辑：中财网 时间：2024/05/02 08:05:56
如何用Toolbar ActiveX控件来生成Coolbar界面
www.diybl.com 时间 ： 2007-08-07 作者：佚名 编辑：本站 点击： 385 [ 评论 ]
-
-
本文描述如何用 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 x
x=CREATEOBJECT("myform")
x.SHOW
**************************************************
* myform - Class Definition
**************************************************
DEFINE CLASS myform as Form
ADD OBJECT myclass1 AS myclass
ADD OBJECT check1 AS checkbox WITH;
Top = 150,;
Left = 50,;
Height = 50,;
Caption = "CoolBar"
PROCEDURE check1.Click
DO CASE
CASE This.value = 0
&& Changing the Toolbar to look like Coolbar.
Thisform.myclass1.OBJECT.Style = 0
CASE This.value = 1
&& Changing the Toolbar to Standard Toolbar.
Thisform.myclass1.OBJECT.Style = 1
ENDCASE
ENDPROC
PROCEDURE myclass1.ButtonClick
*** ActiveX Control Event ***
LPARAMETERS button
DO CASE
CASE Button.key = "One"
WAIT WINDOW "Test1"
CASE Button.key = "Two"
WAIT WINDOW "Test2"
CASE Button.key = "Three"
WAIT WINDOW "Test3"
ENDCASE
ENDPROC
PROCEDURE myclass1.ButtonMenuClick
*** ActiveX Control Event ***
LPARAMETERS buttonmenu
DO CASE
CASE buttonmenu.key = "One"
WAIT WINDOW "SubOne"
CASE buttonmenu.key = "Two"
WAIT WINDOW "SubTwo"
ENDCASE
ENDPROC
ENDDEFINE
*-- EndDefine: myform
**************************************************
文章出处：飞诺网(www.diybl.com):http://www.diybl.com/course/3_program/rfoxpro/2007617/62738.html