Popup (right-click) Menu From Standard Menu
I've searched and searched and cannot find any information on how to get a pop-up menu to appear when you right-click on a standard menu item. A classic example of this is in Internet Explorer's Favorites menu. If you right-click on a favorite, a popup menu appears and you can rename, delete, etc. the highlighted favorite. In VB6, accessing a menu item does not appear to fire the MouseUp or MouseDown events. Any thoughts?
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Right-Click Popup Menu
I know to create a popup menu, you use the menu editor and set the visible property to false. I would like to have the user right-click on a listbox item, and show the popup menu.
Could anyone just give me a simple example of how to make the menu visible on right-click?
Thanks!!
Right Click Popup Menu
How can you add menuitems to the standard popup menu.
As well as to the right click on the start button..
Seahag
Right-Click PopUp Menu
When you right-click on a shockwaveFlash animation, whether it's in a web-page or on a form you get a pop-up menu that allows you to control the animation.
I'm looking for a way to disable the right-click menu of a flash animation that I have on my form. I tried putting a transparent label over the shockwaveflash control, but that doesn't work.
Anyone have some ideas on this?
Right Click Popup Menu!!!
Hi,
When I right click on a control(say a textbox), instead of the normal undo, cut, copy.. popup, if i need to creat my own options (add,modify....).
How to go about it. Any help will be really appreciated.
Cheers
Right Click Popup Menu Over And Over
I have a treeview control and I want the ability to right click on an item and have a popup menu show up. I can get this part to work the next part is where I have the problem. While the popup menu is still up I cannot right click on a different item until the the popup is addressed. I want to simulate the windows explorer where you can click on each item in the tree and everytime the popup moves with the click.
Randy Smith
smithrr@royalneighbors.org
Popup Menu On Right Click
dear all
i want to put a popup menu in my application when i right click on a data grid in my form. how do i do that? please help.
haroon
API Click Popup Menu Item
i found out how to click a Menu with API:
Call PostMessage (targetWindow, WM_COMMAND, MenuID, 0)
but how do i do this with a popup menu? would i have to find the MenuID for the popup menu? if so, how would i do that?
THANKS
Modify IE Right Click Popup Menu
Before I worry about how to do the following, I'd like to know if its even possible.
I'd like to modify the popup menu of IE, so that when you right click on any image, a menu option appears that says "Open with [myprogram]". I'd like the URL of the image to be passed to the program.
So, am I dreaming, or is this possible?
Thanks!
Here Is The How To Show Popup Menu On Right Click
Dear Haroon.
this is kashif here. I got your mail in my email box in which you asking
about the right click popup menu on the form. so here is the code for doing
this, check it and reply with your comments. If this information not enough
for you then please let me know.
1. Make a menu that u wanna show on the form with menu editor and name it to
mnuTesting
2. Dobule click on the form and select the event MouseUp
3. and the write this codes.
If Button = 2 Then Me.PopupMenu mnuKashif
Thants it Simply
bye
waiting for your comments
Kashif Baig
Custom Right Click Popup Menu?
Hi folks,
I have an app that allows configuration of essentially an object. There are 40 something of these objects on a screen that the user can click on to configure 10 or so properties.
I'd like to give them the ability of "copy" "cut" and/or "paste" via a right click popup menu; typical Windows format.
So here are my questions:
1) How do I popup a menu with these options when a user clicks on an object, on my screen?
2) How do I populate that popup menu with the three items I've listed above (cut, copy, paste).
3) Once they click on one of those items in the popup, I would assume that fires an event that I can then handle appropriately?
Just to stress the point: this is a menu I control, and not the standard Windows menu. I plan to add more than the 3 items in the future, but these will do for now.
Thanks so much folks.
Creating Shortcut In Right-click(popup) Menu
hi,
How to pin the shortcut of my application to right-click(popup) menu.Similar to winzip
which will be displayed in popup menu. This is should be done while installation. So,
what are the changes to done to setup.lst file.
Any sort of help is appreciated.
M.L.Srinivas
Another Right-click PopUp Menu On MSFlexGrid Question
Hi there,
I've added code to the Mousedown event of the MSFlexgrid for a right-click PopUp Menu, and when I click on a cell and right-click the menu appears fine. But when I move to another cell, and right-click, the menu stays where it is rather than appearing on the cell I've right-clicked on - I have to left-click on the new cell first and then right-click. Does anyone know a way around it? (The mousedown event does not seem to fire for a right-click when the PopUp menu is showing....).
Here is my code:
Code:
Private Sub flgData_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Button = vbRightButton Then
If flgData.MouseCol <> 0 And flgData.MouseRow <> 0 Then
flgData.Col = flgData.MouseCol
flgData.Row = flgData.MouseRow
PopupMenu
End If
End If
End Sub
Popup Menu (rught Click Listview)
Hello,
I have got a listview containing several listitems (lvwIcon view).
I want the user to be able to right click a listitem and show a popup menu (like right clicking on your desktop).
Anybody can point me in the right direction?
Thanks,
Patrick
LiSTVIEW: Right Mouse Click And Menu PopUp
Code:
Private Sub lv_addl_costs_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
PopupMenu mnu_AC
End If
End Sub
How could I modify this code to have BUTTON 2 select the item underneath the cursor so that it is the SELECTEDITEM?
Disable Popup Menu When Right Click Text Box
when right click on the textbox in form a popup menu will appear with options (cut,copy,paste and undo). is there any way to disable all options. if it is possible to disable items except 'copy' it will be great
Right Click TreeView Node, PopUp Menu
I have a TreeView and I'd like to be able to right click on a node, make a popup menu appear and give them the ability to delete the node, among other things. I just need to know how to create the menu and make it pop up on right click only. Any ideas? Thanks, Jeremy
Right Click Popup Menu Is Not Visible In My Exe Project
Hi All
I have made a project in VB.
In whci i used a tray icon.
once the form goes to the tray icon one can restore it by right click on the icon in the tray.
it is perfectly running when i use f5 to execute the project but when i am runing the exe of the project i am unable to restore the form again as the popupmenu on the icon in the tray is not visible.
Please help me to solve my problem
Here is my code
// codes in the module
Option Explicit
'[Tray Constants]
Const NIF_MESSAGE As Long = &H1 'Message
Const NIF_ICON As Long = &H2 'Icon
Const NIF_TIP As Long = &H4 'TooTipText
Const NIM_ADD As Long = &H0 'Add to tray
Const NIM_MODIFY As Long = &H1 'Modify
Const NIM_DELETE As Long = &H2 'Delete From Tray
'[Type NotifyIconData For Tray Icon]
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type
'[Return Events]
Public Enum TrayRetunEventEnum
MouseMove = &H200 'On Mousemove
LeftUp = &H202 'Left Button Mouse Up
LeftDown = &H201 'Left Button MouseDown
LeftDbClick = &H203 'Left Button Double Click
RightUp = &H205 'Right Button Up
RightDown = &H204 'Right Button Down
RightDbClick = &H206 'Right Button Double Click
MiddleUp = &H208 'Middle Button Up
MiddleDown = &H207 'Middle Button Down
MiddleDbClick = &H209 'Middle Button Double Click
End Enum
'[Modify Items]
Public Enum ModifyItemEnum
ToolTip = 1 'Modify ToolTip
Icon = 2 'Modify Icon
End Enum
'[API]
Private TrayIcon As NOTIFYICONDATA
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
'[Add to Tray]
Public Sub TrayAdd(hwnd As Long, Icon As Picture, _
ToolTip As String, ReturnCallEvent As TrayRetunEventEnum)
With TrayIcon
.cbSize = Len(TrayIcon)
.hwnd = hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = ReturnCallEvent
.hIcon = Icon
.szTip = ToolTip & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, TrayIcon
End Sub
'[Remove From tray]
Public Sub TrayDelete()
Shell_NotifyIcon NIM_DELETE, TrayIcon
End Sub
'[Modify the tray]
Public Sub TrayModify(Item As ModifyItemEnum, vNewValue As Variant)
Select Case Item
Case ToolTip
TrayIcon.szTip = vNewValue & vbNullChar
Case Icon
TrayIcon.hIcon = vNewValue
End Select
Shell_NotifyIcon NIM_MODIFY, TrayIcon
End Sub
//code in the tray_click
TrayAdd hwnd, Me.Icon, "System Tray", MouseMove
mnuHide_Click
// code in the mdiform
Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim cEvent As Single
cEvent = X / Screen.TwipsPerPixelX
Select Case cEvent
Case MouseMove
Debug.Print "MouseMove"
Case LeftUp
Debug.Print "Left Up"
Case LeftDown
Debug.Print "LeftDown"
Case LeftDbClick
Debug.Print "LeftDbClick"
Case MiddleUp
Debug.Print "MiddleUp"
Case MiddleDown
Debug.Print "MiddleDown"
Case MiddleDbClick
Debug.Print "MiddleDbClick"
Case RightUp
Debug.Print "RightUp" : PopupMenu mnumaster
Case RightDown
Debug.Print "RightDown"
Case RightDbClick
Debug.Print "RightDbClick"
End Select
End Sub
Thanks
Creating Shortcut In Right-click(popup) Menu
hi,
How to pin the shortcut of my application to right-click(popup) menu.Similar to winzip
which will be displayed in popup menu. This is should be done while installation. So,
what are the changes to done to setup.lst file.
Any sort of help is appreciated.
M.L.Srinivas
Creating Shortcut In Right-click(popup) Menu
hi,
How to pin the shortcut of my application to right-click(popup) menu.Similar to winzip
which will be displayed in popup menu. This is should be done while installation. So,
what are the changes to done to setup.lst file.
Any sort of help is appreciated.
M.L.Srinivas
Create PopUp Menu When Right Click On The Mouse In Textbox Using VB6
Hi All,
I was specifically requested by my IT Manager to to create a popup menu when the focus is on textbox by right-clicking the mouse. Instead of the PopUp Menu showing, the system "Edit" menu popup as per my sample ScreenDump attached. Here is my modified script which I got it from the forum which is meant of Form focus and not textbox.
Original script.
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Me.PopupMenu menuInventory
End If
End Sub
My Modified Script
this one cause the sysem Edit Menu to pop up
Private Sub txtInventory_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
Me.PopupMenu menuInventory
End If
End Sub
Edited by - Lennie on 12/16/2006 12:15:49 AM
Right Click For Popup Menu, But Select The Item Right Clicked Upon [List Box]
Hi,
I have a list box which holds several list items (logs). I want to right click on the individual list items and select them (which only works with left click) and then show a popup menu.
The list item must be selected because the popup menu would have commands specific to the 1 file. E.g. delete log
How do I accomplish this?
Thanks in advance
--------------------------------------------------
Should I apologize if what I say burns your
ears and stains your eyes?!
Drag & Drop - Managing Mouse Events For Both Right-click Popup Menu & Right Dragging
OK - suppose I have "control1" and "control2". On control1, if the user right-clicks, I want to show a popup menu, but I also want to allow right-dragging to control2. If the user right-drags, I want to show a popup menu on the drop. How do I manage these events to keep things straight?
Everything's fine if I only allow dragging with the left button and popup menu on the right button. It's when I want to allow "double duty" on the right button that things get confusing.
How To Popup A Menu For The Menu Created By MenuEditor & Populated At Runtime On RCli
How to Popup a Menu for the Menu created by MenuEditor & populated at runtime, the Popup should be shown when the user right click the Menu.
Hi,
I need to show the PopuMenu for populated Menu, either its created by API as below or by MenuObject. The below
is the way i created the Menu through API based on the sample of ROB in this Forum.
The below is the code in the General Declaration Section in the Form.
VB Code:
Const MF_CHECKED = &H8&Const MF_APPEND = &H100&Const TPM_LEFTALIGN = &H0&Const MF_DISABLED = &H2&Const MF_GRAYED = &H1&Const MF_SEPARATOR = &H800&Const MF_STRING = &H0&Private Type POINTAPI X As Long Y As LongEnd TypePrivate Declare Function CreatePopupMenu Lib "user32" () As LongPrivate Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal X As Long, ByVal Y As Long, ByVal nReserved As Long, ByVal hwnd As Long, ByVal lprc As Any) As LongPrivate Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As LongPrivate Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As LongPrivate Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As LongPrivate Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongDim hMenu As Long Private Type MSG hwnd As Long message As Long wParam As Long lParam As Long time As Long pt As POINTAPIEnd Type
I am using a Grid control, that is populated at runtime with AreaName, In that GridControl's MouseUp Event, I
am loading the Equipment for the Cicked Area is populated and displayed in a Menu and shown to the user. By using
the below code. It works fine. All Equipments are added to the Menu created by the Menu Editor at runtime.
VB Code:
Private Sub JanfpSpr_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim CurSprVal As Variant Dim DtVal As Variant Dim oMenu As Menu Dim rstSi As New ADODB.Recordset Dim ShtType As String Dim JanCritTyp As Variant If Button = vbLeftButton Then JanfpSpr.GetText 4, JanfpSpr.ActiveRow, JanCritTyp JanfpSpr.GetText 1, JanfpSpr.ActiveRow, CurSprVal JanfpSpr.GetText 3, JanfpSpr.ActiveRow, DtVal ShtType = Mid(CurSprVal, Len(CurSprVal) - 4, Len(CurSprVal)) CurSprVal = Mid(CurSprVal, 1, Len(CurSprVal) - 9) If JanCritTyp = "Area" Then SQL = "select * from EquipMaster where ArName='" & Mid(CurSprVal, 7, Len(CurSprVal)) & "' And Nextti Between #" & DtVal & "# And #" & DtVal & "# And ShtTp='" & ShtType & "' order by ENo" If rstSi.State = 1 Then rstSi.Close rstSi.Open SQL, cnnNew, adOpenStatic, adLockReadOnly, adCmdText Call UnloadMenuItems mnuLstSubItms(0).Caption = Mid(CurSprVal, 7, Len(CurSprVal)) mnuLstSubItms(0).Enabled = False While Not rstSi.EOF Load mnuLstSubItms(mnuLstSubItms.Count + 1) mnuLstSubItms(mnuLstSubItms.UBound).Caption = rstSi.Fields("ENo") mnuLstSubItms(mnuLstSubItms.UBound).Enabled = True rstSi.MoveNext Wend mnuLstEqp.Enabled = True Call PopupMenu(mnuInfo) ElseIf JanCritTyp = "Equipment" Then Call UnloadMenuItems mnuLstEqp.Enabled = False Call PopupMenu(mnuInfo) End If End If' End IfEnd Sub
Just in the Above code I added the Equipment Names in the Menu, If the User Right Click any
1 of the Equipment from the Menu then i need to show a Popup Menu with Update,Report etc.
for this Popup from the Equipment I added the Below Code in Form_Load() and mnuLstSubItms_Click()
VB Code:
Private Sub Form_Load() hMenu = CreatePopupMenu() AppendMenu hMenu, MF_STRING, ByVal 0&, "&Update" AppendMenu hMenu, MF_SEPARATOR, ByVal 0&, ByVal 0& AppendMenu hMenu, MF_STRING, ByVal 0&, "&Delete" AppendMenu hMenu, MF_SEPARATOR, ByVal 0&, ByVal 0& AppendMenu hMenu, MF_STRING, ByVal 0&, "&Report"End Sub Private Sub mnuLstSubItms_Click(Index As Integer) Dim pt As POINTAPI GetCursorPos pt TrackPopupMenu hMenu, TPM_LEFTALIGN, pt.X, pt.Y, 0, Me.hwnd, ByVal 0&End Sub
What happens for this code is, The Popup menu is Show, but as soon as this Popup Menu is shown
the existing PopuMenu disappears, i need both to be visible as we can see in Windows Menus
Requirements:
How to find which MouseButton is Clicked in the mnuLstSubItms_Click Event.
How to and where to write the Events for the PopupMenu created through API (for Menu Update,Report)
How to protect without the Menu disappears, when the user right click the Equipment.
As (Moderator) Rob said i posted here this issue in the New Thread. Hope any VBForums member
might have faced the same scenario. Kindly check this and reply me.
The picture of the Menus on runtime and design time are also attached here for your reference.
Thankyou,
Chock.
How To Popup A Menu For The Menu Created By MenuEditor & Populated At Runtime
How to Popup a Menu for the Menu created by MenuEditor & populated at runtime, the Popup should be shown when the user right click the Menu.
Hi,
I need to show the PopuMenu for populated Menu, either its created by API as below or by MenuObject. The below is the way i created the Menu through API based on a sample given in VBForums by Rob.
My Project Current status.
The below is the code in the General Declaration Section in the Form.
Code:
Const MF_CHECKED = &H8&
Const MF_APPEND = &H100&Const TPM_LEFTALIGN = &H0&
Const MF_DISABLED = &H2&
Const MF_GRAYED = &H1&
Const MF_SEPARATOR = &H800&Const MF_STRING = &H0&
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function CreatePopupMenu Lib "user32" () As Long
Private Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal X As Long, ByVal Y As Long, ByVal nReserved As Long, ByVal hwnd As Long, ByVal lprc As Any) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Private Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim hMenu As Long
Private Type MSG
hwnd As Long
message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type
I am using a Grid control, that is populated at runtime with AreaName, In that GridControl's MouseUp Event, I am loading the Equipment for the Cicked Area is populated and displayed in a Menu and shown to the user. By using the below code. It works fine. All Equipments are added to the Menu created by the Menu Editor at runtime.
Code:
Private Sub JanfpSpr_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim CurSprVal As Variant
Dim DtVal As Variant
Dim oMenu As Menu
Dim rstSi As New ADODB.Recordset
Dim ShtType As String
Dim JanCritTyp As Variant
If Button = vbLeftButton Then
JanfpSpr.GetText 4, JanfpSpr.ActiveRow, JanCritTyp
JanfpSpr.GetText 1, JanfpSpr.ActiveRow, CurSprVal
JanfpSpr.GetText 3, JanfpSpr.ActiveRow, DtVal
ShtType = Mid(CurSprVal, Len(CurSprVal) - 4, Len(CurSprVal))
CurSprVal = Mid(CurSprVal, 1, Len(CurSprVal) - 9)
If JanCritTyp = "Area" Then
SQL = "select * from EquipMaster where ArName='" & Mid(CurSprVal, 7, Len(CurSprVal)) & "' And Nextti Between #" & DtVal & "# And #" & DtVal & "# And ShtTp='" & ShtType & "' order by ENo"
If rstSi.State = 1 Then rstSi.Close
rstSi.Open SQL, cnnNew, adOpenStatic, adLockReadOnly, adCmdText
Call UnloadMenuItems
mnuLstSubItms(0).Caption = Mid(CurSprVal, 7, Len(CurSprVal))
mnuLstSubItms(0).Enabled = False
While Not rstSi.EOF
Load mnuLstSubItms(mnuLstSubItms.Count + 1)
mnuLstSubItms(mnuLstSubItms.UBound).Caption = rstSi.Fields("ENo")
mnuLstSubItms(mnuLstSubItms.UBound).Enabled = True
rstSi.MoveNext
Wend
mnuLstEqp.Enabled = True
Call PopupMenu(mnuInfo)
ElseIf JanCritTyp = "Equipment" Then
Call UnloadMenuItems
mnuLstEqp.Enabled = False
Call PopupMenu(mnuInfo)
End If
End If
' End If
End Sub
Just in the Above code I added the Equipment Names in the Menu, If the User Right Click any 1 of the Equipment from the Menu then i need to show a Popup Menu with Update,Report etc. for this Popup from the Equipment I added the Below Code in Form_Load() and mnuLstSubItms_Click()
Code:
Private Sub Form_Load()
hMenu = CreatePopupMenu()
AppendMenu hMenu, MF_STRING, ByVal 0&, "&Update"
AppendMenu hMenu, MF_SEPARATOR, ByVal 0&, ByVal 0&
AppendMenu hMenu, MF_STRING, ByVal 0&, "&Delete"
AppendMenu hMenu, MF_SEPARATOR, ByVal 0&, ByVal 0&
AppendMenu hMenu, MF_STRING, ByVal 0&, "&Report"
End Sub
Private Sub mnuLstSubItms_Click(Index As Integer)
Dim pt As POINTAPI
GetCursorPos pt
TrackPopupMenu hMenu, TPM_LEFTALIGN, pt.X, pt.Y, 0, Me.hwnd, ByVal 0&
End Sub
What happens for this code is, The Popup menu is Show, but as soon as this Popup Menu is shown
the existing PopuMenu disappears, i need both to be visible as we can see in Windows Menus
Requirements:
How to find which MouseButton is Clicked in the mnuLstSubItms_Click Event.
How to and where to write the Events for the PopupMenu created through API (for Menu Update,Report)
How to protect without the Menu disappears, when the user right click the Equipment.
Hope any member here might have faced the same scenario. Kindly check this and reply me.
The picture of the Menus on runtime and design time are also attached here for your reference.
Thankyou,
Chock.
Popup Menu, Context Menu Dynamic Creation?
Hi everyone,
i used the google search and the forum search but i didnt find any suitable result.
What i want to do:
i want to display a popup menu which is dynamic created from an xml file. i read the xml file to my own private type structure and now i want to display a popup menu. the only, as i think very ugly way i found is sevpopup menu active x. the problem with that menu is, that in every way there is a space for icons in menu which i dont have and the other problem is that i want to copy and not to install the application.
Really important for me is that i can create submenus!
Thank you all for help!
buechse
How To Add A Menu Item To The Windows Explorer Popup Menu?
Hi,
I have a feeling that this is going to be an API question, but I thought I start with this forum first..
Basically, what I want to do is to create a little VB app which I can launch by using the popup menu in the Windows Explorer. When I right-click on a folder, I want to be able to launch my program.
Any examples and ideas on how to do this would be greatly appreciated..
Dan
Hide Menu Line When Creating Popup Menu
I have a program that I created a PopupMenu for so when the user does a right click - there are options they can select.
The question is :
In order to create the PopupMenu, I created a menu for my form and then made parent for the menu options disabled and not visible.
When the form is launched however there is a seperation line where a menu should be.
Is there a way to remove this ?
Thanks in advance,
Kflasph
In A Popup Menu Witch Menu Item Is Slected
How do I find out what menu item was clicked
str = popMenu.Name
Select Case str
Case "mCut"
MsgBox "cut"
Case "mPaste"
MsgBox "paste"
Case "mProperties"
MsgBox "pro"
End Select
Coding A Popup Menu Instead Of Using Menu Editor :S
Ok this might sound wierd but i want to add pop up menus to my form without using the menu editor and without showing them in the form itself (only when i want them to pop up). I have a frameless form and as soon as i add menus the frame will be there again. and i hoped i could just program a menu that is also pretty editable of some sort
How Do I Design A Context Menu (Popup Menu) In VB?
Hi,
I want to design a popup menu for a form in VB. I already have a menu for the form. This menu is displayed below the title bar. When I try to use the Menu Editor, it only lets me edit this menu. I want to design a new menu which will popup like a context menu. How do I do this?
Any help would be greatly appreciated.
Disable MDI Parent's System Context Menu Right & Left Click Menu Pop-up. How?
I am trying to do this without much luck, but managed to get rid-of the Min/Max buttons via an MS example at the link below.
http://support.microsoft.com/default.aspx?scid=kb;en-us;137033
However, when a user right clicks on-the MDI parent's Caption bar, a popup up menu appears - Woud like to prevent that.
Secondly, if a user "LEFT" Click on the top Left corner of the same Caption bar (where the Icon appears); it pops the same Pop-Up Menu - Like to stop that.
Thirdly, If a user double clicks on the same menu bar, form flickers, bobs down & up (Min & back to Max state), looks back at you and say's "fooled Ya!", as if it was possessed by some sort of strange evil code. Now I Would really, really, like to make it stop doing that.
Basically, like to prevent any mouse action on MDI Parent's Title Bar. Searched for couple of hours in vain (pain), but nothing turned up for what I am looking for. I can stop the right click on the form it-self by detecting mouse down button, but that’s not preventing the click event in MDI parent's title/caption bar.
Anyone know how or what needs to be done to get this to work? Any and all help, suggestions, etc. will be greatly appreciated!
Clicking Picturebox Show Menu, Click Elsewhere Disappear Menu
Hello Everybody,
I've soem pictureboxes, and I want to show too command buttons when you click on on of the images but if you click somewhere else I want to make them dissappear, I tried the form_click event, and from_mousedown even, but they only work when you click on the form, but I've loads of other things on it, so the user must be "lucky" to click on the form, but to put the code to make them disappear in every object of the form would take a lot of time and I wonderd if there was another way to make them disappear again after clicking on something else???(its not that I don't want to ut the code there because of the work, but if I didn't search for a better methods then I would stay at the same level of programming)
Add Custom Menu Item To Windows Right Click Context Menu ????
Hi everyone
Earlier today there was a thread with this Q in it but it wasnt ever resolved. What i want to do is add my own custom entry to the windows menu that pops up when you right click on an something in particular to the edit menu. So when you select some text no matter what app your in it has my custom menu option in it along with the usual copy and paste and what not.
Can this be done
If so how and where do i start ??
Making A Popup Menu, Popup A Menu
Hi
I have a popupmenu that gets used extensivly in my app. On every menu item that is clicked, a new submenu should be shown, but i need to reuse that submenu over and over again on most of my menu items.
So what i thought was making another menu that will act as the submenu that needs to be shown, and calling
VB Code:
Private Sub mnuOpen_Click() '-- Need this menu to popup another menu Me.PopupMenu Me.mnuSubmenuEnd Sub
But that simply doesnt work
Any thoughts on how i can do this?
Thanks
Runtime Menu/Right Click Menu/No Border Form
Ok, I am trying to make a form as small as possible. I turned on the boreders and its just the way I want it. Now I would like create a popup menu (to save space, instead of puting command buttons). The problem is, when I add an invislbe menu in the menu editor and try to use Popupmenu, borders and the title bar appear on my form even though borders are still set to none.
From the search I did there seems to be no way to create a run time menu without some APIs. Is there any other way to accomplish a right click menu in this situation? Thanks.
Adding Menu's In Windows Explorer Right Click Menu
Could anyone tell me how you can put a menu item of your own in, for example, the right click menu in windows explorer? I know it's possible , is anyone there listening to me ????? PLEASE HELP !!!!!!!
Quickie Popup Menu - TextBox Popup Inhibit
I did a quick popup menu (a four item listbox) for a stand-alone form
(no MDI parent). I want it to respond to a right-click, but it gets
overlaid by the Textbox popup menu.
How can I inhibit the Textbox popup?
Thanks,
John
|
TRACKER
