• Home
 · 
• Windows System Services
 · 
• Adds Right Click Popup Menu and other mouse click functions to any project.

Adds Right Click Popup Menu and other mouse click functions to any project.

Adds Right Click Popup Menu and other mouse click functions to any project.

Rate Adds Right Click Popup Menu and other mouse click functions to any project.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'make a new menu and call it Rclick
'with the caption Right Click
'uncheck mark the visible box
'check the WindowList box
'make a sub menu named mnuClose
'with the caption QUIT


'the statement directly below sets the
'variable button to equal what button is being
'clicked on the mouse

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

'left click     button = 1
'right click    button = 2
'scroll click   button = 4

If Button = 2 Then
    PopupMenu mnufile
End If

'pops up the menu named mnufile
'does not display the mnufile's caption
'but does dislay all sub menus under mnufile

End Sub

'take notice that when you add other
'objects they can not be clicked on in
'this manner unless the above code is
'added to each object


Private Sub mnuClose_Click()
    
End

'mnuclose is a sub menu of mnufile
'and is only displayed on right click
End Sub