numero o letra?

Default ha escrito:

alguien me puede mandar un ejemplito de como verificar en un textbox si es
que se ha escrito una letra??..me explico es un textbox donde solo se
ingresan numeros...pero yo quiero q al momento de ingresar una letra me
salga el aviso de q solo permiten numeros

En el evento KeyPress del textbox:

If Char.IsDigit(e.KeyChar) then
msgbox("Es numero")
elseIf Char.IsControl(e.KeyChar) then
msgbox("Es Tecla Control")
else
msgbox("Debe ser letra, o !"·$%&%()=/*-+...")
end if

Seguramente existira la opcion Char.IsLetter o algo asi. Lo que ocurre
que estoy en
el curro y aqui no tengo el .NET, asi que escribo de memoria

"Default" escribió en el mensaje
news:uaGmDZv%

alguien me puede mandar un ejemplito de como verificar en un textbox si
es que se ha escrito una letra??..me explico es un textbox donde solo
se ingresan numeros...pero yo quiero q al momento de ingresar una letra me
salga el aviso de q solo permiten numeros

Hola
Si no me equivoco hay una funcion que se llama IsNumeric dentro de la
funcion puedes poner el textbox que te interese i te retornara un boolean.

ej:
if not isnumeric(me.txtTexto.Text) then
msgbox("no es un numero")
else
msgbox("hay un numero")
end if

Espero que este código te ayude:

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As
KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsDigit(e.KeyChar) = False 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/


"Default" wrote:

alguien me puede mandar un ejemplito de como verificar en un textbox si es
que se ha escrito una letra??..me explico es un textbox donde solo se
ingresan numeros...pero yo quiero q al momento de ingresar una letra me
salga el aviso de q solo permiten numeros

Private Sub txtNumero_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles txtNumero.KeyPress
Dim Tecla As String = UCase(e.KeyChar)
Dim Alfabeto As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim Found As Int16
Found = InStr(Alfabeto, Tecla)
If Found <> 0 Then
MsgBox("este campo debe ser numérico")
e.Handled = True
End If
End Sub


"Default" wrote:

alguien me puede mandar un ejemplito de como verificar en un textbox si es
que se ha escrito una letra??..me explico es un textbox donde solo se
ingresan numeros...pero yo quiero q al momento de ingresar una letra me
salga el aviso de q solo permiten numeros

Hola Lucho,

perdona que me meta, pero humildemente pienso que tu aportación tiene
grandes riesgos, ya que acepta caracteres tildados, con diéresis, signos de
puntuación y ortográficos, etc.
Efectivamente, los números también los trata, pero trata también otros
caracteres que pueden entrañar un riesgo en la ejecución de la aplicación.

Creo que una aproximación de lo que se quiere sería:


Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsDigit(e.KeyChar) = False Then
MessageBox.Show("Debe insertar sólo números")
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/


"lucho" wrote:

Private Sub txtNumero_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles txtNumero.KeyPress
Dim Tecla As String = UCase(e.KeyChar)
Dim Alfabeto As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim Found As Int16
Found = InStr(Alfabeto, Tecla)
If Found <> 0 Then
MsgBox("este campo debe ser numérico")
e.Handled = True
End If
End Sub


"Default" wrote:

>
> alguien me puede mandar un ejemplito de como verificar en un textbox si es
> que se ha escrito una letra??..me explico es un textbox donde solo se
> ingresan numeros...pero yo quiero q al momento de ingresar una letra me
> salga el aviso de q solo permiten numeros
>
>
>
>