Poner fecha en TextBox

[kamita]

Hola, tengo un TextBox llamado fecha y quería que al cargarse el Form pusiese automáticamente la fecha en él.

Código:

Private Sub 
        Fecha.Text = Date.Today
    End Sub

Tengo eso...el tema es, que pongo a la derecha del Private Sub para que se cargue con el Form¿?
He probado con varias cosas que he encontrado por ahí, incluso con esta de este foro pero no me ha servido. Creo que el Date.Today también está mal, pero es que Visual Basic "me dice" que es así.

Bueno que a ver como me podeís ayudar.

Muchas gracias


P.D. y yo que pensaba que iba para informático....llevo unas horitas intentando aprender Visual Basic y tengo la cabeza como un bombo...

[gasafonso]

Iniciado por kamita

Hola, tengo un TextBox llamado fecha y quería que al cargarse el Form pusiese automáticamente la fecha en él.

Código:

Private Sub 
        Fecha.Text = Date.Today
    End Sub

Tengo eso...el tema es, que pongo a la derecha del Private Sub para que se cargue con el Form¿?
He probado con varias cosas que he encontrado por ahí, incluso con esta de este foro pero no me ha servido. Creo que el Date.Today también está mal, pero es que Visual Basic "me dice" que es así.

Bueno que a ver como me podeís ayudar.

Muchas gracias



P.D. y yo que pensaba que iba para informático....llevo unas horitas intentando aprender Visual Basic y tengo la cabeza como un bombo...

Hola Kamita, en el evento load del form pone:

fecha.Text = Date

con eso te va andar, sino puede usar un Dtpicker

un abrazo

[pkj]

Para que se cargue o ejecute algo en un form al cargarse solo tienes que hacerlo en el evento Form_Load() que es el que te sale al hacer doble click sobrel el formulario.

Osea:
Private Sub Form_Load()


¿Es eso lo que buscas?

[seba123neo]

Hola, en que lo estas haciendo en VB .NET no ?? igual te lo pongo para los 2:

Visual Basic 6

Código vb:

Private Sub Form_Load()
   Text1.Text = Date
End Sub
 

Visual Basic .NET

Código vb:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      TextBox1.Text = Date.Today
End Sub
 

saludos.