鼠标右键单击TextBox会弹出奇怪的菜单 [英] Right Mouse Click in TextBox brings up strange menu
问题描述
我正在使用鼠标右键单击以启动弹出菜单,但当我在鼠标右键单击TextBox时,会出现一个菜单:
撤消(灰色) )
剪切(灰色)
复制(灰色)
粘贴
删除(灰色)
全选
从右到左阅读订单
显示Unicode控制字符(灰色)
插入Unicode控制字符> (灰色)
打开IME
Reconversion(灰色)
点击Esc键后,弹出窗口菜单出现。
我不知道它来自何处或如何阻止它。
任何想法?
这是VB6中TextBox的默认弹出菜单。
没有直接的方法来压制它但是这个文章 [ ^ ]显示了解决方法
谢谢CHill60,
我能够做到这一点:
模块:
公共声明函数SendMessage Lib user32别名SendMessageA(_
ByVal hwnd As Long,_
ByVal wMsg As Long,_
ByVal wParam As Long, _
ByRef l Param As Any)As
Public Const WM_RBUTTONDOWN As Long =&H204
Public bolRightClicked As Boolean
< br $>
在我的表格中:
私有子Text1_MouseDown(索引为整数,按钮为整数,Shift为整数,x为单,y为单)
Select Case Button
Case 1'Left
Case 2'Right
bolRightClicked = False
SendMessage Me.hwnd,WM_RBUTTONDOWN,0,0&
PopupMenu mnuPopUp2
案例4'中间
结束选择
结束次级
感谢您向正确的方向推!
I'm using the Right Mouse click to launch a popup menu, but when I Right Mouse click in the TextBox, a menu appears:
Undo (Grayed)
Cut (Grayed)
Copy (Grayed)
Paste
Delete (Grayed)
Select All
Right to left Reading order
Show Unicode control characters (Grayed)
Insert Unicode control character> (Grayed)
Open IME
Reconversion (Grayed)
After hitting the Esc key, then my popup menu appears.
I have no idea where this is coming from or how to stop it.
Any ideas?
It is the default pop-up menu for a TextBox in VB6.
There is no direct way to suppress it but this article[^] shows a way around it
Thanks CHill60,
I was able to do this:
In a Module:
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByRef lParam As Any) As Long
Public Const WM_RBUTTONDOWN As Long = &H204
Public bolRightClicked As Boolean
In my Form:
Private Sub Text1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case Button
Case 1 'Left
Case 2 'Right
bolRightClicked = False
SendMessage Me.hwnd, WM_RBUTTONDOWN, 0, 0&
PopupMenu mnuPopUp2
Case 4 'Middle
End Select
End Sub
Thanks for your "Push" in the right direction!
这篇关于鼠标右键单击TextBox会弹出奇怪的菜单的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!