validación textbox solo numeros y UN punto decimal

[KenMasters]

buenas, estoy buscando en la web pero no he podido encontrar la solución para validar un textbox y que solo permita ingresar números y UN solo punto decimal. He visto varios códigos referente al tema, pero estos permiten ingresar más de una vez el punto decimal. como podría hacer ahi, gracias de ante mano.

[erbuson]

Hola:

Lo mejor es tener una rutina para efectuar la validación y ponerla en un módulo para que pueda ser reutilizable

Este sería el código de un 'programa' ejemplo sólo necesitas un Text1 en el formulario y pegar este código

Código vb:

Option Explicit
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
   Validar Text1.Text, KeyAscii
End Sub
 
Public Sub Validar(DatosActuales As String, Caracter As Integer)
  ' Salimos si se ha pulsado la tecla de Retroceso
  If Caracter = 8 Then Exit Sub
  ' Salimos si es de 0 a 9
  If InStr("0123456789", Chr$(Caracter)) Then Exit Sub
  ' Si es punto y no está en el contenido salimos
  If Caracter = 46 And InStr(DatosActuales, ".") = 0 Then Exit Sub
  ' Borramos el Caracter introducido
  Caracter = 0
End Sub
 

Es muy simple y le puedes mejorar facilmente algunos aspectos. Por otra parte aqui forma parte del código de Formulario pero como te decia lo mejor es tener uno o varios módulos con las funciones y rutinas que comunmente utilizas.

Saludos

[KenMasters]

Muchísimas gracias, valen un mundo!