Hola.
Estoy haciendo un programa en el que hay dos textbox. Dependiendo de los valores que haya en esos textbox aparece una imagen u otra:
caso 1º) si el textbox1<((textbox2)/2) entonces se ve la imagen 1
caso 2º) si el textbox1=textbox2 entonces se ve la imagen 2
caso 3º) si el textbox1>((textbox2)/2) entonces se ve la imagen 3
El problema que tengo es que mientras el número del textbox1 sea menor que 10 funciona correctamente, pero si es mayor de 10 solo funciona para los dos primeros casos.
¿Me podéis ayudar?
Muchas gracias.
Os mando el código, por si sirve de algo:
Código PHP:
If Text1 = 0 Or Text1 = Text2 Then
Picture71(0).Visible = True
Picture80(0).Visible = True
End If
If Text1 < ((Text2) / 2) And Text1 > 0 Then
Picture71(20).Visible = True
Picture80(5).Visible = True
End If
If Text1 = ((Text2) / 2) Then
Picture71(16).Visible = True
Picture80(4).Visible = True
End If
If Text1 > ((Text2) / 2) And Text1 < Text2 Then
Picture71(24).Visible = True
Picture80(6).Visible = True
End If
Y este es el código de los textos para que solo se puedan meter números:
Código PHP:
Option Explicit
Dim sDecimal As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sCar As String * 1
sCar = Chr(KeyAscii)
If sCar = "." Or sCar = "," Then
' comprueba si se ha pulsado coma o punto y lo convierte al
' formato del sistema
KeyAscii = IIf(sDecimal = ",", 44, 46)
sCar = Chr(KeyAscii)
' si ya se ha puesto un punto decimal, no admite otro
If (InStr(Text1, sCar) > 0) Then
KeyAscii = 0
Exit Sub
End If
ElseIf InStr("0123456789.," & Chr(8), sCar) = 0 Then
' sólo admite números, signo negativo, punto, coma y retroceso
KeyAscii = 0
Exit Sub
' comprueba que el signo menos esté sólo al principio
' Nota: Si no queremos negativos, quitar esta condición
ElseIf sCar = "-" Then
If InStr(2, "-", Text1) = 0 Then
KeyAscii = 0
End If
End If
End Sub
