FAQ PureBasicConsultez toutes les FAQ

Nombre d'auteurs : 7, nombre de questions : 68, dernière mise à jour : 3 janvier 2013  Ajouter une question

 

Bienvenue dans la F.A.Q. PureBasic !

Celle-ci va tenter de répondre aux questions les plus fréquemment posées sur le langage PureBasic et tous ses outils de programmation. Si elle n'a pas pour vocation de répondre à toutes les interrogations possibles, elle reste une bonne base de connaissances sur le PureBasic, et ne demande qu'à être enrichie par vos expériences personnelles.

Bien entendu, malgré toute l'attention qui a pu être portée à cette F.A.Q., des erreurs ont toujours pu s'y glisser. Prenez donc toutes les précautions qui s'imposent avant d'essayer un exemple.

Nous vous souhaitons une bonne lecture ! Et n'oubliez pas qu'en cas de problème, vous pourrez toujours poser votre question sur le forum PureBasic !

L'équipe PureBasic de Developpez.


SommaireMenu (1)
précédent sommaire suivant
 

tout le secret réside dans l'utilisation de cette API windows :
ModifyMenu_(hPop, 5, #MF_BYCOMMAND | #MF_MENUBARBREAK, 5, @"menuitem5")

Code purebasic : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
;/============================================================= 
;/ Code      : Display Popup Menu Items in 2 Columns 
;/ Author    : Sparkie 
;/ Start Date: 03/11/06 
;/ PB Version: PB 4.00 (Beta 6) 
;/ OS Support: Windows 98/NT/ME/2000/XP/Server 2003 
;/============================================================== 
 
If OpenWindow(0, 200, 200, 200, 120, "2 Column Popup Menu", #PB_Window_SystemMenu) And CreateGadgetList(WindowID(0)) 
  TextGadget(0, 10, 10, 180, 25, "", #PB_Text_Center) 
  hPop = CreatePopupMenu(0) 
  MenuItem(1, "menuitem1") 
  MenuItem(2, "menuitem2") 
  MenuItem(3, "menuitem3") 
  MenuItem(4, "menuitem4") 
  MenuItem(5, "menuitem5") 
  MenuItem(6, "menuitem6") 
  MenuItem(7, "menuitem7") 
  MenuItem(8, "menuitem8") 
  
  ;...This starts menuitem5 in a new column 
  ;...#MF_MENUBREAK     = no seperator bar 
  ;...#MF_MENUBARBREAK  = seperator bar 
  ModifyMenu_(hPop, 5, #MF_BYCOMMAND | #MF_MENUBARBREAK, 5, @"menuitem5") 
  
  Repeat 
    Select WaitWindowEvent() 
      Case #WM_RBUTTONDOWN 
        DisplayPopupMenu(0, WindowID(0)) 
      Case #PB_Event_Menu 
        Select EventMenu() 
          Case 1 : SetGadgetText(0, "menuitem1 was selected") 
          Case 2 : SetGadgetText(0, "menuitem2 was selected") 
          Case 3 : SetGadgetText(0, "menuitem3 was selected") 
          Case 4 : SetGadgetText(0, "menuitem4 was selected") 
          Case 5 : SetGadgetText(0, "menuitem5 was selected") 
          Case 6 : SetGadgetText(0, "menuitem6 was selected") 
          Case 7 : SetGadgetText(0, "menuitem7 was selected") 
          Case 8 : SetGadgetText(0, "menuitem8 was selected") 
        EndSelect 
      Case #PB_Event_CloseWindow 
        quit = 1 
    EndSelect 
  Until quit = 1 
EndIf 
End

Mis à jour le 3 mars 2011

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2018 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

 
Responsable bénévole de la rubrique PureBasic : comtois -