Cual es el Keyascci del punto ( " . " ) ??
Publicado por ivan (10 intervenciones) el 26/06/2002 14:14:07
Hola amigos, quiero que solo me deje presionar en un textbox los numeros, el borrar y el punto ( ". " ), aquí lo tengo pero me falta saber el Case del punto, me podeis ayudar ??
Private Sub textoprecio_KeyPress(KeyAscii As Integer)
Dim a As String
Select Case KeyAscii
Case 48 To 57
Case 8
Case Else
MsgBox "Introduzca solo dígitos o el punto '.' porfavor"
KeyAscii = 0
Beep
End Select
End Sub
Private Sub textoprecio_KeyPress(KeyAscii As Integer)
Dim a As String
Select Case KeyAscii
Case 48 To 57
Case 8
Case Else
MsgBox "Introduzca solo dígitos o el punto '.' porfavor"
KeyAscii = 0
Beep
End Select
End Sub
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0