Private Sub Text2_Mousedown(button As Integer, shift As Integer, X As Single, Y As Single)
If button = vbKeyRButton Then
    PopupMenu mnushortcut
End If
End Sub '*******************************************************鼠标右键中的菜单

运行后
在屏幕左上角出现如下菜单：

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Text1.Enabled = False
  Text1.Enabled = True
  If Button = vbRightButton Then PopupMenu mnushortcut
End Sub

收到的鲜花

• xingming022 于 2015-01-27 10:33 送鲜花  3朵   附言：我很赞同

非常感谢您的回复，右键问题解决了，还有两个小问题想请教下：
1.为何文本框先设置成无效再设置成有效就可以了？
2.鼠标左键功能如何恢复成默认那种，就是可以逐行选择那种？
谢谢~

1，可拦截鼠标右键消息，让自定义菜单优先弹出
2，我真不知道左键默认功能是什么。

默认的左键功能是可以任意选择文字的，选择上之后的文字就涂上蓝色底色了。
但是如果自定义了右键功能就无法选择文字了。

借 xzlxzlxzl版主的花

 Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button <> vbRightButton Then Exit Sub
  Text1.Enabled = False
  Text1.Enabled = True
  PopupMenu mnushortcut
End Sub

收到的鲜花

• xingming022 于 2015-01-27 16:11 送鲜花  3朵  

非常感谢您的回复，按照您给的代码，鼠标左键可以选择了，并也涂上蓝色底色了，但是一按右键，蓝色底色又没有了。能再指导下么啊？谢谢~

我这儿没问题，看抓屏。先用左键选取了，再点右键弹出菜单。

您好，我把我编写的发给您，麻烦再指导下。

我测试时窗体上只有一个textbox控件，没有其它控件。你的工程上有其它控件。感觉是焦点问题。
你将文本框的hideselection设为false。
这是一个只读属性，只能在属性窗口中设。



 

[ 本帖最后由 lianyicq 于 2015-1-29 16:32 编辑 ]