Re: Textbox context menu on a label control

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

Thanx! Option 1 was the easiest for this exercise.

"Randy Birch" <rgb_removethis@xxxxxxxx> wrote in message
news:uvy8e0HEGHA.1584@xxxxxxxxxxxxxxxxxxxxxxx
> Since VB labels don't have an hwnd, a context menu (if available) couldn't
> access the text.
>
> You have two alternatives:
>
> 1) use a text box directly, set to borderless, locked and with the
> backcolour the same colour as the form? It will look like a label but the
> user will be able to select/copy the text.
>
> 2) create / implement your own context menu. Design a hidden menu on the
> form (mnuWhatever in this demo with one item - "Copy Text", menu name
> mnuEdit, Index=0) and add code:
>
>
> Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, x As
> Single, Y As Single)
>
> If Button = vbRightButton Then
> PopupMenu mnuWhatever
> End If
>
> End Sub
>
>
> Private Sub mnuEdit_Click(Index As Integer)
>
> Select Case Index
>
> Case 0 'copy
> Clipboard.Clear
> Clipboard.SetText Label1.Caption
>
> 'any other menu Case options here
>
> Case Else
>
> End Select
>
> End Sub
>
>
>
> --
>
> Randy Birch
> MS MVP Visual Basic
> http://vbnet.mvps.org/
>
> Please reply to the newsgroups so all can participate.
>
>
>
>
> "Bryan Dickerson" <txprphan@xxxxxxxxxxxx> wrote in message
> news:%23cIRsbHEGHA.3868@xxxxxxxxxxxxxxxxxxxxxxx
> : I've Google-grouped for this and I found what looks to be an answer, but
> it
> : was in Spanish which is not my native tongue or my forte'...
> :
> : Can someone point me in the right direction to find out how to add the
> : textbox context menu items to the label control. What I'm really
> looking
> : for is the "Copy" item.
> :
> : TIA!
> :
> : --
> : TFWBWY...A
> :
> :
>


.

Relevant Pages

  • Re: Textbox context menu on a label control
    ... Since VB labels don't have an hwnd, a context menu couldn't ... Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, x As ... textbox context menu items to the label control. ...
    (microsoft.public.vb.general.discussion)
  • Re: Dragging an object within container
    ... I want the user to be able to drag a label object around inside a ... has an HWnd, including forms. ... Private Const WM_NCLBUTTONDOWN = &HA1 ... Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As ...
    (comp.lang.basic.visual.misc)
  • RE: Control Tip Text Question
    ... --You didnt try the frame control..No problems. ... ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) ... Private Sub CheckBox470_MouseMove(ByVal Button As Integer, ... i only want the label to be seen if mouse is over the checkbox. ...
    (microsoft.public.excel.programming)
  • Re: Floating Box for Prices
    ... (to trigger your floating window for example). ... Label control indicates when the "mouse down for a specified period" has ... Private tDown As Single, counting As Boolean ... Private Sub Picture1_MouseDown(Button As Integer, ...
    (microsoft.public.vb.general.discussion)
  • Re: A HELP BOX
    ... lblDescriptive is the name of the descriptive label placed near the textbox. ... Private Sub UserForm_Initialize ... 'Show the decriptive label on entry to the text field. ... name, CtrlTab twice, your Middle Initial, CtrlTab once, Last Name""" ...
    (microsoft.public.word.vba.general)