de vb6 a vb.net Como??

[chuchufuentes]

Buenas, esto se hace en VB6

Private Sub txtmanifiesto_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then cmdmodificar_Click
End Sub
Osea ejecutar esto (cmdmodificar_Click) dentro de txtmanifiesto_KeyDown.

Como lo hago con VB.net 2005 Winform??

Gracias

[pkj]

Con este no deberias tener problemas, ya que no te pasa a otro control. Solo tienes que conseguir reconocerlo, y te puede servir igual keydown que keyup que keypress.

Private Sub txtmanifiesto_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtmanifiesto.KeyUp

If e.KeyCode = 13 Then cmdmodificar_Click

End Sub

Sigo sin poder probarlo, pero si con tab servia...

[chuchufuentes]

No me explique bien o NO me entendiste. Primero esto no existe: "If e.KeyCode = 13 Then cmdmodificar_Click" en VB.net 2005 winform , es de esta manera

If e.KeyCode = 13 Then cmdmodificar.PerformClick()

esto es lo que quiero hacer

Private Sub cbproveedor_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cbproveedor.KeyDown
If e.KeyCode = 13 Then
Database.Connection = New SqlConnection(Database.strConnectionString)
Database.Connection.Open()
Database.Command = New SqlCommand
With Database.Command
.Connection = Database.Connection
.CommandType = CommandType.Text
.CommandText = "SELECT * FROM c03proveedor where c03nombre = '" & cbproveedor.Text & "'"
End With
Reader = Database.Command.ExecuteReader(CommandBehavior.Clo seConnection)
If Reader.HasRows = True Then
MsgBox("Ya existe")
Else
MsgBox("Es nuevo")
End If

End If
End Sub

donde cbproveedor es un ComboBox, pero se quiere que cuando este(ComboBox) pierda el Focus (cursor) presionando la tecla Tab, ejecute lo mismo. La idea NO es repetir todo el codigo o hacer un procedimiento, la idea es usar los recursos de VB.Net

Hice esto pero genera un error

Private Sub cbproveedor_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cbproveedor.KeyUp
If e.KeyCode = 9 Then
cbproveedor_KeyDown()
End If
End Sub

Please Ayuda

[eperedo]

Si entendí bien quieres que al estar dentro de una caja de texto (txtmanifiesto) y presionar enter se ejecute el código de tu botón (modificar)

Sería así:

Código vb.net:

If e.KeyCode = 13 Then
cmdmodificar.PerformClick()
End Sub
 

Esper te ayude

[chuchufuentes]

NO es ta tecla Enter es la tecla TAB

[gnzsoloyo]

El Char(13) es el retorno de carro o "Enter" (vbCr o ControlChars.Cr), no la de tabulación (vbTab o ControlChars.Tab), que es el Char(9).
En todo caso usa:

Código vb.net:

If e.KeyCode = ControlChars.Tab Then
    ' Sentencias del método o invocación a método.
End Sub
 

[chuchufuentes]

Ni lo uno ni lo otro esta es la solucion despues de 2 dias de busqueda

Private Sub txtcasillero_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcasillero.KeyPress
If e.KeyChar = ControlChars.Tab Then
validar.PerformClick()
End If
End Sub

Si NO coloca esta funcion NO trabaja

Protected Overrides Function ProcessTabKey(ByVal forward As Boolean) As Boolean
MyBase.ProcessTabKey(forward)
End Function

[gnzsoloyo]

...tienes un problema en alguna parte, porque el método que te pasé funciona en VB.Net tanto con el VS 2003, el VS 2005 como el VS 2008...
¿Estás seguro que al debuggear, al menos entra en el evento KeyPress? Si es así, lo que te pasé debería funcionar.

[chuchufuentes]

Tranquilo Gracias, aqui no hay ningun problema, el problema lo tiene Microsoft. Por que en VB6 con Sp6, tampoco funciona. Pero el objetivo se cumplio
Gracias