Right Mouse Click in TextBox brings up strange menu

Question

0.00/5 (No votes)

See more:

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?

Posted 15-Jan-15 5:42am

KKW_acd

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CHill60 · Answer 1 · 2015-01-15T05:49:00

Solution 1

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

Posted 15-Jan-15 5:49am

CHill60

KKW_acd · Answer 2 · 2015-01-15T06:45:00

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!