Activar un timer con click derecho

[TheJucas21]

Bueno si leen el titulo quisiera saber como hacer esto:

Por ejemplo creo un proyecto, en el form1 pongo un Timer
Timer1

Código [Seleccionar] Expandir

SendKeys ("Este es una prueba para el foro")
Por ejemplo no?
Bueno yo quiero que en vez de poner un CommandButton con

Código [Seleccionar] Expandir

Timer1.Enabled = True
y otro con

Código [Seleccionar] Expandir

Timer1.Enabled = False
Quiero hacerlo mas practico osea que se active el timer pero con el click derecho o el click de la rueda.

PD: Se poco de Vb me gustaría si me explican que sea detalladamente así se hace "rápido"

Muchas Gracias!

[jesuluis]

 ve a las propiedades del formulario, ahi hay un icono en forma de rayo, son las acciones o eventos que tiene el formulario, entonces busca el evento "click"
y dale doble click para que te agregue el codigo al form.

te quedara algo como esto:

Código [Seleccionar] Expandir


Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click

     


    End Sub


tienes que cambiar esta parte  "ByVal e As System.EventArgs" por "ByVal e As MouseEventArgs", luego comparas el evento click y pones una condicion para que el codigo solo se active cuando sea click derecho, no izquierdo

y te quedará algo como esto:

Código [Seleccionar] Expandir



Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As MouseEventArgs) Handles MyBase.Click

        If e.Button = System.Windows.Forms.MouseButtons.Right Then

         'aqui va el codigo que quieras que se ejecute cuando hagas click derecho
en tu caso el timer

        End If


    End Sub



es todo, saludos

[abkanis]

Código [Seleccionar] Expandir

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbKeyRButton Then
MsgBox "puedes poner el codigo k kieras"
End If
End Sub


o tambien puedes usar:

Código [Seleccionar] Expandir

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
MsgBox "hola"
End If
End Sub