Programación General > Visual Basic 6.0 e inferiores

 [ayuda] Al Hace Click Derecho--> Pase Algo

(1/2) > >>

fclarat:
bueno como dice el titulo me gustaria q al hacer click derecho haga algo... seria algo como esta q hice....


If GetAsyncKeyState(vbKeyZ) Then
        Clickear
       
    End If


pero la verdad no se q poner en vez de (vbKeyZ) ...


bueno gracias  :D

saludos..

F_Tanori:
Que pase algo como que?



ejemplo en evento mousedown del form o de cualquier objeto que admita este evento puedes programar



--- Código: Text --- If Button=2 then  msgbox ("Se presiono el click derecho&#59;)")end iF  

Mollense:
Además si quieres hacer "Algo" puedes mostrar un menú contextual


--- Código: Text ---PopupMenu Form.MenuContextual 
Donde "Form" es el form donde está creado el menú y "Menú contrextual" es el nombre del menú, al que deberás quitarle el check de la casilla de verificación "Visible" cuando lo crees.

 :hola:

luciano2:
Hola que tal, a la funcion, pasale el valor 1 para el boton izquierdo o un 2 para el derecho, o ambas llamdas para los dos, por ejemplo:

Coloca un timer y pega esto en el form:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(2) Then
   MsgBox "Click derecho"
End If
End Sub

Si o si se necesita un Timer, ya que la idea de usar el api para lo que se supone que queres, es para interceptar el click fuera del programa, es decir en cualquier ventana de windows. sino no es necesario usar el api, con los eventos del form, o de los controles basta .. como te sugirieron


....saludos


---------------------

Recursos visual basic - ocx, codigo fuente

judamo:
y si quisiera salir....del proyecto con el exit sub como podria colocar la opcion..


ademas hay mas opciones de clic derecho??? pues este esta como complicado y para que utilizar el time???

gracias

Navegación

[0] Índice de Mensajes

[#] Página Siguiente