Hola. Estoy haciendo un programa en el que meto números en un varios textbox y pulsando un botón me aparece un resultado de unas operaciones en otros textbox(es una matriz) que he puesto su propiedad locked en true para que no se pueda modificar el resultado de esa cuenta. Los primeros textbox tienen un formato para que solo se puedan meter números y el decimal es el punto. El problema es que al operar el resultado tiene otro formato distinto al de los textbox en los que introduzco datos.
¿Cómo puedo hacer para que los textbox de resultados tengan el mismo formato que los de entrada de datos?
El formato para los textbox de entrada de datos lo he puestos con el código siguiente, lo que pasa que es de keypress, por lo que en los textbox de salida no lo puedo hacer no?:
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
Gracias. Un saludo.