
13/12/2009, 12:07
|
| | Fecha de Ingreso: mayo-2008
Mensajes: 353
Antigüedad: 16 años, 9 meses Puntos: 3 | |
de vb6 a vb.net Como?? 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 |