isroco
Bovino adicto
- Desde
- 12 Nov 2009
- Mensajes
- 869
- Tema Autor
- #1
Hola
Tengo este código que al presionar un numero aparece un formulario. Y funciona bien. Pero si quiero presionar 11 o 153, no me lo reconoce.
Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress
Dim numero As Integer
numero = e.KeyChar.ToString
If numero = "1" Then
Form2.Show()
Else
If numero = "2" Then
LoginForm1.Show()
End If
End If
End Sub
Que debo mover para que me reconozca mas dígitos. Por cierto, es para una rockola.
Tengo este código que al presionar un numero aparece un formulario. Y funciona bien. Pero si quiero presionar 11 o 153, no me lo reconoce.
Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress
Dim numero As Integer
numero = e.KeyChar.ToString
If numero = "1" Then
Form2.Show()
Else
If numero = "2" Then
LoginForm1.Show()
End If
End If
End Sub
Que debo mover para que me reconozca mas dígitos. Por cierto, es para una rockola.