Visual Basic - no se

Life is soft - evento anual de software empresarial
   
Vista:

no se

Publicado por cristian (4 intervenciones) el 22/05/2010 01:11:21
como hcer que en un textbox solo deje scribir numeros nada mas.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:no se

Publicado por ricardo (3 intervenciones) el 22/05/2010 05:15:07
Private Sub textbox_KeyPress(KeyAscii As Integer)

Select Case KeyAscii
Case 48 To 57 'asciis de numeros 0 a 9
Case 8 'ascii de tecla backspace
Case Else
'si no está dentro de ese rango, no permite el ingreso
KeyAscii = 0
End Select
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:no se

Publicado por Jackson Cruz (15 intervenciones) el 22/05/2010 19:47:28
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = numeros(KeyAscii)
End Sub

Public Function numeros(Tecla As Integer) As Integer
Dim strValido As String
strValido = "0123456789"
If Tecla > 26 Then
If InStr(strValido, Chr(Tecla)) = 0 Then
Tecla = 0
End If
End If
numeros = Tecla
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar