AddKeyboardShortcut

Archive.
nash
Messages : 42
Inscription : ven. 07/nov./2008 18:02

AddKeyboardShortcut

Message par nash »

AddKeyboardShortcut(#Nash,#PB_Shortcut_Return,6)
avec la valeur 6 cette commande fonctionne chez vous?
pas chez moi?
vista pb 4.30
comtois
Messages : 5171
Inscription : mer. 21/janv./2004 17:48
Contact :

Message par comtois »

faudrait montrer un code.
http://purebasic.developpez.com/
Je ne réponds à aucune question technique en PV, utilisez le forum, il est fait pour ça, et la réponse peut profiter à tous.
nash
Messages : 42
Inscription : ven. 07/nov./2008 18:02

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

Message 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
comtois
Messages : 5171
Inscription : mer. 21/janv./2004 17:48
Contact :

Message 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)
http://purebasic.developpez.com/
Je ne réponds à aucune question technique en PV, utilisez le forum, il est fait pour ça, et la réponse peut profiter à tous.
Répondre