Teclas F

"Marcelo" escribió:

Como puedo hacer para asignar funciones a las teclas F1-
F12, por ejemplo que cuando un usario presione F3 pueda
imprimir o hacer otra cosa.

Hola, Marcelo:

Utiliza el evento «Form_KeyDown» del formulario, para asignar una función a
las teclas de función:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
Case vbKeyF1
MsgBox "He presionado F1"
Case vbKeyF2
MsgBox "He presionado F2"
Case vbKeyF3
MsgBox "He presionado F3"
Case vbKeyF4
MsgBox "He presionado F4"

'
'
Case vbKeyF12
MsgBox "He presionado F12"
End Select

End Sub

También te sugiero que establezcas a «True» el valor de la propiedad
«KeyPreview» del formulario, de ésta manera el formulario recibirá primero
los eventos de teclado y después los recibirá el control que se encuentre
activo en dicho formulario.

Un saludo.

Enrique Martínez
[MS MVP - VB]

"Israel Baez" escribió:

Por ejemplo:

Luego en el evento KeyPress del formulario puedes agregar
este codigo:

Private Sub Form1_KeyPress(KeyAscii as Integer,Shift as
Integer)
If KeyAscii=vbKeyF12 Then
'Colocar aqui el codigo que deseo ejecutar
Exit Sub
End If
End Sub

Hola, Israel:

Que yo sepa, las teclas de función no son caracteres «ASCII»: son
«caracteres extendidos». Por tanto, sólo se pueden interceptar en los
eventos «KeyDown» y «KeyUp»; en ningún caso en el evento «KeyPress», aunque
tengas establecida a «True» el valor de la propiedad «KeyPreview» del
formulario, ya que éste evento no se desencadena cuando pulsas una tecla de
función.

Para más información, consulta en la ayuda de Visual Basic los tres eventos
citados. Aparte, prueba a ejecutar el código en un proyecto para comprobar
si funciona. ;-)

Un saludo.

Enrique Martínez
[MS MVP - VB]