• Lunes 23 de Diciembre de 2024, 04:24

Autor Tema:  Barra De Estado  (Leído 1371 veces)

jomace

  • Nuevo Miembro
  • *
  • Mensajes: 9
    • Ver Perfil
Barra De Estado
« en: Miércoles 10 de Noviembre de 2004, 01:31 »
0
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

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Barra De Estado
« Respuesta #1 en: Miércoles 10 de Noviembre de 2004, 02:21 »
0
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

 :)

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: Barra De Estado
« Respuesta #2 en: Miércoles 10 de Noviembre de 2004, 13:56 »
0
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