Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating right-click menus
I have an excel worksheet with multiple text boxes. I want to create a
right-click menu that will allow me to select "copy" or "paste", just like you can do in MS Office apps. My idea (as I am not an accomplished VB programmer) is to create a list box that is called on right mouse button click. Where do I go from there? Here is what I have so far... Private Sub TextBox11_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then Me.Label10.Visible = True ElseIf Button = 2 Then Me.ListBox1.Visible = True Else: End If End Sub Private Sub TextBox11_MouseUp(ByVal fmButtonLeft As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Me.Label10.Visible = False End Sub Where...Label10 is just a tooltip, and TextBox1 is my box containing "Copy" and "Paste". Also, can I make the listbox position variable based on cursor position? Thanks for any help. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating right-click menus
I am also considering using a form instead of the listbox. The form would
have two control buttons. One would use the Clipboard.SetText function and the other would use the Clipboard.GetText function. Does this sound viable? "HappyInUtah" wrote: I have an excel worksheet with multiple text boxes. I want to create a right-click menu that will allow me to select "copy" or "paste", just like you can do in MS Office apps. My idea (as I am not an accomplished VB programmer) is to create a list box that is called on right mouse button click. Where do I go from there? Here is what I have so far... Private Sub TextBox11_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then Me.Label10.Visible = True ElseIf Button = 2 Then Me.ListBox1.Visible = True Else: End If End Sub Private Sub TextBox11_MouseUp(ByVal fmButtonLeft As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Me.Label10.Visible = False End Sub Where...Label10 is just a tooltip, and TextBox1 is my box containing "Copy" and "Paste". Also, can I make the listbox position variable based on cursor position? Thanks for any help. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Right Click Pop Up Menus Disabled | Excel Discussion (Misc queries) | |||
Right click menus | Excel Discussion (Misc queries) | |||
Right-Click Menus - Customizing | Excel Discussion (Misc queries) | |||
Right-click menus | Excel Worksheet Functions | |||
customizable right click menus | Excel Worksheet Functions |