Activar control picturebox con teclas

[empardopo]

Buenas,

tengo un control picturebox en un formulario.

¿Es posible emular el click del ratón pero con una combinación de teclas para este control? Es decir, quiero que en vez de tener que hacer clic con el botón del ratón pudiera asignarle una combinación de teclas al picturebox de forma que hiciera el mismo efecto.

Estoy trabajando con Visual Basic .NET 2003.

Muchas gracias por anticipado.

[drako_darpan]

Si se puede, tendrias que validar en el keypress las teclas que se manejarian y con eso se activaria el control.

Similar a lo que se utiliza en los menus Alt + A => Archivo, etc, etc.

Se me olvido comentarte , esto es en C# no se en cual lenguaje lo ocupes aplicar

[empardopo]

Uso Visual Basic .Net 2003 pero muchas gracias por la ayuda.

Me has abierto los ojos, jeje!

Pongo lo que he hecho por si le sirve a alguien.
Lo primero es activar la propiedad keypreview del formulario donde quiera detectar la pulsación de la tecla que desees poniéndola a True dicha propiedad.

Seguidamente, con el siguiente código me ha servido para detectar el código de la tecla que pulsaba y luego ya poner la condición con lo que deseaba que hiciera; en este caso la tecla era el F10 (código 121) y lo que quería es que llamara al evento click de mi picturebox1.

Código:

Private Sub AbrirAverias_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
        Dim e2 As System.EventArgs
        Dim str As String
        str = CStr(e.KeyCode)
        MsgBox(str)
        If e.KeyCode = 121 Then
            Call PictureBox1_Click(sender, e2)
        End If
    End Sub

Lo que no sé si se podría hacer. yo no lo he conseguido es poner una combinación de teclas al estilo CTRL+T o algo así.

Un saludo

[sergiomf]

Hola, para detecta combinaciones tipo CTRL+T puede usar algo asi

Código vb:

Private Sub AbrirAverias_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
  If e.Control AndAlso e.KeyCode = Keys.T Then            
    MessageBox.Show("Ctrt + T")
  End If
End Sub