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.
(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
Adds Right Click Popup Menu and other mouse click functions to any project. Comments
No comments yet — be the first to post one!
Post a Comment