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.

Sommaire →Gadgets →ComboBox Gadget (2)

Comment changer la couleur d'un ComboBoxGadget ? (sous classement windows)
Comment limiter le nombre d'éléments affichés d'un ComboBoxGadget ?

Comment changer la couleur d'un ComboBoxGadget ? (sous classement windows)

Valable uniquement pour Windows (utilisation de l'API).
Ce code permet de changer la couleur d'un ComboBoxGadget.

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
 
Global oldcombproc, BackBrush 
BackBrush = CreateSolidBrush_(#Yellow) 
 
Procedure ComboCallBack(hWnd, uMsg, wParam, lParam) 
  Select uMsg 
    Case #WM_CTLCOLOREDIT, #WM_CTLCOLORLISTBOX 
      SetBkMode_(wParam,#TRANSPARENT) 
      SetTextColor_(wParam,#Red) 
      SetBkColor_(wParam,#Blue) 
      result = BackBrush 
    Default 
      result = CallWindowProc_(oldcombproc, hWnd, uMsg, wParam, lParam ) 
  EndSelect 
  
  ProcedureReturn result 
  
EndProcedure 
 
 
OpenWindow( 0, 200,400,200,100, "Colorisation et Callback",#PB_Window_SystemMenu) 
 
ComboBoxGadget( 1, 10, 10, 180, 20, #PB_ComboBox_Editable ) 
  AddGadgetItem(1, -1, "123" ) 
  AddGadgetItem(1, -1, "456" ) 
  AddGadgetItem(1, -1, "789" ) 
  SetGadgetState(1,0) 
oldcombproc = SetWindowLong_(GadgetID(1), #GWL_WNDPROC, @ComboCallBack()) 
 
Repeat 
Until WaitWindowEvent() = #PB_Event_CloseWindow 
End

Mis à jour le 12 février 2009

Comment limiter le nombre d'éléments affichés d'un ComboBoxGadget ?

Cette ligne permet de redimensionner la taille de la fenêtre qui affiche les éléments d'un ComboBoxGadget :
MoveWindow_(GadgetID(0), GadgetX(0), GadgetY(0), GadgetWidth(0), 100, #True)
Modifiez la valeur 100, pour afficher plus ou moins d'éléments.

Pour Windows uniquement.

Code purebasic :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
 
If OpenWindow(0, 0, 0, 200, 200, "ComboBox", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
  ComboBoxGadget(0, 5, 5, 190, #PB_Ignore, #CBS_NOINTEGRALHEIGHT) 
  For i = 1 To 10 
    AddGadgetItem(0, -1, "élément " + Str(i)) 
  Next 
  SetGadgetState(0, 0) 
  MoveWindow_(GadgetID(0), GadgetX(0), GadgetY(0), GadgetWidth(0), 100, #True) 
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow 
EndIf : End

Mis à jour le 21 novembre 2009 comtois

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

Titre de la question

Réponse à la question

Liens sous la question

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 © 2024 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.