Validar textbox

Hola Jose María,

mira a ver si el siguiente ejemplo te ayuda:

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim Decimales() As String = TextBox1.Text.Split(",")
If (Decimales.Length > 1 And e.KeyChar = ",") Or
(Char.IsDigit(e.KeyChar) = False And e.KeyChar <> ",") Then
e.Handled = True
End If
End Sub


Un saludo,

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"José Mª Toro Bermejo" wrote:

Hola a todos. Lo que quisiera hacer es que en un determinado textbox solo se
pudieran introducir numeros y la coma. en vb6 se hacerlo pero en vbnet no es
igual. alguien puede echarme una mano?
gracias

José Mª Toro Bermejo wrote:

Hola a todos. Lo que quisiera hacer es que en un determinado textbox solo se
pudieran introducir numeros y la coma. en vb6 se hacerlo pero en vbnet no es
igual. alguien puede echarme una mano?
gracias

En el evento validar pon lo siguiente:


Dim patron as string ="\A((0,\d+)|[1-9]\d*(,\d+)?|0)$"
dim expReg as New System.Text.RegularExpressions.Regex(patron)
if not expReg.IsMatch(Textbox1.Text) then
e.Cancel=True
end if

el patrón significa:
\A: principio cadena
$: final de cadena
(0,\d+) : Cero coma seguido de uno o más dígitos)
[1-9]\d*(,\d+)?: Un digito distinto de cero seguido de 0 o más digitos y
opcionalmente seguido de una coma y uno o más digitos

Si quieres que admita numeros negativos:
patron= "\A((-?0,\d+)|-?[1-9]\d*(,\d+)?|0)$"