VB 中使 TextBox 按 Mouse 右键时只出现自定 PopUp Menu

最新推荐文章于 2026-06-22 10:38:41 发布

原创最新推荐文章于 2026-06-22 10:38:41 发布 · 859 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#textbox #menu #vb #integer #button

#api

收录于

本文介绍了一种解决TextBox右键弹出自定义菜单的问题的方法。通常情况下，第一次点击右键会显示默认菜单而不是自定义菜单，本文提供的解决方案通过简单的启用禁用操作解决了这一问题。

一般我们可能在 TextBox 的 MouseDown Event 中 Check 是否按右键，若是，则设定出现 Popup Menu 程式如下：
   Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
     PopupMenu MyMenu
    End If
   End Sub
    可是出现的还是原先内定的 Popup Menu，之后再按一次右键，才出现我们自定的 menu。很奇怪吧？如果用 API 来解决，那便是要拦截 Mouse 的按键(使用 SubClassing 的技巧)，但是有人发现了以下的方式便可以解决(也是一个十分实作性的经验):
   Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
     Text1.Enabled = False : Text1.Enabled = True
     PopupMenu MyMenu
    End If
   End Sub