Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Toolbar
Message
De
06/03/2001 09:53:24
 
 
À
06/03/2001 09:32:37
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Divers
Thread ID:
00482092
Message ID:
00482210
Vues:
10
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform