如何实现窗体中的TEXTBOX有普通右键菜单

最新推荐文章于 2025-05-12 12:33:25 发布

转载最新推荐文章于 2025-05-12 12:33:25 发布 · 369 阅读

文章标签：

#textbox #integer #button #c

编程心得同时被 3 个专栏收录

6 篇文章

订阅专栏

右键

1 篇文章

订阅专栏

excel

1 篇文章

订阅专栏

本文介绍如何在应用程序中创建自定义命令栏，并通过宏实现快捷键操作，包括复制、剪切、粘贴和清除功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub ShowBar()
Dim oCmdBar As CommandBar
Dim oCtrl As CommandBarControl
On Error Resume Next
CommandBars("txtBar").Delete
On Error GoTo 0
Set oCmdBar = CommandBars.Add(Name:="txtBar", Position:=msoBarPopup, Temporary:=True)
With oCmdBar
      Set oCtrl = .Controls.Add(Type:=msoControlButton)
      With oCtrl
         .Caption = "复制  Ctrl+C"
         .OnAction = "Macro1"
      End With
      Set oCtrl = .Controls.Add(Type:=msoControlButton)
      With oCtrl
         .Caption = "剪切  Ctrl+X"
         .OnAction = "Macro2"
      End With
      Set oCtrl = .Controls.Add(Type:=msoControlButton)
      With oCtrl
         .Caption = "粘贴  Ctrl+V"
         .OnAction = "Macro3"
      End With
      Set oCtrl = .Controls.Add(Type:=msoControlButton)
      With oCtrl
         .Caption = "清除  Del"
         .OnAction = "Macro4"
      End With

End With
oCmdBar.ShowPopup
End Sub

Sub Macro1()
Application.SendKeys "^c", True
End Sub
Sub Macro2()
Application.SendKeys "^x", True
End Sub
Sub Macro3()
Application.SendKeys "^v", True
End Sub
Sub Macro4()
Application.SendKeys "{del}", True
End Sub

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = xlSecondaryButton Then
      ShowBar
      CommandBars("txtBar").Delete
End If
End Sub