Hola. Estoy haciendo un programa de cálculo de estructuras de edificación y tengo un combobox inicial, 2 checkbox y después 4 filas y 4 columnas de combobox.
Pues bien el problema que tengo es que las imágenes del grupo de combobox de la primera columna no hay problema, como veis se ve la imagen correctamente, lo que pasa es que en las siguientes columnas (2, 3 y 4) el código es el mismo y no se me ven solo si pongo en el combobox el texto "Carga puntual", con "Carga uniforme" sí se ve correctamente, por lo que donde debe estar el error es en los casos 2ºA, 2ºB y 3ºA del código que os pongo a continuación. El combobox 1 es de el primero, checkbox1 es de la izquierda, y checkbox2 el de la dercha, y los combobox 3, 7 y 11 son los de la 2ª columna de arriba a abajo respectivamente.
¿Me podéis ayudar?
Gracias de antemano.
Este es el cógigo, que lo meto en los combobox antes nombrados, en click()
Código PHP:
Private Sub codigomomentosvano2()
'A PARTIR DE AQUÍ SON LAS IMÁGENES DE LOS MOMENTOS
Dim i As Integer
Dim m As Integer
For i = 0 To 27
Picture72(i).Visible = False
Next
For m = 0 To 6
Picture81(m).Visible = False
Next
'CASO PRIMERO
If Combo1.Text = 2 And Check2.Value = 0 Then
'CASO 1º A
If Combo3.Text = "Carga uniforme" And Combo7.Text = "Sin carga" And Combo11.Text = "Sin carga" Or Combo3.Text = "Carga uniforme" And Combo7.Text = "" And Combo11.Text = "" Or Combo3.Text = "Carga uniforme" And Combo7.Text = "Sin carga" And Combo11.Text = "" Or Combo3.Text = "Carga uniforme" And Combo7.Text = "" And Combo11.Text = "Sin carga" Then
Picture72(2).Visible = True
Picture81(0).Visible = True
End If
'CASO 1º B
If Combo3.Text = "Carga uniforme" And Combo7.Text = "Carga uniforme" And Combo11.Text = "Sin carga" Or Combo3.Text = "Carga uniforme" And Combo7.Text = "Carga uniforme" And Combo11.Text = "" Then
Picture72(2).Visible = True
Picture81(0).Visible = True
End If
'CASO 1º C
If Combo3.Text = "Carga uniforme" And Combo7.Text = "Carga uniforme" And Combo11.Text = "Carga uniforme" Then
Picture72(2).Visible = True
Picture81(0).Visible = True
End If
'CASO 2º A
If Combo3.Text = "Carga uniforme" And Combo7.Text = "Carga puntual" And Combo11.Text = "Sin carga" Or Combo3.Text = "Carga uniforme" And Combo7.Text = "Carga puntual" And Combo11.Text = "" Then
If Val(Form8.Text1) = 0 Or Val(Form8.Text1) = Val(Form2.Text2) Then
Picture72(2).Visible = True
Picture81(0).Visible = True
End If
If Val(Form8.Text1) < ((Val(Form2.Text2)) / 2) And Val(Form8.Text1) > 0 Then
Picture72(22).Visible = True
Picture81(5).Visible = True
End If
If Val(Form8.Text1) = ((Val(Form2.Text2)) / 2) Then
Picture72(18).Visible = True
Picture81(4).Visible = True
End If
If Val(Form8.Text1) > ((Val(Form2.Text2)) / 2) And Val(Form8.Text1) < Val(Form2.Text2) Then
Picture72(26).Visible = True
Picture81(6).Visible = True
End If
End If
'CASO 2º C
If Combo3.Text = "Carga uniforme" And Combo7.Text = "Carga uniforme" And Combo11.Text = "Carga puntual" Then
If Val(Form12.Text1) = 0 Or Val(Form12.Text1) = Val(Form2.Text2) Then
Picture72(2).Visible = True
Picture81(0).Visible = True
End If
If Val(Form12.Text1) < ((Val(Form2.Text2)) / 2) And Val(Form12.Text1) > 0 Then
Picture72(22).Visible = True
Picture81(5).Visible = True
End If
If Val(Form12.Text1) = ((Val(Form2.Text2)) / 2) Then
Picture72(18).Visible = True
Picture81(4).Visible = True
End If
If Val(Form12.Text1) > ((Val(Form2.Text2)) / 2) And Val(Form12.Text1) < Val(Form2.Text2) Then
Picture72(26).Visible = True
Picture81(6).Visible = True
End If
End If
'CASO 3º A
If Combo3.Text = "Carga puntual" And Combo7.Text = "Sin carga" And Combo11.Text = "Sin carga" Or Combo3.Text = "Carga puntual" And Combo7.Text = "" And Combo11.Text = "" Or Combo3.Text = "Carga puntual" And Combo7.Text = "Sin carga" And Combo11.Text = "" Or Combo3.Text = "Carga puntual" And Combo7.Text = "" And Combo11.Text = "Sin carga" Then
If Val(Form4.Text1) = 0 Or Val(Form4.Text1) = Val(Form2.Text2) Then
End If
If Val(Form4.Text1) < ((Val(Form2.Text2)) / 2) And Val(Form4.Text1) > 0 Then
Picture72(10).Visible = True
Picture81(2).Visible = True
End If
If Val(Form4.Text1) = ((Val(Form2.Text2)) / 2) Then
Picture72(6).Visible = True
Picture81(1).Visible = True
End If
If Val(Form4.Text1) > ((Val(Form2.Text2)) / 2) And Val(Form4.Text1) < Val(Form2.Text2) Then
Picture72(14).Visible = True
Picture81(3).Visible = True
End If
End If
End If
'CASO SEGUNDO
If Combo1.Text = 2 And Check2.Value = 1 Or Combo1.Text = 3 Or Combo1.Text = 4 Then
'CASO 1º A
If Combo3.Text = "Carga uniforme" And Combo7.Text = "Sin carga" And Combo11.Text = "Sin carga" Or Combo3.Text = "Carga uniforme" And Combo7.Text = "" And Combo11.Text = "" Or Combo3.Text = "Carga uniforme" And Combo7.Text = "Sin carga" And Combo11.Text = "" Or Combo3.Text = "Carga uniforme" And Combo7.Text = "" And Combo11.Text = "Sin carga" Then
Picture72(3).Visible = True
Picture81(0).Visible = True
End If
'CASO 1º B
If Combo3.Text = "Carga uniforme" And Combo7.Text = "Carga uniforme" And Combo11.Text = "Sin carga" Or Combo3.Text = "Carga uniforme" And Combo7.Text = "Carga uniforme" And Combo11.Text = "" Then
Picture72(3).Visible = True
Picture81(0).Visible = True
End If
'CASO 1º C
If Combo3.Text = "Carga uniforme" And Combo7.Text = "Carga uniforme" And Combo11.Text = "Carga uniforme" Then
Picture72(3).Visible = True
Picture81(0).Visible = True
End If
'CASO 2º A
If Combo3.Text = "Carga uniforme" And Combo7.Text = "Carga puntual" And Combo11.Text = "Sin carga" Or Combo3.Text = "Carga uniforme" And Combo7.Text = "Carga puntual" And Combo11.Text = "" Then
If Val(Form8.Text1) = 0 Or Val(Form8.Text1) = Val(Form2.Text2) Then
Picture72(3).Visible = True
Picture81(0).Visible = True
End If
If Val(Form8.Text1) < ((Val(Form2.Text2)) / 2) And Val(Form8.Text1) > 0 Then
Picture72(23).Visible = True
Picture81(5).Visible = True
End If
If Val(Form8.Text1) = ((Val(Form2.Text2)) / 2) Then
Picture72(17).Visible = True
Picture81(4).Visible = True
End If
If Val(Form8.Text1) > ((Val(Form2.Text2)) / 2) And Val(Form8.Text1) < Val(Form2.Text2) Then
Picture72(27).Visible = True
Picture81(6).Visible = True
End If
End If
'CASO 2º C
If Combo3.Text = "Carga uniforme" And Combo7.Text = "Carga uniforme" And Combo11.Text = "Carga puntual" Then
If Val(Form12.Text1) = 0 Or Val(Form12.Text1) = Val(Form2.Text2) Then
Picture72(3).Visible = True
Picture81(0).Visible = True
End If
If Val(Form12.Text1) < ((Val(Form2.Text2)) / 2) And Val(Form12.Text1) > 0 Then
Picture72(23).Visible = True
Picture81(5).Visible = True
End If
If Val(Form12.Text1) = ((Val(Form2.Text2)) / 2) Then
Picture72(17).Visible = True
Picture81(4).Visible = True
End If
If Val(Form12.Text1) > ((Val(Form2.Text2)) / 2) And Val(Form12.Text1) < Val(Form2.Text2) Then
Picture72(27).Visible = True
Picture81(6).Visible = True
End If
End If
CASO 3º A
If Combo3.Text = "Carga puntual" And Combo7.Text = "Sin carga" And Combo11.Text = "Sin carga" Or Combo3.Text = "Carga puntual" And Combo7.Text = "" And Combo11.Text = "" Or Combo3.Text = "Carga puntual" And Combo7.Text = "Sin carga" And Combo11.Text = "" Or Combo3.Text = "Carga puntual" And Combo7.Text = "" And Combo11.Text = "Sin carga" Then
If Val(Form4.Text1) = 0 Or Val(Form4.Text1) = Val(Form2.Text2) Then
End If
If Val(Form4.Text1) < ((Val(Form2.Text2)) / 2) And Val(Form4.Text1) > 0 Then
Picture72(11).Visible = True
Picture81(2).Visible = True
End If
If Val(Form4.Text1) = ((Val(Form2.Text2)) / 2) Then
Picture72(7).Visible = True
Picture81(1).Visible = True
End If
If Val(Form4.Text1) > ((Val(Form2.Text2)) / 2) And Val(Form4.Text1) < Val(Form2.Text2) Then
Picture72(15).Visible = True
Picture81(3).Visible = True
End If
End If
End If
End Sub