Page 1 sur 1
je rencontre un probleme avdec mon code sur le menu ...
Publié : lun. 26/juil./2004 16:59
par jbernard13
bonjour
voici mon premier code :
Code : Tout sélectionner
If OpenWindow(0,0,0,400,250,#pb_window_systemmenu|#pb_window_minimizegadget|#pb_window_maximizegadget|#pb_window_screencentered,"Fenetre zero")
If CreateMenu(0,WindowID())
MenuTitle("Fichier")
MenuItem(1,"Open" + Chr(9)+"ctrl+o")
MenuItem(2,"Save" + Chr(9)+"ctrl+s")
MenuItem(3,"Close"+ Chr(9)+"ctrl+c")
EndIf
Repeat
EventID.l = WaitWindowEvent()
Select EventID
Case #PB_EventMenu
Select EventMenuID()
Case 3
End
Case #WM_CLOSE
Quit=1
EndSelect
Until Quit =1
EndIf
et voila j'arrive pas a activer l'option close de mon menu
j'ai un message d'erreur a cette endroit :
qui peux m'expliquer comment ecrire le code pour les actions d'un menu
merci
jbernard13
Publié : lun. 26/juil./2004 17:05
par nico
Code : Tout sélectionner
If OpenWindow(0,0,0,400,250,#pb_window_systemmenu|#pb_window_minimizegadget|#pb_window_maximizegadget|#pb_window_screencentered,"Fenetre zero")
If CreateMenu(0,WindowID())
MenuTitle("Fichier")
MenuItem(1,"Open" + Chr(9)+"ctrl+o")
MenuItem(2,"Save" + Chr(9)+"ctrl+s")
MenuItem(3,"Close"+ Chr(9)+"ctrl+c")
EndIf
Repeat
EventID.l = WaitWindowEvent()
Select EventID
Case #PB_EventMenu
Select EventMenuID()
Case 3
Quit=1
EndSelect
Case #WM_CLOSE
Quit=1
EndSelect
Until Quit =1
EndIf
Publié : lun. 26/juil./2004 17:17
par jbernard13
merci nico
mais coment actionner le raccourci de mon menu
exemple l'option close a le raccourci ctrl+C
merci
jbernard
Publié : lun. 26/juil./2004 17:26
par nico
Code : Tout sélectionner
If OpenWindow(0,0,0,400,250,#pb_window_systemmenu|#pb_window_minimizegadget|#pb_window_maximizegadget|#pb_window_screencentered,"Fenetre zero")
If CreateMenu(0,WindowID())
MenuTitle("Fichier")
MenuItem(1,"Open" + Chr(9)+"ctrl+o")
MenuItem(2,"Save" + Chr(9)+"ctrl+s")
MenuItem(3,"Close"+ Chr(9)+"ctrl+c")
EndIf
AddKeyboardShortcut(0, #PB_Shortcut_Control | #PB_ShortCut_C, 12)
Repeat
EventID.l = WaitWindowEvent()
Select EventID
Case #PB_EventMenu
Select EventMenuID()
Case 3
Quit=1
Case 12
quit=1
EndSelect
Case #WM_CLOSE
Quit=1
EndSelect
Until Quit =1
EndIf
Publié : lun. 26/juil./2004 17:31
par nico
Petit détail sur les menus concernant le signe "&":
MenuItem(3,"&Close"+ Chr(9)+"ctrl+c")
Lorsque tu mets ce signe devant une lettre, pas forcément la première, cela a pour effet de surligner cette lettre si tu fais ALT F (F première lettre du menu fichier ici), le menu fichier s'ouvre et l'on voit que le C de "close" est surligné.
Publié : lun. 26/juil./2004 20:05
par Le Soldat Inconnu
on peut également simplifier en donnant le même identifiant à la touche que celui du menu, ça évite de faire l'action en double
Code : Tout sélectionner
If OpenWindow(0,0,0,400,250,#pb_window_systemmenu|#pb_window_minimizegadget|#pb_window_maximizegadget|#pb_window_screencentered,"Fenetre zero")
If CreateMenu(0,WindowID())
MenuTitle("Fichier")
MenuItem(1,"Open" + Chr(9)+"ctrl+o")
MenuItem(2,"Save" + Chr(9)+"ctrl+s")
MenuItem(3,"Close"+ Chr(9)+"ctrl+c")
EndIf
AddKeyboardShortcut(0, #PB_Shortcut_Control | #PB_ShortCut_C, 3)
Repeat
EventID.l = WaitWindowEvent()
Select EventID
Case #PB_EventMenu
Select EventMenuID()
Case 3
Quit=1
EndSelect
Case #WM_CLOSE
Quit=1
EndSelect
Until Quit =1
EndIf