Programación General > Visual Basic 6.0 e inferiores

 Barra De Estado

(1/1)

jomace:
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:
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:
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

Navegación

[0] Índice de Mensajes