Programación General > Visual Basic 6.0 e inferiores

 Caja De Texto Numeric Con Punto Decimal

(1/2) > >>

Javoche:
Hola:

Para una aplicacion que estoy haciendo necesito una caja numerica, que acepte solo un punto decimal, el codigo que tengo es el sig:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
    If KeyAscii <> Asc(".") Then
        If Text1 = "" Then
            If KeyAscii < Asc("1") Or KeyAscii > Asc("9") Then
                KeyAscii = 0
            End If
        Else
            If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
                KeyAscii = 0
            End If
        End If
    End If
End If
End Sub

Agradezco su ayuda. B)

Soultaker:
Tambien podrias usar un EditMask

toten:
pana un consejo men acostunbrate a usar el tab para que la estructura de tus code se entienda mas facilmente!!! y dime que es lo que quieres o necesitas con exactitud

solcito:
Como dijo Soultaker! El control se llama MaskEdBox y en las propiedades le puedes indicar el formato, es muy simple de usar!

Saludos  :hola:

Bebecita:
Si quieres seguir usando tu codigo agregale esta linea. En este caso solo te permite  introducir en el TextBox una sola  coma (,)  como separador decimal

If KeyAscii = 44 And (InStr(Text1.Text, Chr(KeyAscii)) <> 0) Then KeyAscii = 0

Navegación

[0] Índice de Mensajes

[#] Página Siguiente