How to use a menu shortcut?

[D.J.Peters]

Any idea how i can use a menu shortcut like:

[CTRL] + [c] = copy
[CTRL] + 
 = paste
[CTRL] + [x] = cut

must i use SendMessage() to modify the menu shortcut ?

thank you for any infos

Joshy

' MenuTest01.gb
Form frmMain
InitMainMenu

Do
  Sleep
Loop  Until IsNothing(Me)

' Menu
Enum menuFile=1000, menuFileNew, menuFileLoad, menuFileSave, menuFileSaveAs, menuFileExit
Enum menuEdit=1010, menuEditCut, menuEditCopy, menuEditPaste
Enum menuHelp=1020, menuHelpAbout

Function AddMenuEntry(Optional MenuID As Integer = -1, MenuItem As String, Optional IsLast As Boolean = False) As String
  Dim mentry As String
  If MenuID > -1 Then
    mentry = "#" + Trim(Str(MenuID)) + "#"
  End If
  mentry = mentry + MenuItem + #10
  If IsLast Then
    mentry = mentry + #10
  End If
  Return mentry
End Function

Sub InitMainMenu
  Dim mm(99) As String, m As String
  m = AddMenuEntry(menuFile       , "&File")
  m += AddMenuEntry(menuFileNew   , "&New")
  m += AddMenuEntry( , "-")
  m += AddMenuEntry(menuFileLoad  , "&Load")
  m += AddMenuEntry(menuFileSave  , "&Save")
  m += AddMenuEntry(menuFileSaveAs, "Save &as ..")
  m += AddMenuEntry( , "-")
  m += AddMenuEntry(menuFileExit  , "E&xit", True)
  
  m += AddMenuEntry(menuEdit      , "&Edit")
  m += AddMenuEntry(menuEditCopy  , "Copy")
  m += AddMenuEntry(menuEditPaste , "Paste")
  m += AddMenuEntry( , "-")
  m += AddMenuEntry(menuEditCut   , "Cut", True)
  
  m += AddMenuEntry(menuHelp      , "|Help")
  m += AddMenuEntry(menuHelpAbout , "About", True)
  Array mm() = m
  Menu mm()
End Sub


Sub frmMain_MenuEvent(Idx%)
  Dim mItem As MenuItem
  Set mItem = Me.MenuItem(Idx%)
  frmMain.Caption = "MenuEvent " & mItem.Text
  Select Case Idx%
  Case menuFileNew
  Case menuFileLoad
  Case menuFileSave
  Case menuFileSaveAs
  Case menuFileExit   : End
    
  Case menuEditCopy
  Case menuEditPaste
  Case menuEditCut
    
  Case menuHelpAbout
  End Select
End Sub

Sub frmMain_MenuOver(Idx%)
  Debug.Print "MenuOver(" & Idx% & ")"
End Sub

[SjoukeHamstra]

Setting a hotkey for a menu-item or toolbar button, or any other application command, is not a menubar option. A hotkey for a specific window (Ocx) is to be handled in the _KeyDown event sub of the window concerned.
So, you can indicate a hotkey by adding it to the menuitem text, but you must handle it separately.

Sjouke

[D.J.Peters]

Ok i will try it.

Thank you

Joshy