20/07/2008, 20:13
|
| | | Fecha de Ingreso: julio-2008
Mensajes: 36
Antigüedad: 16 años, 9 meses Puntos: 0 | |
| ayuda, código demasiado largo vb 6.0
Saludos. Soy nuevo en esto de Visual Basic. Utilizo VB 6.0. Pues bien, he escrito un código en un combobox que al elegir una opción me haga visible una imagen u otra dependiendo de lo que haya elegido en ese combobox y en otros 3, lo he hecho con la forma If...Then, lo que pasa es que es excesivamente largo ya que lo voy a tener que repetir en muchas ocasiones con otros combobox.
¿Me podéis decir cómo lo puedo reducir? Gracias.
Este es el código:
If Combo1.text = 1 Then
If Check1.Value = 0 And Check2.Value = 0 Then
If Combo2.text = "Carga puntual" And Combo6.text = "Carga uniforme" And Combo10.text = "Carga uniforme" Then
If Form3.Text1 = 0 Or Form3.Text1 = Form2.Text1 Then
Picture71(0).Visible = True
Picture72(0).Visible = False
Picture73(0).Visible = False
Picture74(0).Visible = False
Picture75(0).Visible = False
Picture76(0).Visible = False
Picture77(0).Visible = False
Picture78(0).Visible = False
Picture79(0).Visible = False
Picture80(0).Visible = False
Picture81(0).Visible = False
Picture82(0).Visible = False
Picture83(0).Visible = False
Picture84(0).Visible = False
Picture85(0).Visible = False
Picture86(0).Visible = False
Picture87(0).Visible = False
Picture88(0).Visible = False
Picture89(0).Visible = False
Picture90(0).Visible = False
Picture91(0).Visible = False
Picture92(0).Visible = False
Picture93(0).Visible = False
Picture94(0).Visible = False
Picture95(0).Visible = False
Picture96(0).Visible = False
Picture97(0).Visible = False
Picture98(0).Visible = False
End If
If Form3.Text1 < ((Form2.Text1) / 2) And Form3.Text1 > 0 Then
Picture71(0).Visible = False
Picture72(0).Visible = False
Picture73(0).Visible = False
Picture74(0).Visible = False
Picture75(0).Visible = False
Picture76(0).Visible = False
Picture77(0).Visible = False
Picture78(0).Visible = False
Picture79(0).Visible = False
Picture80(0).Visible = False
Picture81(0).Visible = False
Picture82(0).Visible = False
Picture83(0).Visible = False
Picture84(0).Visible = False
Picture85(0).Visible = False
Picture86(0).Visible = False
Picture87(0).Visible = False
Picture88(0).Visible = False
Picture89(0).Visible = False
Picture90(0).Visible = False
Picture91(0).Visible = True
Picture92(0).Visible = False
Picture93(0).Visible = False
Picture94(0).Visible = False
Picture95(0).Visible = False
Picture96(0).Visible = False
Picture97(0).Visible = False
Picture98(0).Visible = False
End If
If Form3.Text1 = ((Form2.Text1) / 2) Then
Picture71(0).Visible = False
Picture72(0).Visible = False
Picture73(0).Visible = False
Picture74(0).Visible = False
Picture75(0).Visible = False
Picture76(0).Visible = False
Picture77(0).Visible = False
Picture78(0).Visible = False
Picture79(0).Visible = False
Picture80(0).Visible = False
Picture81(0).Visible = False
Picture82(0).Visible = False
Picture83(0).Visible = False
Picture84(0).Visible = False
Picture85(0).Visible = False
Picture86(0).Visible = False
Picture87(0).Visible = True
Picture88(0).Visible = False
Picture89(0).Visible = False
Picture90(0).Visible = False
Picture91(0).Visible = False
Picture92(0).Visible = False
Picture93(0).Visible = False
Picture94(0).Visible = False
Picture95(0).Visible = False
Picture96(0).Visible = False
Picture97(0).Visible = False
Picture98(0).Visible = False
End If
If Form3.Text1 > ((Form2.Text1) / 2) And Form3.Text1 >Form2.Text1 Then
Picture71(0).Visible = False
Picture72(0).Visible = False
Picture73(0).Visible = False
Picture74(0).Visible = False
Picture75(0).Visible = False
Picture76(0).Visible = False
Picture77(0).Visible = False
Picture78(0).Visible = False
Picture79(0).Visible = False
Picture80(0).Visible = False
Picture81(0).Visible = False
Picture82(0).Visible = False
Picture83(0).Visible = False
Picture84(0).Visible = False
Picture85(0).Visible = False
Picture86(0).Visible = False
Picture87(0).Visible = False
Picture88(0).Visible = False
Picture89(0).Visible = False
Picture90(0).Visible = False
Picture91(0).Visible = False
Picture92(0).Visible = False
Picture93(0).Visible = False
Picture94(0).Visible = False
Picture95(0).Visible = True
Picture96(0).Visible = False
Picture97(0).Visible = False
Picture98(0).Visible = False
End If
End If
End If
End If |