Microsoft KB Archive/192075

= How To Making Coolbar Interface Using Toolbar ActiveX Control =

Article ID: 192075

Article Last Modified on 7/1/2004

-

APPLIES TO


 * Microsoft Visual FoxPro 5.0 Standard Edition
 * Microsoft Visual FoxPro 5.0a
 * Microsoft Visual FoxPro 6.0 Professional Edition

-



This article was previously published under Q192075



SUMMARY
This article describes how to create a Coolbar like interface using the Microsoft Toolbar Version 6.0 ActiveX control.



MORE INFORMATION
The Coolbar interface is an interface where the buttons highlight only when the user moves the mouse over them, like the behavior in Internet Explorer version 4.0.

The main property to make a Coolbar like button is the Style property of the Toolbar active control. The default value of the Style property is "0 [ASCII 150] Standard" button. Changing this property to "1 [ASCII 150] Transparent" provides Coolbar like button behavior.

Example
 Create a program file and place the following code in the file:

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 && Changeing 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 **************************************************

**************************************************     * myclass - Class Definition **************************************************     DEFINE CLASS myclass AS olecontrol

#DEFINE tbrDEFAULT 0     && (Defaul) Button #DEFINE tbrCHECK  1      && CheckBox #DEFINE tbrBUTTONGROUP 2 && ButtonGroup #DEFINE tbrSEPARATOR 3   && Separator #DEFINE tbrPLACEHOLDER 4 && Placeholder #DEFINE tbrDROPDOWN 5    && MenuButton DropDown

Top = 0 Left = 0 Height = 38 Width = 375 Align = 1 Name = "Olecontrol1" OleClass = "MSComCtlLib.Toolbar.2"

PROCEDURE Init This.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","SubOne") This.Buttons(4).ButtonMenus.Add(2,"Two","SubTwo") ENDPROC

ENDDEFINE

*-- EndDefine: myclass **************************************************



