ayuda con vb

[sable]

jejeje io aki d nuevo 
....
hola queria saver como pueodo acer para que al clickar con el boton derecho del raton salga lo de copiar pegar borrar etc... pero se le puedan poner mas cosas y quitarle
es para un programa y no recuerdo donde lo lei y no consigo encontrarlo
gracias por su ayuda

[Ther0x]

Creo que se hace creando un menú en el editor de menús y ponerlo como oculto y que al hacer click se obtenga la posición en la pantalla donde está el cursor y en las propiedades del menú se ponga esa posición y luego que se muestre. Pero no estoy muy seguro de que haciendolo con el editor de menús funcione. Sino también lo puedes hacer en otro formulario.

Saludos

[DrakoX]

lo q hay q hacer es como dijo rada crear el menu en el editor de menus
y ponerlo como oculto,

luego en el event del botton en este caso en el de rightclick,
hay q poner PopupMenu y el nombre del menu


salu2 y suerte

[zXxOsirisxXz]

Ambos estan totalmente en lo cierto, pero me parece k eso solo daria buen resultado con un Tray, digo, k solo asi, editor + PopUpMenu :Copiar: or w.e, no estoy seguro, pero creo k no aria nada, si no, cuando este en la barra del reloj, lo kual seria entonce un Tray.

Saludos

[crypto136]

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_PopU p " , 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

Código:

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

Código:

Call Show_Menu_PopUp(El_Menu_PopUp, Button)

Fuente :
Para ver este enlace Registrate o Inicia Sesion

http://www.recursosvisualbasic.com.ar/htm/listado-api/168-menu-popup-personalizado-en-textbox.htm

Obviamente deben crear los menues que quieren que aparezcan en el menu contextual.

Suerte!!

EOF

[sable]

ola muchas gracias por las respuestas
tambn podria crear un form adicional y que se muestre al hacer click kon el boton derecho. se m akava d okurrir xD luego le doi a pngo unos label y le doi la propiedad click como si fuesen botones xD
no se pondra donde io pinche con el raton pero me sirve xD

[vicent_ab]

Private Sub treview_MouseD own(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then PopupMenu menu1

End Sub


Logicamente hay que crearlo con el editor de menus,el menu se llamara menu1