Right-click menu like in IE.

[JorgeLedo]

I want ot create a menu like when you right-click in the Internet Explorer. HOW??

[JorgeLedo]

Sorry I've just found the "PopupMenu Method" and (amazingly) it works fine.

Thanks anyway.

[Mag-Net]

can someone tell me this, how to do it pls? i am trying to do it, but i need a borderless form

tnx

[JorgeLedo]

Creat a proj and add a menu to it with the name "PoPMENU" (Tools->Menu-Editor)

Place this code to your proj

---Start code -----

Private Sub form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
PopupMenu PopMENU
End If
End Sub

----END CODE-----

P.S. - Don't forget to make your menu not visible (uncheck the option button "Visible" in the menu editor screen).

Hope that does it.

[Mag-Net]

????it doesnt solve the problem as my form aint borderless????

[JorgeLedo]

I'm sorry but I don't understand. You want a popupmenu without border or not being 3d ?

[Mag-Net]

No what i want (sorry for not expliaing myself), but what I want is a popmenu on a form that has no border....This i dont think is possible....you can set the border properties to none, but this still doesnt make the form 'borderless'.

It is possible. Create two forms (form1 and form2). Create a menu on the second form.
On the menu, you have the menu's caption "Menu" and its name "mnumain".
From there on you create whatever else you want and you can have as many menus as you want.


Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then PopupMenu form2.mnumain: Exit Sub 'Main menu
If Button = 2 Then PopupMenu form2.mnuoptions: Exit Sub 'Options menu
End Sub

[Mag-Net]

Oh yeah, why didn't I think of that? Ah well, thanks very much!