como utilozar el e.keychar vb2008

[rikimm]

hola como el titulo lo dice lo que quiero hacer es lo sigguiente, tengo varias cajas de texto en la cual solo se deven ocupar puros numero , esa parte si lo hago y bien solo que la tecla de borrar no me funciona ,como le hago para que funcione estoy utilizando un selec case y asigno los numeros que se pueden ocupar solo me falta la tecla de borra como o que se le tiene que poner
este es mi codigo

Código VB.net:

Select Case e.KeyChar
            Case "1", "2", "3", "4", ",5", "6", "7", "8", "9", "0"
            Case Else
                e.Handled = True
 
        End Select
 

[ncmaster]

Yo para eso ocupo el KeyPress, te dejo el ejemplo espero te sirva.

Código vb:

'Tb_cantida ==> TexBox donde se ingresa una cantida.
Private Sub Tb_cantidad_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Tb_cantidad.KeyPress, Tb_unidad.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
            e.Handled = True
            Tb_codigo.Focus() ' En caso de que la tecla sea Enter lo envia a un TexBox de Codigo
        End If
        If InStr(1, "0123456789." & Chr(8), e.KeyChar) = 0 Then
 ' Validas solo las teclas que necesitas Ej. 0123456789.,-@$&/ , la barra espaciadora, backspace y los cursores funcionan sin problema
            e.Handled = True
            e.KeyChar = CChar("")
        End If
    End Sub
 

Desde Chile

[rikimm]

ok lo q funciona seria esta parte Microsoft.VisualBasic.ChrW(Keys.Return) lo quise adaptarlo en un select case en el key press

Código VB:

Select Case e.KeyChar
            Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", Microsoft.VisualBasic.ChrW(Keys.Return)
            Case Else
                e.Handled = True
        End Select
 

no me funciona la parte del key return

[rikimm]

amigos ayudenme que no logro hacer que me funcione ayudenme

[ncmaster]

Ya que insistes en validar el texbox con sele case, te encontre este codigo en la pagina del Guille (Gracias Guille)

Es te código nos muestra como validar un texbox que acepte solo números, En Visual Basic .NET
Abra un nuevo proyecto, En Proyectos de Visual Basic seleccione la plantilla Aplicación para Windows.
En la Barra de Herramientas Seleccione Proyecto se le desplegara una lista seleccione Agregar Módulo.
Agregue un Textbox al Formulario y no le cambie el Nombre, Déjelo como textbox1
En el Modulo copie y pegue este código:

Código vb:

'****************************************************************************************
 
'* Código realizado por Angel Ruiz © (Venezolano)                                       *
 
'****************************************************************************************
 
    Function SoloNumeros(ByVal Keyascii As Short) As Short
        If InStr("1234567890", Chr(Keyascii)) = 0 Then
            SoloNumeros = 0
        Else
            SoloNumeros = Keyascii
        End If
        Select Case Keyascii
            Case 8
                SoloNumeros = Keyascii
            Case 13
                SoloNumeros = Keyascii
        End Select
    End Function
'------------------------------------------------------------------------------------------------
'Ahora valla al Formulario y haga doble click sobre el:
'Después de la línea:
 
Inherits System.Windows.Forms.Form
 
'Copie y pegue esta Declaración de Variable
 
Public KeyAscii As Short
 
 
'Ahora en el evento KeyPress del textBox1 copie y pegue este código
 
Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
        keyascii = CShort(SoloNumeros(keyascii))
        If keyascii = 0 Then
            e.Handled = True
        End If
 
 
'Quedaría de la siguiente forma:
 
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
        keyascii = CShort(SoloNumeros(keyascii))
        If keyascii = 0 Then
            e.Handled = True
        End If
End Sub
 

Desde Chile y Gracias Guille

[rikimm]

Pero los numero si me hagarra lo que que quiero que me funciones en la tecla de borrar pero no lo quiero hcaer con if sino con un select case jijiji creo que no me entendiste amigo pero grax por tu ayuda

[edbc92]

:Z ...No sé porque se hacen tanta bola, es un código sencillo. No sé si harán tanta cosa para presumir de que saben, pero bueno la respuesta sobre porque no te permite la tecla "delete" es porque no en tu select case no está especificado para eso has esto

Private Sub txtN1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPre[/COLOR]ss

Select Case Asc(e.KeyChar)
Case 97 To 122 '(en esta parte estas habilitando las teclas del abecedario en el idioma ascii, ojo: solo minusculas)

Case 8 '( esta es la parte que deseabas, el "8" en código ascii, representa a "delete")

Case 13
txtn2.focus '(el "13" representa enter, cuando presiones "enter" te regrese al focus que tu indicas)

Case Else
e.Handled = True

End Select
End Sub



Solo es eso :Z, tanta bola, bueno esto esta respondido fuera de tiempo, pero para una ayuda de quien "googlee" a esta parte y le sirva de ayuda ;)...

P.D.1. Tengo un excelente profe de vbnet, donde estudio.
P.D.2. "si el amor a una mujer ....", escojeria la programación, las mujeres sobran, aunque nunca hace falta algo de amor ;).