| Usuario |
Fecha y Hora en Visual Basic 6 |
Desconocido
|
| Enviado - 2/6/2002 |
| |
Hola mi nombre es Javier y soy nuevo en esto.
Necesito saber como es el codigo para mostrar en el formulario principal la Fecha y la Hora dinámica.
Hasta ahora intente hacerlo en un textbox y no pude asi que espero su respuesta.
Muchas gracias y un cordial saludo.
direccion [email protected] |
| |
|
Desconocido
|
| Enviado - 7/6/2002 |
| |
' El ejemplo que te escribo a continuacion
' Posiciona la fecha en varias parte...
'como no especificaste en onde te lo mando en todas para que veas que
' sencillo es....
'--------------------------------------------------------
'
'Necesitas...(dependiendo donde lo quieres desplegar...)
'Un Textbox
'un label
'En la Barra de titulo
'en el fomulario (no necesitas pegar un control para este..)
'Clara está un TIMER con valor de 1 en el interval, de todas formas
' el timer esta inicializado cuando se abre el formulario si te fijas abajo...
' si no quieres hacerlo así.. borra las tres lineas de abajo "del evento form_load()"
' en el control timer que isertes en la propiedad interval le das 1 (valor de uno)
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
'EL LABEL se pone del tamaño del texto automaticamente...
Label1.AutoSize = True
End Sub
Private Sub Timer1_Timer()
'Presentar la Fecha (Si quieres ver solo la fecha quita el comentario de la siguiente linea)
'Label1.Caption = Date
'Presentar la Hora (Si quieres ver solo la Hora quita el comentario de la siguiente linea)
'Label1.Caption = Time
'La siguiente linea presenta las dos Fecha y Hora (observa que primero entre comillas
'pones el texto "fecha" y despues el operador de concatenación "&" y la funcion "Date"
'Asi mismo con la Hora...
Label1.Caption = "Fecha:" & Date & " Hora:" & Time
''''''''''''''''''''
'Aqui abajo solo te muestro que lo puedes desplegar donde quieras..
' por ejemplo en un textbox.. (Claro que ya isertaste tu textbox!!!)
Text1.Text = "Fecha:" & Date & "Hora:" & Time
'NOTA: entre más espacio le des entre las comillas mas se separa el texto..
'''''''''''''''''''''''
'Y en la Barra de Titulo...
'
Form1.Caption = "MiAplicacion" & " Fecha:" & Date & " Hora:" & Time
End Sub
'Espero que esto te ayude...
' [email protected] Escribeme..
' existe una forma más sencilla prometo que si me escribes
' te mando un ejemplo sencillo con un control que se llama "status bar" |
| |
|
Microsoft Certified