Ejemplo básico de como crear y trabajar con un control StatusBar .... crear panels, establecer estilos y textos en los paneles.
Public oBarra
Local lnPanels
oBarra = Createobject("Form")
With oBarra
.Caption = "Ejemplo de un Status Bar"
.Width = 430
.Height = 200
.Visible = .T.
.AddObject("OCXTest","StatusBarX", "MSComctlLib.sBarCtrl.2")
Endwith
With oBarra.OCXTest
.Panels(1).Text = "Ejemplo de Status
Bar"
.Panels(1).ToolTipText = "Panel 1"
.Panels(1).Style = 0
.Panels(1).Width = 300
.Panels.Add()
.Panels(2).ToolTipText = "Mayusculas
Siempre"
.Panels(2).Style = 1
.Panels(2).Width = 50
.Panels.Add()
.Panels(3).ToolTipText = "Bloque
numerico"
.Panels(3).Style = 2
.Panels(3).Width = 50
Endwith
Define Class StatusBarX As OleControl
Visible = .T.
Height = 25
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
