Publié : mer. 21/juil./2004 21:57
merci nico j'a ete voir
mais je comprend rien
personne ne veux m'aider
zeus
mais je comprend rien
personne ne veux m'aider

zeus
Forums PureBasic - Français
http://forums.purebasic.com/french/
Merci nico, au début j'avais mis 'FRED" sur la casquette, mais bon ça faisai un peu Kitch !nico a écrit : Au passage, excellent Julien
à 22 h 50, Nico a écrit :Posté le: Mer Juil 21, 2004 10:50 pm Sujet du message:
--------------------------------------------------------------------------------
Une personne du Forum alias Le Soldat Inconnu à écrit une rubrique un peu plus haut dans la rubrique débutant:
Announcement: [Tuto] Premier pas avec la programmation
Essayes les différents codes d'exemples postés, si tu éprouves des difficultés, n'hésites pas à me dire où tu bloques et je t'aiderais
7 minutes, pas une de plus, pas une de moins.à 22 h57, zeus a écrit :Posté le: Mer Juil 21, 2004 10:57 pm Sujet du message:
--------------------------------------------------------------------------------
merci nico j'a ete voir
mais je comprend rien
personne ne veux m'aide
Code : Tout sélectionner
If OpenWindow(0, 100, 200, 195, 260, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "PureBasic Window")
If CreateMenu(0, WindowID(0))
MenuTitle("Fichier")
MenuItem( 1, "Ouvrir")
MenuItem( 2, "Quitter")
MenuTitle("Edition")
MenuItem( 3, "Couper")
MenuItem( 4, "Copier")
MenuItem(5, "Coller")
MenuTitle("?")
MenuItem(6, "A propos du Logiciel")
EndIf
Repeat
EventID.l = WaitWindowEvent()
Select EventID
Case #PB_EventMenu
Select EventMenuID()
Case 1
MessageRequester("Info","Vous avez sélectionné le menu Ouvrir!")
Case 2
resul=MessageRequester("Info","Voulez-vous vraiment quitter?",#PB_MessageRequester_YesNo)
If resul=6
quit=1
EndIf
EndSelect
Case #WM_CLOSE
quit=1
EndSelect
Until Quit = 1
EndIf