PureBasic

Chris a écrit : Le problème de ce code, telle qu'il est, c'est qu'il faut connaître le nombre de colonnes de la liste.
On peut facilement remédier à ça en modifiant la procédure comme ça:

Code : Tout sélectionner

Procedure FindStringLIG(searchString1.s)
  hHeader = SendMessage_(GadgetID(#ListIcon_P1), #LVM_GETHEADER,0,0)
  NbColumns = SendMessage_(hHeader,#HDM_GETITEMCOUNT,0,0)
  
  For Colonne = 0 To NbColumns -1 
    For Ligne = 0 To CountGadgetItems(#ListIcon_P1) 
      If GetGadgetItemText(#ListIcon_P1,Ligne,Colonne) = searchString1 
        SetGadgetItemState(#ListIcon_P1,Ligne,#PB_ListIcon_Selected) 
        SendMessage_(GadgetID(#ListIcon_P1),#LVM_ENSUREVISIBLE,Ligne,#True) 
        Break 2 
      EndIf 
    Next 
  Next 
EndProcedure

Resultat.l = GetColumnsNumber(#Gadget)

Denis a écrit :Ma librairie MoreListiconGadget a une commande qui retourne le nombre de colonnes

Code : Tout sélectionner

Resultat.l = GetColumnsNumber(#Gadget)

Chris a écrit :

Denis a écrit :Ma librairie MoreListiconGadget a une commande qui retourne le nombre de colonnes

C'est bien, les librairies, mais ça n'aide pas à comprendre comment ça marche.