 Autor
|
Tema: Codigo activar un timer con una tecla (F1, F2,F3,etc.) (Leído 4,104 veces)
|
Trigger S1Z4BL3
 Desconectado
Mensajes: 3
|
Buenos días, me presento,soy nuevo en este foro. Lo vengo leyendo hace mucho pero nunca me registré por que nunca necesité ayuda.
Necesito ayuda, empezé a programar de nuevo en VB 6.0 y quería saber el codigo o que tipo de código es para activar un timer o commandbutton con una tecla. Preferible F1,F2,F3.
Saludos. Trigger.
|
|
|
|
|
En línea
|
|
|
|
|
XresH
|
Hola cmo estas, el evento KeyPress en visual basic no detecta los F (F1, F2, F3 etc)
como alternativa te recomiendo usar el KeyDown.
Tene en cuenta que el codigo que te doy funcionará correctamente si le colocas el foco a un Text1 y presionas F1 o F12, no es lo que precisas en cierta forma, lo que si te va a servir es la estructura que implementandola a lo que necesites vas a poder lograr tu cometido (Activar funciones en base a la presión de determinada tecla)
Eso ya depende de lo que quieras con exactitud, yo te muestro la base para detectar las teclas y activar funciones, en el ejemplo los dos botones de comando despliegan un mensaje en el título del formulario para corroborar que la activación fue exitosa, luego se desactiva el timer ya que no necesitamos que se ejecute de nuevo (en este caso)
realiza un proyecto nuevo para verificar el código
coloca 2 command button, 1 textbox y 2 Timer.Option Explicit
Private Sub Command1_Click()
Me.Caption = "hahahahaha"
End Sub
Private Sub Command2_Click()
Me.Caption = "4589784578745" 'mostramos este texto en el form para comprobar
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then 'f1
Timer1.Enabled = True
End If
If KeyCode = 123 Then 'f12
Timer2.Enabled = True
End If
End Sub
Private Sub Timer1_Timer()
Call Command1_Click
Timer1.Enabled = False 'deshabilitamos el timer ya que no queremos
'mostrar mas de una vez el mensaje
End Sub
Private Sub Timer2_Timer()
Call Command2_Click
Timer2.Enabled = False
End Sub
Saludos.
|
|
|
|
|
En línea
|
|
|
|
Trigger S1Z4BL3
Desconectado
Mensajes: 3
|
Hola, gracias por responder ante todo. pero al poner foco sobre el text y apreto F1 o F12 y no pasa nada. Ni me tira error en el codigo ni nada. Saludos.
Trigger
|
|
|
|
|
En línea
|
|
|
|
|
MCKSys Argentina
|
Hola, gracias por responder ante todo. pero al poner foco sobre el text y apreto F1 o F12 y no pasa nada. Ni me tira error en el codigo ni nada. Saludos.
Trigger
Revisa la propiedad KeyPreview del form. Saludos!
|
|
|
|
|
En línea
|
MCKSys Argentina "Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando." |
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!!
En caso contrario si lo que queres es saber si se presiona en cualquier parte de la pc hay 2 metodos, para esto lo mas facil es el metodo CATCH mediante el API GetAsincState o por medio de un HOOK, hay miles de ejemplos en el foro, espero que los sepas encontrar.
GRACIAS POR LEER!!!
|
|
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Activar y desactivar Timer con 1 tecla
Programación General
|
BrokerJoker
|
5
|
10,497
|
3 Enero 2012, 19:53 pm
por HdM
|
|
|
|
Activar un timer con click derecho
Programación Visual Basic
|
TheJucas21
|
2
|
2,299
|
22 Abril 2014, 01:20 am
por abkanis
|
|
|
|
Activar timer con el mouse
Programación Visual Basic
|
TheJucas21
|
7
|
3,743
|
22 Mayo 2014, 21:34 pm
por elezekiel
|
|
|
|
Activar Wireless sin tecla Fn en W7
Windows
|
Pintinta
|
3
|
3,353
|
1 Septiembre 2014, 18:49 pm
por Songoku
|
|
|
|
Activar evento con tecla y luego, si se suelta y vuelve a presionar, activar otro.
Scripting
|
Tachikomaia
|
3
|
4,245
|
14 Diciembre 2022, 01:53 am
por Username_Loading...
|
 |
