Aquí tienes un ejemplo de como puedes utilizar un Toolbar dentro de un formulario de nivel superior.
oForm = Createobject("MiForm")
oForm.Show(1)
Read Events
Define Class MiToolBar
As Toolbar
Caption = "Toolbar"
Height
= 28
Left = 0
Top = 0
Width = 55
ShowWindow = 1
Name
= "EjemToolBar"
Add Object Cmd1 As CommandButton With
;
Top = 3, ;
Left = 5, ;
Height = 22, ;
Width = 23, ;
Caption
= "", ;
Name = "Cmd1"
Add Object Cmd2 As CommandButton With ;
Top
= 3, ;
Left = 27, ;
Height = 22, ;
Width = 23, ;
Caption = "", ;
Name = "Cmd2"
Add Object Cmd3 As CommandButton With
;
Top = 3, ;
Left = 27, ;
Height = 22, ;
Width = 23, ;
Caption
= "", ;
Name = "Cmd3"
EndDefine
Define Class MiForm As Form
ShowWindow = 2
Procedure Activate
If Type("THIS.oToolbar.Name")
<> "C"
This.AddProperty("oToolbar", .Null.)
This.oToolbar = Createobject("MiToolBar")
This.oToolbar.Dock(0)
This.oToolbar.Show()
EndIf
EndProc
EndDefine
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
