Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Toolbar
Message
From
06/03/2001 09:53:24
 
 
To
06/03/2001 09:32:37
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Miscellaneous
Thread ID:
00482092
Message ID:
00482210
Views:
11
João
I have made a little change to my example to work like you wish (i think !!!)

jbgci => Name of my class
bar_of_tool => A Toolbar created in the Class jbgci
Jbcommandbutton => A Buttom created in the Class jbgci

Example:

Release jbtoolbar1
Public jbtoolbar1

SET CLASSLIB TO jbgci ADDITIVE

jbtoolbar1 = Createobject( "bar_of_tool" )
jbtoolbar1.Caption = "Joao Batista - Primeira Toolbar"
jbtoolbar1.Addobject ( "Button1" , "Jbcommandbutton" )
jbtoolbar1.Addobject ( "Sep1" , "Separator" )
jbtoolbar1.Addobject ( "Button2" , "Jbcommandbutton" )
jbtoolbar1.Addobject ( "Sep2" , "Separator" )

jbtoolbar1.button1.caption="\"
jbtoolbar1.button1.Visible = .T.
jbtoolbar1.button1.autosize=.t.
jbtoolbar1.button2.caption="|"
jbtoolbar1.button2.autosize=.t.
jbtoolbar1.button2.Visible = .T.

jbtoolbar1.width =200
jbtoolbar1.Show


>Your example works, but it creates another toolbar. if i run your code, it >shows 2 toolbars.

i do not understand ??? With me this only show's one toolbar.

Nuno Brito
Nuno Brito
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform