Ejemplos usando el Api de windows para Visual basic

168 - Menú popup personalizado en textbox usando el Api RelaseCapture

Ejemplo que despliega un menú popup propio, al hacer clic derecho sobre un textbox

El ejemplo utiliza el Api RelaseCapture para bloquear el menú por defecto que se despliega al hacer clic derecho sobre un control textbox, y justo después de esto utiliza la función de visual basic " PopupMenu " para desplegar nuestro menú personalizado

El código para llamar al menú PopUp debe estar en el evento MouseDown

Nota: Hay una función de ajuste " Show_Menu_PopUp " , a la cual se le debe enviar como parámetro, el menú popup , y en el segundo parámetro el botón presionado.

código fuente en el módulo bas

Option Explicit ' Api ReleaseCapture Private Declare Function ReleaseCapture Lib "user32" () As Long ' Recibe como parámetro el menu popup y el botón presionado ' ****************************************************** Sub Show_Menu_PopUp(El_menu As Object, Button As Integer) If Button = vbRightButton Then Dim El_Form As Form ' Referencia al formulario para poder _ utilizar el método PopupMenu Set El_Form = El_menu.Parent 'Libera el mouse para que no se despliegue el menú estándar ReleaseCapture ' Despliega el menú propio El_Form.PopupMenu El_menu 'Elimina la referencia al formulario Set El_Form = Nothing End If End Sub

Para llamar al menú en el evento MouseDown

Call Show_Menu_PopUp(El_Menu_PopUp, Button)

Relacionados

Página con ejemplos relacionados a Menús

Buscar en Recursos vb