Assigning menu shortcuts on runtime

[Harddisk]

Is that possible?

As I have a few popupmenus that are using the same shortcut, but appears on different forms. I get an error when assigning the same shortcut in the Menu Editor. So the only way is to do it during run-time.

Thanks

Harddisk

[spetnik]

It is, using the API.
Ask Megatron how.

[knochenfish]

hi harddisk
i tested it and received no error!
is THAT possible?

cheers

[spetnik]

u know u can delete your post...

[knochenfish]

thanks aron, i´m new to that thing.

[Harddisk]

hmmm......API again

[Matthew Gates]

To make an event happen when a key is pressed, use the KeyPress or KeyDown events.

Private Sub Form_KeyPress(KeyAscii As Integer)
    'if KeyAscii = ... Then...
    MsgBox KeyAscii & Chr$(9) & Chr(KeyAscii)
End Sub

Private Sub Form_Load()
    Me.KeyPreview = True
End Sub

And to have a menu and make it look like it has that big gap between, as a regular assigned shortcut would, use Chr$(9).

MyMenu.Caption = "Help" & Chr$(9) & "F1"

[Harddisk]

MyMenu.Caption = "Help" & Chr$(9) & "F1"

Thanks Gates, that's just what I need.

Harddisk

[spetnik]

this can also b done via api. i have the code on a book&cd, but its at work. if u pm me w/ ur email, i can email u the code

[Harddisk]

Originally posted by spetnik
this can also b done via api. i have the code on a book&cd, but its at work. if u pm me w/ ur email, i can email u the code

Thanks for the offer.
I think Matthew's suggestion is enough, it works great.

Just wanted to show the Shortcut for the user so that they know of the shortcut exists. It doesnt really work when the shortcuts are applied to context menu.

Harddisk