Visual Basic - SE PODRA?

Life is soft - evento anual de software empresarial
   
Vista:

SE PODRA?

Publicado por SOFIA (2 intervenciones) el 02/08/2008 18:06:34
HOLA AMIGOS TENGO ESTE CODIGO
Private Sub Command6_Click()
Me.FECHA = Date
If FECHA1.Text = "" Then
FECHA1.Enabled = True
FECHA1.Text = FECHA.Text
ElseIf FECHA2.Text = "" Then
FECHA2.Enabled = True
FECHA2.Text = FECHA.Text
ElseIf FECHA3.Text = "" Then
FECHA3.Enabled = True
FECHA3.Text = FECHA.Text
ElseIf FECHA4.Text = "" Then
FECHA4.Enabled = True
FECHA4.Text = FECHA.Text
ElseIf FECHA5.Text = "" Then
FECHA5.Enabled = True
FECHA5.Text = FECHA.Text
ElseIf FECHA6.Text = "" Then
FECHA6.Enabled = True
FECHA6.Text = FECHA.Text
ElseIf FECHA7.Text = "" Then
FECHA7.Enabled = True
FECHA7.Text = FECHA.Text
ElseIf FECHA8.Text = "" Then
FECHA8.Enabled = True
FECHA8.Text = FECHA.Text
ElseIf FECHA9.Text = "" Then
FECHA9.Enabled = True
FECHA9.Text = FECHA.Text
ElseIf FECHA10.Text = "" Then
FECHA10.Enabled = True
FECHA10.Text = FECHA.Text
ElseIf FECHA11.Text = "" Then
FECHA11.Enabled = True
FECHA11.Text = FECHA.Text
ElseIf FECHA12.Text = "" Then
FECHA12.Enabled = True
FECHA12.Text = FECHA.Text
ElseIf FECHA13.Text = "" Then
FECHA13.Enabled = True
FECHA13.Text = FECHA.Text

End If

End Sub

MI PREGUNTA ES SI SE PODRA REDUCIR ESTE CODIGO PARA QUE NO SEA TAN EXTENSO NO SE ALO MEJOR CON UN FOR O ALGO ASI

SE PODRA GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:SE PODRA?

Publicado por igor (633 intervenciones) el 02/08/2008 18:21:48
Los que no han aprendido a programar bien, o no les han enseñado bien, siempre tienen el mismo problema.

La base de la buena programación es evitar repetir código.

Para ello, como ya intuyes, puedes utilizar for o cualquier otro. Pero en un for necesitamos arrays, porque sino no podemos hacer referencia a los textbox.

Tienes que hacer un array de textbox poniendo el mismo nombre para todos (FECHA) y utilizando la propiedad index para cada textbox. Luego no hay más que hacer:

Me.FECHA = Date
for i=0 to 10
if FECHA(i).Text = "" Then
FECHA(i).Enabled = True
FECHA(i).Text = FECHA.Text
exit for
end if
next i
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:SE PODRA?

Publicado por SOFIA (2 intervenciones) el 02/08/2008 18:47:36
IGOR MUCHAS GRACIAS ES VERDAD HABESES PROGRAMAMOS SOLO POR PROGRAMAR PERO EN MUCHAS OCACIONES HAY QUE SABER SI SE PUEDEN HACER REDUCCIONES DE CODIGO COMO ESTE FUE EL CASO LOS FOROS COMO ESTE SON MUY BUENOS POR ENCONTRAR GENTE COMO USTEDES QUE NOS PUEDEN ECHAR LA MANO

ADEMAS AL ENCONTRAR UNA UNA RESPUESTA LE DEJA RESPUESTA A MAS PERSONAS QUE BUSCAN A LOMEJOR ALGO PARECIDO

BUENO BUEN DIA Y GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:SE PODRA?

Publicado por igor (633 intervenciones) el 02/08/2008 18:53:21
Gracias a ti compañera, pero por favór puedes dejar de GRITAR!!!!

Hay gente que no lo sabe, pero no es conveniente hacer comentarios en los foros y chats con la mayuscula.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar