 Autor
|
Tema: Cuando apreto A = timer1.enabled = false (Leído 9,324 veces)
|
79137913
 Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!!
Si queres detectar pulsaciones de teclas podrias usar el metodo Catch, que sirve pero hay veces que no reconoce la pulsacion y aparte consume muchos recursos, sino podes hacer un hook al teclado, pero dado a las preguntas que estas haciendo dudo que se te haga facil hacer un hook(sin ofender), por ende recomiendo catch en tu caso pero siempre es mejor un hook.
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*
|
|
|
neeeko
Desconectado
Mensajes: 35
|
Pero si te dicen que tenes buscar cual es el problema? busca en google ejemplos de uso de hotkeys
Hice esto pero me tira error. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = (vbKeyF9) Then
Timer1.Enabled = False
End If
End Sub
|
|
|
|
|
En línea
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
A mi me funciona, dinos cual es el error
|
|
|
|
|
En línea
|
|
|
|
neeeko
Desconectado
Mensajes: 35
|
sadfasdf
|
|
|
|
« Última modificación: 25 Mayo 2011, 09:33 am por neeeko »
|
En línea
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Estas haciendo tipo un bot? que al apretar la tecla A empieze a escribir espacios hasta que pulses la tecla S? Creo que lo podias hacer simplemente sin apis aunque no es lo mejor.. Option Explicit Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyA Then Timer1.Enabled = True End If If KeyCode = vbKeyS Then Timer1.Enabled = False End If End Sub Private Sub Timer1_Timer() SendKeys " " End Sub
|
|
|
|
|
En línea
|
|
|
|
neeeko
Desconectado
Mensajes: 35
|
@XXX-ZERO-XXXMira con el codigo que me pasaste no me anda boliya ... osea no para de apretar la barra con la s . Mira si yo ponele quiero hacer esto ... es mas facil ? Option Explicit Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = (vbKeyA) Then Command1_Click.Enabled = True End If If KeyCode = (vbKeyS) Then Command2_Click() = False End If End Sub Private Sub Timer1_Timer() SendKeys " " End Sub
|
|
|
|
« Última modificación: 23 Mayo 2011, 03:12 am por raul338 »
|
En línea
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
No te confundas mucho, no hagas eso, y todavia esta mal.
A mi el codigo que te pase me funciona, dices que no para de presional el espacio pero lo presiona aunquesea? a mi me anda perfecto.
Al usar Form_KeyDown capturara las teclas que se presionen cuando estas situado en el form, si estas en otra cosa y apretas S obvio que no pasará nada.
|
|
|
|
|
En línea
|
|
|
|
neeeko
Desconectado
Mensajes: 35
|
Sigo sin entender amigo ... La verdad no me sale . te agradezco igual e ante mano .
Saludos
|
|
|
|
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
Mira, buscar no cuesta nada  Este es el metodo catch que menciono 79137913, bien explicado, simple pero no es 100% eficaz - ElGuille - Usar HotKeys en VB6Y aca, y aunque en ingles (no encontre el mismo codigo explicado en español  una lastima, despues habian metodos mas "dificiles" de implementarlo, o simplemente faciles con uso de clases, pero no era mi idea) RegisterHotKey Visual Basic 6 API Function |
|
|
|
« Última modificación: 23 Mayo 2011, 03:19 am por raul338 »
|
En línea
|
|
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Uso no valido de la propiedad - Timer1.Enabled
Programación Visual Basic
|
Chuxxx
|
4
|
2,669
|
3 Junio 2010, 22:48 pm
por Chuxxx
|
|
|
|
Función que devuelva un resultado y también: true o false
PHP
|
pisagatos
|
5
|
6,518
|
23 Enero 2011, 22:07 pm
por Nakp
|
|
|
|
Ayuda retardo timer1
ASM
|
torsello
|
0
|
2,128
|
29 Septiembre 2014, 06:32 am
por torsello
|
|
|
|
El botón rojo de internet que ya apretó más de un millón de personas
Noticias
|
wolfbcn
|
0
|
1,178
|
12 Mayo 2015, 02:20 am
por wolfbcn
|
|
|
|
Ayuda con OPCODE en .NET (TRUE FALSE)
Ingeniería Inversa
|
nartmidias
|
1
|
2,691
|
5 Diciembre 2015, 20:44 pm
por MCKSys Argentina
|
 |
