Comunidad Gambas-es

Hola, estoy intentando hacer un Menu por codigo, el cual se crea en una clase, que llaman los formularios al abrir y que añaden este menu al formulario que la instancia. Todo funciona menos las teclas de acceso a las opciones tipo <ctrl+Home>. Es la propiedad shortcut de los menus, pero no se como se representa cada tecla.

Alguien habra creado un menu asi y sabra como se debe codificar, Verdad?.

Agradecido de antemano, un abrazo a todos.

Capa, muchas gracias por acordarte del cumple. Realmente casi nadie no mi cercano, se acuerda por las fechas que son. Cuando cumples el 31 de Diciembre, todo el mundo te felicita la navidad y el año nuevo, pero el cumple.....

De lo de los Shortcuts no puedo ayudarte, pero quería felicitarte aunque fuera con retraso!

Salu2, crack, y felicidades de nuevo!

Me respondo, para que sirva a alguien.
He buscado en los fuentes de Gambas2, y en el diseñador de menus esta este codigo:

PRIVATE SUB LoadShortcut()

DIM iInd AS Integer

cmbShortcut.Add("(None)")

FOR iInd = Asc("A") TO Asc("Z")
cmbShortcut.Add(Chr$(iInd))
NEXT

FOR iInd = 1 TO 12
cmbShortcut.Add("F" & CStr(iInd))
NEXT

cmbShortcut.Add("Backspace")
cmbShortcut.Add("Del")
cmbShortcut.Add("Down")
cmbShortcut.Add("End")
cmbShortcut.Add("Enter")
cmbShortcut.Add("Esc")
cmbShortcut.Add("Home")
cmbShortcut.Add("Ins")
cmbShortcut.Add("Left")
cmbShortCut.Add("Pause")
cmbShortcut.Add("PgDown")
cmbShortcut.Add("PgUp")
cmbShortcut.Add("Return")
cmbShortcut.Add("Space")
cmbShortcut.Add("Right")
cmbShortcut.Add("Up")

END

Lo puedes encontrar en
/usr/src/gambas2-2.17.0/app/src/gambas2/FMenu.class

Tirando del hilo y haciendo pruebas, es tan sencillo como

PUBLIC SUB Form_Open()
DIM op AS Menu
DIM subop1 AS Menu
DIM subop2 AS Menu
DIM subop3 AS Menu
DIM subsep AS Menu
ME.Center
ME.Title = "Formulario de prueba para MENU"
op = NEW Menu(ME)
op.Caption = "&Navegacion"
subop1 = NEW Menu(op) AS "abrir"
subop1.Text = "&Abrir"
subop1.Shortcut = "F6"
subop2 = NEW Menu(op) AS "editar"
subop2.Text = "&Editar"
subop2.Shortcut = "F2"
subsep = NEW Menu(op) AS "sep"
subsep.Text = ""
subop3 = NEW Menu(op) AS "salir"
subop3.Text = "&Cerrar aplicacion"
subop3.Shortcut = "F3"
Label1.Caption = "No se ha pulsado todavia ninguna opcion del menu"

END

Si queremos usar combinaciones de teclas hay que usar 'Alt+ , 'Shift+ ,'Ctrl+ , y la tecla que queramos sin espacios entre el + y la tecla elegida.
En lugar que el anterior codigo encontramos la clase CMenu.class con este codigo:

PUBLIC SUB SetShortcut(sShortcut AS String)

DO

IF UCase(Left$(sShortcut, 5)) = "CTRL+" THEN
Ctrl = TRUE
sShortcut = Mid$(sShortcut, 6)
CONTINUE
ENDIF

IF UCase(Left$(sShortcut, 6)) = "SHIFT+" THEN
Shift = TRUE
sShortcut = Mid$(sShortcut, 7)
CONTINUE
ENDIF

IF UCase(Left$(sShortcut, 4)) = "ALT+" THEN
Alt = TRUE
sShortcut = Mid$(sShortcut, 5)
CONTINUE
ENDIF

Shortcut = sShortcut
RETURN

LOOP

END

No he probado todas las posibles teclas que se puedan ocurrir, no obstante es cuestion de acertar con el String adecuado. Las mas normales ya veis que son faciles.

Un saludo para todos.