vba窗口中显示右键
Dim flag
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
If Button = 2 And Not flag Then
On Error Resume Next
Application.CommandBars("dddd").Delete
Application.CommandBars.Add "dddd", msoBarPopup, False, True
Application.CommandBars("dddd").Controls.Add msoControlButton
Application.CommandBars("dddd").Controls(1).Caption = "剪切"
Application.CommandBars("dddd").Controls(1).FaceId = 21
Application.CommandBars("dddd").Controls(1).OnAction = "cut2"
Application.CommandBars("dddd").Controls.Add msoControlButton
Application.CommandBars("dddd").Controls(2).Caption = "复制"
Application.CommandBars("dddd").Controls(2).FaceId = 19
Application.CommandBars("dddd").Controls(2).OnAction = "copy2"
Application.CommandBars("dddd").Controls.Add msoControlButton
Application.CommandBars("dddd").Controls(3).Caption = "粘贴"
Application.CommandBars("dddd").Controls(3).FaceId = 22
Application.CommandBars("dddd").Controls(3).OnAction = "pt"
Application.CommandBars("dddd").showpopup
End If
flag = Not flag
End Sub
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
If Button = 2 And Not flag Then
On Error Resume Next
Application.CommandBars("dddd").Delete
Application.CommandBars.Add "dddd", msoBarPopup, False, True
Application.CommandBars("dddd").Controls.Add msoControlButton
Application.CommandBars("dddd").Controls(1).Caption = "剪切"
Application.CommandBars("dddd").Controls(1).FaceId = 21
Application.CommandBars("dddd").Controls(1).OnAction = "cut2"
Application.CommandBars("dddd").Controls.Add msoControlButton
Application.CommandBars("dddd").Controls(2).Caption = "复制"
Application.CommandBars("dddd").Controls(2).FaceId = 19
Application.CommandBars("dddd").Controls(2).OnAction = "copy2"
Application.CommandBars("dddd").Controls.Add msoControlButton
Application.CommandBars("dddd").Controls(3).Caption = "粘贴"
Application.CommandBars("dddd").Controls(3).FaceId = 22
Application.CommandBars("dddd").Controls(3).OnAction = "pt"
Application.CommandBars("dddd").showpopup
End If
flag = Not flag
End Sub
Private Sub TextBox3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
If Button = 2 And Not flag Then
On Error Resume Next
Application.CommandBars("dddd").Delete
Application.CommandBars.Add "dddd", msoBarPopup, False, True
Application.CommandBars("dddd").Controls.Add msoControlButton
Application.CommandBars("dddd").Controls(1).Caption = "剪切"
Application.CommandBars("dddd").Controls(1).FaceId = 21
Application.CommandBars("dddd").Controls(1).OnAction = "cut2"
Application.CommandBars("dddd").Controls.Add msoControlButton
Application.CommandBars("dddd").Controls(2).Caption = "复制"
Application.CommandBars("dddd").Controls(2).FaceId = 19
Application.CommandBars("dddd").Controls(2).OnAction = "copy2"
Application.CommandBars("dddd").Controls.Add msoControlButton
Application.CommandBars("dddd").Controls(3).Caption = "粘贴"
Application.CommandBars("dddd").Controls(3).FaceId = 22
Application.CommandBars("dddd").Controls(3).OnAction = "pt"
Application.CommandBars("dddd").showpopup
End If
flag = Not flag
End Sub
Private Sub UserForm_Activate()
flag = False
End Sub
Sub copy2()
Application.SendKeys "^C"
End Sub
Sub cut2()
Application.SendKeys "^X"
End Sub
Sub pt()
Application.SendKeys "^V"
End Sub
