Hola estoy haciendo una aplicacion en VB6 donde en el TEXTBOX sólo se permita el ingreso de número y el punto decimal. Hasta aquí todo bien, pero el problema que tengo es que no consigo ingresar un sólo punto decimal. Lo que quiero que haga es que una vez ingresado el punto decimal, se desactive la tecla punto decimal.

Gracias.

Hola, es muy simple, pero la mejor manera de ayudarte es sobre tu mismo código a fin de que te sea mas fácil modificarlos y corregirlo, por tanto si lo pones aqui te ayudaremos mas facilmente.

No obstante, lo que deberías hacer es en el evento KeyPress del Text comprobar si el . punto ya está en el campo y si es asi poner el KeyAscii a 0

Saludos

Toma, te paso el código, es lo que uso para lo que pide.

Lo tengo adaptado para un text4, recuerda lo tienes que poner en el keypress tu lo modificar para el tuyo y listo.

Este codigo solo acepta numeros, el punto o un coma, para los numeros decimales.

Código:

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendKeys "{tab}"
'Aceptar un solo "." y ","
Dim Cont As Byte
Dim Cade As String
Cont = 0
For I = 1 To Len(Text4)
    Cade = Mid(Text4, I, 1)
    If Cade = "." Or Cade = "," Then Cont = Cont + 1  'se pone . y , por si la , ya estaba introducida
Next I



If Cont = 0 Then
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 46 Then KeyAscii = 0
Else
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0
End If


If KeyAscii = 46 Then
   KeyAscii = 44
   Exit Sub
End If

If (KeyAscii < 47 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 45 Then KeyAscii = 0

End Sub

Gracias a ambos.

Como me pediáis el código que tengo yo en el programa, ahí va:

Private Sub Text4_KeyPress(KeyAscii As Integer)
If InStr("0123456789.", Chr(KeyAscii)) = 0 Then
If KeyAscii <> 8 Then KeyAscii = 0
End If
End Sub

Verás, como asi es mucho mas simple y facil de entender por ti:

Private Sub Text4_KeyPress(KeyAscii As Integer)
If InStr(Text4.Text, ".") And KeyAscii = 46 Then KeyAscii = 0
If InStr("0123456789.", Chr(KeyAscii)) = 0 Then
If KeyAscii <> 8 Then KeyAscii = 0
End If
End Sub

Como puedes ver lo unico que hago es comprobar si ya está el punto y si es así le doy valor 0 en caso de volver a pulsarlo.

Saludos

Pd: Tal vez en este caso no te interese, pero piensa que asi no permites introducir números negativos

Saludos

Muy agradecido por el código, para que sea sencillito y entendible por mí.

Seguiré preguntado dudas, que creo que es una magnífica forma de aprender.

Gracias

De nada, por aqui andaremos para lo que podamos ayudar.
Saludos