Formato de textox bloqueado
Publicado por javiergarciaperez (5 intervenciones) el 07/08/2008 19:45:24
Hola.
Tengo esta operación:
[PHP]Private Sub Command1_Click()
Text7(0) = ((Val(Text13) * Val(Text1) * Val(Text1)) / 8) + ((Val(Text22) * Val(Text1) * Val(Text1)) / 8) + ((Val(Text31) * Val(Text1) * Val(Text1)) / 8)
End Sub[/PHP]
y en los textbox text13, text1, text22 y text31 le he puesto el siguiente código:
[PHP]Option Explicit
Dim sDecimal As String
Private Sub Form_Load()
' comprueba el formato numérico del sistema
sDecimal = Format(0.1, "#.#")
sDecimal = IIf(InStr(sDecimal, ","), ",", ".")
End sub
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 a punto
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 [/PHP]
Con este código solo puedo introducir en los textbox text13, text1, text22 y text31 números, el símbolo -, y el punto (".") como separador de decimales.
El problema que hay es que el resultado de la operación en el text7(0) me sale con separación de decimales la coma (","), y necesito que sea el punto para poder seguir operando con el text7(0), que está bloqueado para que no se pueda escribir sobre él, solo puede aparecer el resultado de la operación anterior.
¿Me podéis ayudar?
Gracias.
Tengo esta operación:
[PHP]Private Sub Command1_Click()
Text7(0) = ((Val(Text13) * Val(Text1) * Val(Text1)) / 8) + ((Val(Text22) * Val(Text1) * Val(Text1)) / 8) + ((Val(Text31) * Val(Text1) * Val(Text1)) / 8)
End Sub[/PHP]
y en los textbox text13, text1, text22 y text31 le he puesto el siguiente código:
[PHP]Option Explicit
Dim sDecimal As String
Private Sub Form_Load()
' comprueba el formato numérico del sistema
sDecimal = Format(0.1, "#.#")
sDecimal = IIf(InStr(sDecimal, ","), ",", ".")
End sub
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 a punto
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 [/PHP]
Con este código solo puedo introducir en los textbox text13, text1, text22 y text31 números, el símbolo -, y el punto (".") como separador de decimales.
El problema que hay es que el resultado de la operación en el text7(0) me sale con separación de decimales la coma (","), y necesito que sea el punto para poder seguir operando con el text7(0), que está bloqueado para que no se pueda escribir sobre él, solo puede aparecer el resultado de la operación anterior.
¿Me podéis ayudar?
Gracias.
Valora esta pregunta


0