如何更改设置textbox的右键菜单.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 11 行

用 下 面 的 语 句 ： 
    Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
     ' Make VB discard the mouse capture. 
     Text1.Enabled = False 
     Text1.Enabled = True 
     
     ' Display the custom menu. 
     PopupMenu mnuPopup 
    End Sub 
<END>