Page 1 sur 1

AddKeyboardShortcut

Publié : lun. 24/nov./2008 22:24
par nash
AddKeyboardShortcut(#Nash,#PB_Shortcut_Return,6)
avec la valeur 6 cette commande fonctionne chez vous?
pas chez moi?
vista pb 4.30

Publié : mer. 26/nov./2008 19:24
par comtois
faudrait montrer un code.

mea culpa (ça fonctionne)erreur de valeur dans eventmenu

Publié : jeu. 27/nov./2008 8:55
par nash
;{;enum
Enumeration
#Gadget_555
EndEnumeration
;}

;{;declare
Declare proc_ouverture_initiale_u()
i.l
;}
proc_ouverture_initiale_u()


;{;repeat
Repeat
event=WaitWindowEvent()
Select event
Case #PB_Event_Menu
If EventMenu()=1
MessageRequester("","hello 1",0)
EndIf
If EventMenu()=2
MessageRequester("","hello 2",0)
EndIf
If EventMenu()=3
MessageRequester("","hello 3",0)
EndIf
If EventMenu()=4
MessageRequester("","hello 4",0)
EndIf
If EventMenu()=5
MessageRequester("","hello 5",0)
EndIf
If EventMenu()=6
MessageRequester("","hello 6",0)
EndIf
EndSelect
Until event=#PB_Event_CloseWindow
;}


Procedure proc_ouverture_initiale_u()
If OpenWindow(0,300,100,600,300,"bb", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
StringGadget(#Gadget_555,360,110,130,20,"",#PB_Text_Center)
SetActiveGadget(#Gadget_555)
AddKeyboardShortcut(0,#PB_Shortcut_Return,6)
EndIf

EndProcedure

Publié : jeu. 27/nov./2008 11:00
par comtois
Ton code fonctionne, j'ai bien un hello 6 qui apparait quand j'appuie sur la touche return (avec la PB 4.30 beta 4, mais sans doute aussi avec toutes les versions de PB)