Change mouse right click function

[dendic]

I'm using code to move labels around on a form with the left click and mouse move events. When I change the code to recognize a right click instead of the left all works fine but I get dialog boxes for copying, pasting, deleteing etc. Is there a way to disable the dialog boxes with code so I can use the right click and left click just as clicking events.

 

[Frink]

Hallo,

I think there was a Property called Shortcut Menu, or something. Not sure if it was on the form or control, probably form.

Have a play with that...

- Frink

 

[ck1999]

have you tried application.displayalerts = false

ck1999

 

[TheAceMan1]

How are ya dendic . . .

[blue]Frink[/blue] is on target with reference to shortcut menu's, and there all over the place! However they can all be disabled from appearing.

In a module in the modules, copy/paste the following routine:

[blue]Public Function EnableShortcuts(Show As Boolean)
   Dim CBar As Object
      
   For Each CBar In CommandBars
      If InStr(1, CBar.Name, "Form View") Then CBar.Enabled = Show
   Next

End Function[/blue]

Next, in the [blue]On Open[/blue] event of the form, copy/paste the following line:

[blue]   Call EnableShortcuts(False)[/blue]

Finally in the [blue]On Close[/blue] event of the form:

[blue]   Call EnableShortcuts(True)[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886