| Pregunta: | 12547 - TECLAS DE FUNCION |
| Autor: | david agis arreola |
| como activo las teclas de funcion,en Visual Basic 6.0
Que cuando presione las teclas de funcion mande a llamar una base de datos. | |
| Respuesta: | Jose A. |
| 1º.- Pon la Propiedad "KEYPREVIEW" del Formulario a True.
2º.- introduce, en el evento "KEYDOWN" del Formulario, el siguiente código: Dim strTecla As String, bolTecla As Boolean Select Case KeyCode Case vbKeyF1 strTecla = "F1" bolTecla = True Case vbKeyF2 strTecla = "F2" bolTecla = True Case vbKeyF3 strTecla = "F3" bolTecla = True Case vbKeyF4 strTecla = "F4" bolTecla = True Case vbKeyF5 strTecla = "F5" bolTecla = True Case vbKeyF6 strTecla = "F6" bolTecla = True Case vbKeyF7 strTecla = "F7" bolTecla = True Case vbKeyF8 strTecla = "F8" bolTecla = True Case vbKeyF9 strTecla = "F9" bolTecla = True Case vbKeyF10 strTecla = "F10" bolTecla = True Case vbKeyF11 strTecla = "F11" bolTecla = True Case vbKeyF12 strTecla = "F12" bolTecla = True Case Else bolTecla = False End Select If bolTecla Then MsgBox "Has pulsado la Tecla " & strTecla KeyCode = 0 End If -- El poner el parámetro "KeyCode" a cero es para que el control que tenga el foco no procese ninguna entrada. espero haberte ayudado, un Saludo. | |
| Respuesta: | Patricio Garibaldi |
| Ejemplo:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode > 111 And KeyCode < 124 Then msgbox "es una tecla de funcion!!" ELSE msgbox "no lo es" END IF End Sub Acordate de poner la propiedad keypreview = true en el form. Bye | |