border

Miembros:
Mensajes:
Temas:
Online:

Ultimo Miembro:

 
 

  #1 (permalink)  
Antiguo 23-06-2008, 00:56:33
Un Nuevo Amigo
 
Registrado: feb 2005
Ubicación: Bragado
Posts: 17
federicortiz Valoración +2
Contactar con federicortiz a través de MSN
Predeterminado Mostrar hora actualizada en Barra de estado

Cuando programaba con visual basic 6, a todos mis sistemas les colocaba la hora en la Stautusbar, ademas de la fecha y el control de las teclas nums lock, caps lock, scroll lock. Ahora quise hacerlo en VB 2005 con la StatusTrip pero me es imposible. Alguien sabe como hacerlo?
Muchas gracias.
Responder Con Cita
  #2 (permalink)  
Antiguo 23-06-2008, 22:23:02
Avatar de SysEdw
Buena Participación en el Foro
 
Registrado: may 2007
Posts: 87
SysEdw Valoración +2
Contactar con SysEdw a través de MSN
Predeterminado Re: Mostrar hora actualizada en Barra de estado

Prueba con este codigo:
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ToolStripStatusLabel3.Text = " caps Lock" 'Mayuscula
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.ToolStripStatusLabel1.Text = Today.ToLongDateString
Me.ToolStripStatusLabel2.Text = TimeOfDay
If Console.CapsLock Then
Me.ToolStripStatusLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
Else
Me.ToolStripStatusLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular)
End If
End Sub
Espero que te sirva
Responder Con Cita
  #3 (permalink)  
Antiguo 24-06-2008, 00:06:03
Un Nuevo Amigo
 
Registrado: feb 2005
Ubicación: Bragado
Posts: 17
federicortiz Valoración +2
Contactar con federicortiz a través de MSN
Predeterminado Re: Mostrar hora actualizada en Barra de estado

Cita:
Empezado por SysEdw Ver Mensaje
Prueba con este codigo:
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ToolStripStatusLabel3.Text = " caps Lock" 'Mayuscula
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.ToolStripStatusLabel1.Text = Today.ToLongDateString
Me.ToolStripStatusLabel2.Text = TimeOfDay
If Console.CapsLock Then
Me.ToolStripStatusLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
Else
Me.ToolStripStatusLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular)
End If
End Sub
Espero que te sirva
Me quedó perfecto! Genio! Otra preguntita, como le hago un separador al estilo del de los Menús? con el simbolo | queda feo.
Responder Con Cita
Respuesta


Herramientas
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado



La franja horaria es GMT. Ahora son las 07:25:06.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
A vBSkinworks Design

Alojado en el servicio Premium de Masquewebs | Diseño mejorado por MasqueWebs

right