VB小技巧 文本框中屏蔽系统右键菜单&用自定义菜单代替自带右键菜单

’txtList是textbox控件，pop2是自定菜单名

Private Sub txtList_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = vbRightButton Then

        txtList.Enabled = False

        txtList.Enabled = True

        PopupMenu POP2

    End If

End Sub

---

VB部分相关文章推荐

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

※VB禁止使用 Alt-Tab 或 Ctrl-Alt-Del

※生成迷宫的程序

※另一方法转换大小写

※VB控件注册 - 利用资源文件将dll、ocx打包进exe文件

※VB利用资源文件进行工作