Activar timer con el mouse

Iniciado por TheJucas21, 19 Mayo 2014, 03:34 AM

0 Miembros y 1 Visitante están viendo este tema.

TheJucas21

    Option Explicit
     
    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        'Sólo basta con vbRightButton, pero puse la línea completa para que veas de dónde viene
        If Button = VBRUN.MouseButtonConstants.vbRightButton Then
             Call Tarea   'Ejecutamos la Tarea
        End If
    End Sub
     
    Private Sub Tarea()
        'Aquí iría la tarea, es decir todo lo que pusiste dentro del evento Timer
    End Sub


Listo!!

Miseryk

Pero dentro del formulario o fuera del mismo?
Can you see it?
The worst is over
The monsters in my head are scared of love
Fallen people listen up! It's never too late to change our luck
So, don't let them steal your light
Don't let them break your stride
There is light on the other side
And you'll see all the raindrops falling behind
Make it out tonight
it's a revolution

CL!!!

79137913

"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*

TheJucas21

Cita de: Miseryk en 19 Mayo 2014, 16:09 PM
Pero dentro del formulario o fuera del mismo?
Fuera del form


79137913

HOLA!!!

Ejemm... me parece que si es lo que buscas, solo que no sabes como implementarlo.

Analiza mejor el codigo y el funcionamiento del programa ese!

GRACIAS POR LEER!!!
"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*

Miseryk

Si mal no recuerdo lo podés lograr con ésto:

http://msdn.microsoft.com/en-us/library/windows/desktop/ms646293(v=vs.85).aspx

En un timer ponés el GetAsyncKeyState con el LeftClick/RightClick o lo que sea, teclas y demás.
Can you see it?
The worst is over
The monsters in my head are scared of love
Fallen people listen up! It's never too late to change our luck
So, don't let them steal your light
Don't let them break your stride
There is light on the other side
And you'll see all the raindrops falling behind
Make it out tonight
it's a revolution

CL!!!

elezekiel

queres hacer clic izquierdo o derecho y que el timer se active aunque el form este oculto??? o fuera de foco como quieras decirle.