Article ID: 128077
Article Last Modified on 2/12/2000
oToolbar1=CREATEOBJECT('cToolbar')
oToolbar1.Show
= Messagebox("Moving the Toolbar")
oToolbar1.Dock(0)
= Messagebox( "Top")
oToolbar1.Dock(1)
=Messagebox( "Left")
oToolbar1.Dock(3)
=Messagebox( "Bottom")
oToolbar1.Dock(2)
=Messagebox( "Right")
DEFINE CLASS cToolbar AS TOOLBAR
Scalemode = 1
* Make this a control array
DIMENSION cmdim(3)
ADD OBJECT cmdim(1) as CommandButton WITH caption = "One", Left =1
ADD OBJECT cmdim(2) as CommandButton WITH caption= "Two", Left =10
ADD OBJECT cmdim(3) as CommandButton WITH caption = "Three",Left= 15
ENDDEFINE
Additional query words: VFoxWin
Keywords: kbcode KB128077