SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado 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
-
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
:)
-
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