Bases de datos en castellano. Foros de debate. Visual FoxPro bases de datos mysql oracle sqlite access mssql

Privacidad: Recuerde que la información escrita en los foros de programación es 100% pública y que su ip será registrada asociada a su mensaje. Si encuentra un mensaje fuera de lugar, por favor, notifiquelo para su revisión y eliminación.

Enviado por Jorge el día 2 de noviembre de 2007

Hola, alguien me podria decir como agrego un barra de herramientas personalizada a un formulario desde el administrador de proyecto de visual foxpro?

Responder

Re: Como agregar barra de herramientas a Formulario

Enviado por Andres el día 2 de noviembre de 2007

La barra de herramientas se diseña a traves de un prg lo unico q debes hacer es incluirlo en el proyecto. Te envio un demo para q lo uses.
Suerte.

PUBLIC tbrBarra
tbrBarra = CREATEOBJ('miToolbar')
tbrBarra.Dock(0)
tbrBarra.SHOW

DEFINE CLASS miToolbar AS Toolbar
ADD OBJECT lblUsr AS Label
ADD OBJECT sep1 AS Separator
ADD OBJECT cmdPrn AS CommandButton
ADD OBJECT sep2 AS Separator
ADD OBJECT cmdCalc AS CommandButton

cmdCalc.HEIGHT = 22
cmdCalc.WIDTH = 25
cmdCalc.Caption = ""
cmdCalc.Picture = CURDIR()+"calc.bmp"
cmdCalc.ToolTipText = "Calculadora"

cmdPrn.HEIGHT = 22
cmdPrn.WIDTH = 25
cmdPrn.Caption = ""
cmdPrn.Picture = CURDIR()+"print.bmp"
cmdPrn.ToolTipText = "Impresoras"

lblUsr.HEIGHT = 22
lblUsr.WIDTH = 82
lblUsr.Caption = wUser
lblUsr.FontName = "Arial Narrow"
lblUsr.FontBold = .t.
lblUsr.FontSize = 10
lblUsr.ReadOnly = .t.
lblUsr.BorderStyle = 1
lblUsr.Alignment = 2
lblUsr.ToolTipText = "Usuario"

LEFT= 1
TOP = 1
AutoSize = .T.
CAPTION = "Demo"

PROCEDURE cmdCalc.CLICK
Run /n Calc.exe
ENDPROC

PROCEDURE cmdPrn.CLICK
SET PRINTER TO NAME GETPRINTER( )
ENDPROC

ENDDEFINE

Responder