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