VB 小技巧自定义TextBox文本框右键菜单

'TextBox单击鼠标右键总是跟出来一个系统默认的关于文本操作的菜单，如何把它去掉？请看如下代码。

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        Text1.Enabled = False '禁止出现系统菜单
        MsgBox "显示自已的菜单或做其它的事" 'PopupMenu abc1

        Text1.Enabled = True
    End If
End Sub

摘自：网络整理

可能感兴趣的文章推荐：

※VB 获取TextBox文本框中的行数函数

※VB快速读取 TextBox 第 N 行的资料

※限制文本框(TextBox)只能输入数字(VB6代码)

※VB 提取TextBox 文本框中指定一行字符串

※VB 小技巧自定义TextBox文本框右键菜单

※VB 获取光标在TextBox、RichTextBox中所在的位置

---

 

※vb屏蔽文本框点右键时的弹出菜单

※VB 小技巧自定义TextBox文本框右键菜单

※VB 自启动建立右键菜单

※VB在菜单上增加图标

※vb在 ListBox