Menu in sample is created as a popup commandbar (with class module).The menu can be activated from the MouseUp event of the textbox:
Private WithEvents TControl As MSForms.TextBox
Private Sub TControl_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 And Shift = 0 Then
cmdBar.ShowPopup
End If
End Sub
Private WithEvents TControl As MSForms.TextBox
Private Sub TControl_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 And Shift = 0 Then
cmdBar.ShowPopup
End If
End Sub
These operations can be performed with the right click menu :
- Copy
- Paste
- Clear
Private Sub CreateBar()
Set cmdBar = Application.CommandBars.Add(, msoBarPopup, 0, 1)
Set cmdCopyButton = cmdBar.Controls.Add(, 19)
Set cmdPasteButton = cmdBar.Controls.Add(, 22)
Set cmdClearButton = cmdBar.Controls.Add(, 47)
End Sub
Private Sub CreateBar()
Set cmdBar = Application.CommandBars.Add(, msoBarPopup, 0, 1)
Set cmdCopyButton = cmdBar.Controls.Add(, 19)
Set cmdPasteButton = cmdBar.Controls.Add(, 22)
Set cmdClearButton = cmdBar.Controls.Add(, 47)
End Sub