hora en textbox

"Default" preguntó:

como hago para mostrar en un text box la hora y fecha del sistema?

Hola:

Ejecuta lo siguiente:

TextBox1.Text = String.Format("{0:G}", Now)

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

es que quiero saber como crear un reloj virtualqueme muestre la fecha y
la hora actualpero no lo logro

"Default" escribió:

es que quiero saber como crear un reloj virtualque me muestre
la fecha y la hora actualpero no lo logro

Bueno. Eso es ya otro tema. :-)

Si el "reloj virtual" lo deseas mostrar en un control TextBox, inserta en el
formulario un control Timer, y copia/pega el siguiente código:

Private Sub Form1_Load( ... ) Handles MyBase.Load
' Establecemos el intervalo a 1 segundo.
With Timer1
.Interval = 1000
.Start()
End With
End Sub

Private Sub Timer1_Tick( ... ) Handles Timer1.Tick
TextBox1.Text = String.Format("{0:T}", Now)
End Sub

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

uhmm y como le hago para q el reloj "avance"...porq solo muestra la hora en
ese segundo q tome y mostre en eltextbox


"SoftJaén" escribió en el mensaje
news:%23jrrel1%

"Default" escribió:

es que quiero saber como crear un reloj virtualque me muestre
la fecha y la hora actualpero no lo logro

Bueno. Eso es ya otro tema. :-)

Si el "reloj virtual" lo deseas mostrar en un control TextBox, inserta en
el formulario un control Timer, y copia/pega el siguiente código:

Private Sub Form1_Load( ... ) Handles MyBase.Load
' Establecemos el intervalo a 1 segundo.
With Timer1
.Interval = 1000
.Start()
End With
End Sub

Private Sub Timer1_Tick( ... ) Handles Timer1.Tick
TextBox1.Text = String.Format("{0:T}", Now)
End Sub

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado
o sugerido en el presente mensaje.

"Default" preguntó:

y como le hago para q el reloj "avance"...porq solo muestra la hora en ese
segundo q tome y mostre en eltextbox

¿Pero has insertado un control Timer en el formulario? Si no utilizas un
control Timer, el control TextBox no "avanzará". :-)

Si también deseas mostrar la fecha, modifica el código por el siguiente:

Private Sub Form1_Load( ... ) Handles MyBase.Load

TextBox1.Text = String.Format("{0:G}", Now)

' Establecemos el intervalo a 1 segundo.
With Timer1
.Interval = 1000
.Start()
End With

Private Sub Timer1_Tick( ... ) Handles Timer1.Tick
TextBox1.Text = String.Format("{0:G}", Now)
End Sub

Debes de tener en cuenta, que dependiendo del intervalo de tiempo que se le
haya especificado al control Timer (en nuestro caso 1 segundo), se
desencadenará el evento «Timer1_Tick», mostrando por tanto la fecha y hora
actual en el control TextBox.

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.