Toolbar..

Mira este link ...

http://64.68.235.101/pinter/ShowArticle.ASP?ArtNum"5&Language=Spanish

Ejemplo ...

oToolBar = CreateObject ("MyToolBar")

oToolBar.Show ()

Read Events

Define Class MyToolBar as ToolBar

Top = 1
Left = 1
Width = 100

Caption = "Mi Toolbar"

Add Object cmdExit as cPtrButton with Caption = "Salir"
Add Object Sep1 as Separator
Add Object cmdHello as cPtrButton with Caption = "Hola"

Procedure cmdExit.Click
* - --
ThisForm.Release

Clear Events
EndProc

Procedure cmdHello.Click
Messagebox ("Aquí estoy!")
EndProc

EndDefine

Define Class cPtrButton as CommandButton

Height = 25
Width = 75
Enabled = .T.
Visible = .T.
Style = 0
FontName = "Arial"
FontSize = 8

EndDefine

David Amador Tapia
WebMaster de La Web de Davphantom
www.davphantom.net
Cartagena. Colombia
Tel. (5) 6581523 - 6621502 - Cel 310-6581865


"Oscar portorreal" escribió en el mensaje
news:

Saludos a todos.
Alguien podria facilitarme algun ejemplo o informacion para la realizacion
de un toolbar para colocarlo en mi formulario principal.

Gracias por sus comentarios...
Oscar Portorreal
Santo Domingo, Republica Dominicana

Excelente Link Gracias.



"David Amador (Davphantom)" escribió en
el mensaje news:

Mira este link ...

http://64.68.235.101/pinter/ShowArticle.ASP?ArtNum"5&Language=Spanish

Ejemplo ...

oToolBar = CreateObject ("MyToolBar")

oToolBar.Show ()

Read Events

Define Class MyToolBar as ToolBar

Top = 1
Left = 1
Width = 100

Caption = "Mi Toolbar"

Add Object cmdExit as cPtrButton with Caption = "Salir"
Add Object Sep1 as Separator
Add Object cmdHello as cPtrButton with Caption = "Hola"

Procedure cmdExit.Click
* - --
ThisForm.Release

Clear Events
EndProc

Procedure cmdHello.Click
Messagebox ("Aquí estoy!")
EndProc

EndDefine

Define Class cPtrButton as CommandButton

Height = 25
Width = 75
Enabled = .T.
Visible = .T.
Style = 0
FontName = "Arial"
FontSize = 8

EndDefine

David Amador Tapia
WebMaster de La Web de Davphantom
www.davphantom.net
Cartagena. Colombia
Tel. (5) 6581523 - 6621502 - Cel 310-6581865


"Oscar portorreal" escribió en el mensaje
news:
> Saludos a todos.
> Alguien podria facilitarme algun ejemplo o informacion para la

realizacion

> de un toolbar para colocarlo en mi formulario principal.
>
> Gracias por sus comentarios...
> Oscar Portorreal
> Santo Domingo, Republica Dominicana
>
>

Otra solución la tienes en los ejemplos que trae VFP Solutions:

DO HOME(2)+'Solution\Solution'

Formularios -> Crear un formulario SDI


Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos



"Oscar portorreal" escribió en el mensaje
news:

Saludos a todos.
Alguien podria facilitarme algun ejemplo o informacion para la realizacion
de un toolbar para colocarlo en mi formulario principal.

Gracias por sus comentarios...
Oscar Portorreal
Santo Domingo, Republica Dominicana

Saludos...

Aun no he podido implementar mi barra de herramientas, la cree desde el
diseñador de clases
he buscado todas las formas posible para hacerla visible en mi formulario de
nivel superior pero se me han complicado las cosas, por favor me urge.he
leído buscado todo tipo de ejemplo y no consigo lo que quiero. Esto lo
coloco en el load de mi forma, lo he probado en diferentes formas y nada

Ej: Ibarra=newobject('barrar','mibarra')
IF VARTYPE(oBarra)='O'
obarra.visible=.t.
obarra.show()
ENDIF

Por favor Ayuda..

Oscar Portorreal
Santo Domingo, Republica Dominicana


"Luis María Guayán" escribió en el mensaje
news:

Otra solución la tienes en los ejemplos que trae VFP Solutions:

DO HOME(2)+'Solution\Solution'

Formularios -> Crear un formulario SDI


Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos



"Oscar portorreal" escribió en el mensaje
news:
> Saludos a todos.
> Alguien podria facilitarme algun ejemplo o informacion para la

realizacion

> de un toolbar para colocarlo en mi formulario principal.
>
> Gracias por sus comentarios...
> Oscar Portorreal
> Santo Domingo, Republica Dominicana
>
>

Olviden el post anterior
ya conseguí la respuesta, después de crear la clase en el diseñador de
clases para ponerla en el formulario principal hice lo siguiente:
método Active
SELECT plist
thisform.AddProperty('otoolbar')
IF TYPE("thisform.oToolbar")="O" AND;
!ISNULL(thisform.oToolbar)
RETURN
ENDIF
SET CLASSLIB TO mytoolbar ADDITIVE
thisform.oToolbar=create("mytoolbar1",THISFORM)
thisform.oToolbar.show
Thisform.otoolbar.Dock(0)
thisform.oToolbar.caption='adfasdf'
RELEASE CLASSLIB mytoolbar

Gracias de todos modos




"Oscar Portorreal" escribió en el mensaje
news:udf%

Saludos...

Aun no he podido implementar mi barra de herramientas, la cree desde el
diseñador de clases
he buscado todas las formas posible para hacerla visible en mi formulario

de

nivel superior pero se me han complicado las cosas, por favor me

urge.he

leído buscado todo tipo de ejemplo y no consigo lo que quiero. Esto lo
coloco en el load de mi forma, lo he probado en diferentes formas y

nada

Ej: Ibarra=newobject('barrar','mibarra')
IF VARTYPE(oBarra)='O'
obarra.visible=.t.
obarra.show()
ENDIF

Por favor Ayuda..

Oscar Portorreal
Santo Domingo, Republica Dominicana


"Luis María Guayán" escribió en el mensaje
news:
> Otra solución la tienes en los ejemplos que trae VFP Solutions:
>
> DO HOME(2)+'Solution\Solution'
>
> Formularios -> Crear un formulario SDI
>
>
> Luis María Guayán
> Tucumán, Argentina
> ________________________________
> SysOp de www.PortalFox.com
> Microsoft Visual FoxPro MVP
> ________________________________
> La palabra imposible solo figura
> en el diccionario de los tontos
>
>
>
> "Oscar portorreal" escribió en el mensaje
> news:
> > Saludos a todos.
> > Alguien podria facilitarme algun ejemplo o informacion para la
realizacion
> > de un toolbar para colocarlo en mi formulario principal.
> >
> > Gracias por sus comentarios...
> > Oscar Portorreal
> > Santo Domingo, Republica Dominicana
> >
> >
>
>