validación textbox solo numeros y UN punto decimal

[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