Ejemplos usando el Api de windows para Visual basic

210 - Api Mouse_event

Ejemplo para usar la función del api Mouse_event para desplegar un menú popup en un Listbox al hacer clic derecho sobre un item

La función Mouse_event permite simular y enviar pulsaciones al mouse

Este ejemplo , permite de una forma fácil, desplegar un menu contextual o menú popUp al hacer clic derecho sobre un elemento de un control ListBox, enviando con el api las constantes MOUSEEVENTF_LEFTDOWN ( para presionar el botón izquierdo ) y MOUSEEVENTF_LEFTUP ( para soltarlo). Las llamadas al api se realizan en los eventos mouseDown y MouseUp respectivamente del control list

formulario con el PopUpMenu

vista del formulario de ejemplo con el popup menu en el listbox

Controles

Colocar un control ListBox y crear un menú popup e indicarlo en la llamada a la linea Me.PopupMenu

Código fuente en el formulario

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Api mouse_event Private Declare Sub mouse_event Lib "user32" _ (ByVal dwFlags As Long, _ ByVal dx As Long, _ ByVal dy As Long, _ ByVal cButtons As Long, _ ByVal dwExtraInfo As Long) ' Constantes para la función mouse_event Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Form_Load() Dim i As Integer ' llena algunos items For i = 1 To 12 List1.AddItem MonthName(i) Next Me.Caption = " Simular pulsación del mouse " End Sub Private Sub List1_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) ' Comprueba si se se presionó el botón derecho If Button = vbRightButton Then '( lo presiona ) Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&) End If End Sub Private Sub List1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) ' .. si se se presionó el botón derecho If Button = vbRightButton Then ' Llamada al api para el evento de Mouse ( lo suelta ) Call mouse_event(MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&) ' Muestra el item actual en el titlebar Me.Caption = List1.Text ' Despliega el popup Menu Me.PopupMenu ElPopUpMenu End If End Sub

Nota: en este enlace hay otro ejemplo que muestra como poder desplegar un menu contextual en un control ListBox usando la función SendMessage

Buscar en Recursos vb