entre haiir et air... je demande pas du tout un truc sans reproche mais au moins qu'on reconnaisse le mot... si tu vois ce que je veux dire.
Et puis bon, on est là pour mettre du code, pas du francais

Tu vas me dire que tu relis tes msg à chaque fois?Aranoth a écrit :brossden: je ne prétend pas avoir une orthographe parfaite, loin de là, ce que je demande c'est d'avoir des mots qui ressemblent au moins à quelque chose...
entre haiir et air... je demande pas du tout un truc sans reproche mais au moins qu'on reconnaisse le mot... si tu vois ce que je veux dire.
Nous sommes d'accordAranoth a écrit : Et puis bon, on est là pour mettre du code, pas du francais
oui, ca évite les "grosses" fautesTu vas me dire que tu relis tes msg à chaque fois?
oui mais y'avait le h devant...Et puis bon... 2 i... à qui ça n'arrive pas?
Et bien le code peut donc reprendre sa placeNous sommes d'accord Smile.
pourquoi ?Arf, je parais stupide...
Code : Tout sélectionner
If OpenWindow(0, 0, 0, 350, 300, #PB_Window_SizeGadget | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered, "Essais") And CreateGadgetList(WindowID(0)) And CreateStatusBar(0, WindowID(0))
StatusBarText(0, 0, "Prèt")
PanelGadget(0, 50, 50, 250, 170)
AddGadgetItem(0, -1, "Onglet 1")
;ButtonGadget(1, 10, 30, 120, 20, "Bouton dans onglet 1")
ButtonGadget(1, 20, 10, 120, 20, "Bouton dans onglet 1")
AddGadgetItem(0, -1, "Onglet 2")
;ButtonGadget(2, 10, 30, 120, 20, "Bouton dans onglet2")
ButtonGadget(2, 0, 0, 120, 20, "Bouton dans onglet2")
CloseGadgetList()
SetGadgetState(0, 0)
ButtonGadget(3, 10,250, 70, 20, "Quitter")
Repeat
AddKeyboardShortcut(0, #PB_Shortcut_Control | #PB_Shortcut_Tab, 0)
AddKeyboardShortcut(0, #PB_Shortcut_Control | #PB_Shortcut_Shift | #PB_Shortcut_Tab, 1)
Select WaitWindowEvent()
Case #PB_EventGadget
Select EventGadgetID()
Case 0
StatusBarText(0, 0, GetGadgetText(0) + " est actif")
Case 1
MessageRequester("", "Clique sur bouton dans onglet 1.")
Case 2
MessageRequester("", "Clique sur bouton dans onglet 2.")
Case 3
quit = 1
EndSelect
Case #PB_EventMenu
Select EventMenuID()
Case 0
If GetGadgetState(0) = CountGadgetItems(0)
SetGadgetState(0, 0)
Else
SetGadgetState(0, GetGadgetState(0) + 1)
EndIf
Case 1
If GetGadgetState(0) = 0
SetGadgetState(0, CountGadgetItems(0))
Else
SetGadgetState(0, GetGadgetState(0) - 1)
EndIf
EndSelect
Case #PB_EventCloseWindow
quit = 1
EndSelect
Delay(20)
Until quit = 1
EndIf
End