SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: jomace en Miércoles 10 de Noviembre de 2004, 01:31

Título: Barra De Estado
Publicado por: jomace en Miércoles 10 de Noviembre de 2004, 01:31
no tengo ni idea de como insertar una barra de estado en mi aplicacion...como haria? para que aunque me mostrara la fecha y hora
Título: Re: Barra De Estado
Publicado por: cpmario en Miércoles 10 de Noviembre de 2004, 02:21
Agrega el siguiente componente que viene en el Service Pack del VB6
Microsoft Windows Common Controls 6.0(SP6)

Coloca en un Form el control StatusBar, en su propiedad Style cambia a sbrSimple
después para colocar el texto que deseas coloca código como sigue:
StatusBar.SimpleText = Now

 :)
Título: Re: Barra De Estado
Publicado por: Jose Arriagada en Miércoles 10 de Noviembre de 2004, 13:56
En la opcion Projecto->Componentes agregar

* Microsoft Windows Common Controls 5.0 , o puede ser
* Microsoft Windows Common Controls 6.0

Ambos componentes traen el control Statusbar

Inserta el control en el form, y coloca el siguiente codigo

Private Sub Form_Load()
Me.Width = Screen.Width
Me.WindowState = 2

StatusBar1.Panels.Add 1, , ""
StatusBar1.Panels.Add 2, , "", sbrCaps
StatusBar1.Panels.Add 3, , "", sbrNum
StatusBar1.Panels.Add 4, , "", sbrIns
StatusBar1.Panels.Add 5, , "", sbrScrl
StatusBar1.Panels.Add 6, , "", sbrTime
StatusBar1.Panels.Add 7, , "", sbrDate

StatusBar1.Panels(1).Width = StatusBar1.Width / 7
StatusBar1.Panels(2).Width = StatusBar1.Width / 7
StatusBar1.Panels(3).Width = StatusBar1.Width / 7
StatusBar1.Panels(4).Width = StatusBar1.Width / 7
StatusBar1.Panels(5).Width = StatusBar1.Width / 7
StatusBar1.Panels(6).Width = StatusBar1.Width / 7
StatusBar1.Panels(7).Width = StatusBar1.Width / 7
StatusBar1.Panels(1).Text = "Version " & App.Major & "." & App.Minor & "." & App.Revision
End Sub


Analizalo, y veras las potencialidades que puedes obtener de el.

Espero te sirva