Text Box

[gamechampionx]

How do you eliminate the right-click menu in a textbox? What's the property name?

 

[missinglinq]

I assume you're trying to modify someone else's code, since it takes some effort to
actually code a popup menu (right click menu). The steps to doing this are:

1) Place the menu as a top level menu item as you normally would using Menu Editor
(say it's called mnuPopupMenu)

2) Place submenus items under this, as usual

3) In the editor, de-select mnuPopupMenu's Visible property (Makes the menu "disappear" from menu bar

4) Use code similar to this over the text box, command button, etc where you want the popup menu to appear

Private Sub cmdPrint_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuPopup ' right mouse click
End Sub

So basically I guess need to look for code similar to above in the mouse_down event sub for the text box.

Hope this helps "It's got to be the going,
not the getting there that's good!"
-Harry Chapin

 

[JohnYingling]

The right-click pop-up is automatic on a textbox. No work at all.

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[JohnYingling]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnvbpj00/html/gsfig1.asp

Private Declare Function LockWindowUpdate _
Lib "User32" (ByVal hwndLock As Long) As Long

Private Sub txtInput_MouseDown_
(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
'a disabled TB won't display system context menu
If Button = vbRightButton Then
'avoid disabled control's gray text
LockWindowUpdate txtInput.hWnd
txtInput.Enabled = False
'allow txtInput to become disabled
DoEvents
PopupMenu mnuPUText
txtInput.Enabled = True
LockWindowUpdate 0&
End If
End Sub

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[JohnYingling]

Well, SO much for that. I tried out the code and the PopupMenu mnuPUText
causes a compile error. If you comment it out, it still does not work.

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[JohnYingling]

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q191670

A better explanation. The code will work (not tested) if you cause your own Pop-up (could be an invisible item) to be displayed.

I give up.

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[strongm]

This is one of those questions that looks like it should have an easy answer. However, the only way I know how to do this effectively is to subclass the textbox. Here's an example of the necessary code

http://www.vbcity.com/forums/faq.asp?fid=7#TID1389

 

[gamechampionx]

I'm drying to not have a menu pop up in a text box when the user right-clicks. Can you turn that of with a property or a simple line of code?

 

[gamechampionx]

I'm drying to not have a menu pop up in a text box when the user right-clicks. Can you turn that off with a property or a simple line of code?

 

[JohnYingling]

There is no such property or simple line of code unfortunately.

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[rjasper]

Do you mean popup menu or drop down box?

 

[gamechampionx]

I mean simple text box. When you right-click on it, a menu with undo and clipboard functions comes up. I don't want it to.

 

[missinglinq]

What exactly are you doing? For a popup menu to popup, someone has to write the code for it to; who wrote the code? Where did you get the code? We've all been going around and around for 3 or 4 days now, without really knowing exactly what you (or we) are trying to deal with.

Barring that, I'll try to help once again. Go into your code and look for the procedure below (replace "txtYourTextBox" with the name of the text box you're dealing with, and the "PopupMenu" and "mnuPopup" will be whatever names appear to the right of "If Button = 2"; they'll also be in the Menu Editor):

Sub txtYourTextBox_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuPopup ' right mouse click
End Sub

When you find this procedure, simply delete it. This should eliminate the popup menu.

If you really want to clean up, go into the Menu editor and delete all items from "mnuPopup" down> "It's got to be the going,
not the getting there that's good!"
-Harry Chapin

 

[strongm]

Untrue missinglinq. Right-click on a textbox will pop up a system menu with no coding whatsoever, which is what we have been discussing.