SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: KARFER en Viernes 16 de Marzo de 2007, 18:57

Título: Re: Statusstrip
Publicado por: KARFER en Viernes 16 de Marzo de 2007, 18:57

alguién me puede decir por favor si en un control statusstrip se le puede mostrar la hora y la fecha por favor...

 :lol:

Título: Re: Statusstrip
Publicado por: ElNapster en Viernes 16 de Marzo de 2007, 19:29

Mira esto

Código: Text

1. menu.Items(1).Text = "Fecha :" & DateAndTime.DateString() & " Hora: " & (TimeOfDay())
2.  

Donde menu es el statusstrip  y le agrege un label que es el item con el index 1

Talvez te sirva de ejemplo   ;)

 :comp:

Pd.
Si quieres que el reloj este en curso pones un timer y dentro del timer le agregas este codigo

Código: Text

1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
2.         menu.Items(1).Text = " Hora: " & (TimeOfDay())
3.     End Sub
4.  

obviamente agreagas otro item al statusstrip

Título: Re: Statusstrip
Publicado por: wendy8a en Miércoles 2 de Febrero de 2011, 20:04

intente hacer eso, el primero me funciona pero no actualiza la hora! intente agregar el timer pero no me sale, no se cual sera el error, si me podrias ayudar! ;)

Título: Re: Statusstrip
Publicado por: Sagma en Martes 15 de Marzo de 2011, 04:56

hola que tal, me paso lo mismo que ha wendy8a.

Como sera ??

 :comp:

Título: Re: Statusstrip
Publicado por: Sagma en Jueves 17 de Marzo de 2011, 14:09

buenas, wendy8a. te comento que ya funciono lo que nuestro amigo ElNapster puso:

en el evento LOAD del FORM

Citar

   Private Sub ueest_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.StatusStrip1.Items(0).Text = "Fecha : " & DateAndTime.DateString()

        With Timer1
            .Interval = 1000
            .Start()
        End With

    End Sub

y en el  TIMER

Citar

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        StatusStrip1.Items(1).Text = "Hora : " & DateTime.Now.ToLongTimeString()
    End Sub

Que es lo mismo que nos mostro nuestro amigo ElNapster, gracias  :good:

 :comp: