Ver Mensaje Individual
  #4 (permalink)  
Antiguo 01/06/2011, 04:07
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 4 meses
Puntos: 29
Respuesta: limitar textbox caracteres alfanumericos

Hay otros modos de hacerlo:

Código vb:
Ver original
  1. Private Sub Text1_LostFocus()
  2.   If IsNumeric(Text1.Text) = False Then
  3.     MsgBox "Solo se admiten valores numéricos positivos o negativos, puntos de millar y/o coma decimal."
  4.     Text1.SetFocus
  5.     Text1.SelStart = 1
  6.     Text1.SelLenght = Len(Text1.Text)
  7.   End If
  8. End Sub
Se admiten valores negativos, puntos de millar y una coma decimal.


Si quieres usar comas para millares y puntos para decimales puedes hacer una función propia:

Código vb:
Ver original
  1. Private Sub Text1_LostFocus()
  2.   If EsNumero(Text1.Text) = False Then
  3.     MsgBox "Solo se admiten valores numéricos positivos o negativos, comas de millar y/o punto decimal."
  4.     Text1.SetFocus
  5.     Text1.SelStart = 1
  6.     Text1.SelLenght = Len(Text1.Text)
  7.   End If
  8. End Sub
  9.  
  10. Private Function EsNumero(ByVal Texto As String) As Boolean
  11.   Texto=Replace(Texto,".","@")
  12.   Texto=Replace(Texto,",",".")
  13.   Texto=Replace(Texto,"@",",")
  14.   EsNumero=IsNumeric(Texto)
  15. End Function

Lo he hecho a pelo. Espero que funcione.
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!