| Pregunta: | 53783 - ¿COMO ASIGNAR EL F1 A UNA FUNCION? |
| Autor: | Pedro José Vicari Rivera |
| Necesito que alguien me diga como puedo asignar la tecla f1 a una funcion .show para desplegar otro formulario. se los agradesco. | |
| Respuesta: | eider mauricio aristizabal erazo |
| HOla hay un evento en el formulario que se genera cuando el usuario presiona una tecla se llama KeyDown este evento trae dos argumentos el primero KeyCode se refiere al codigo ASCII de la tecla que se presiono (En tu caso F1 que es el ascii 112) y el segundo Shift me dice si se ha utilizado una tecla auxiliar. Lamentablemente no tengo el VB 6 pues este ya esta descontinuado pero sin embargo hice un ejemplo en VBA que funciona igual pero en Excel y facilmente te servira como referencia... Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If (KeyCode = 112 And Shift = 0) Then UserForm2.Show End If End Sub Presiona Alt + F11 para ir al entorno de visual basic for applications, y ejecuta el formulario 1 Nota: Para habilitar la ejecucion de macros cambie el nivel de seguridad a medio, luego cierre Excel y vuelva a abrirlo Archivo de ejemplo | |