[Résolu] Aide sur fonctions IconListBox de KGF

res% = dll_call2("RemoveItemFromIconListBox",ILB%,index%)

res% = dll_call2("GetAllItemsFromIconListBox",ILB%,handle(memo%))

res%=DLL_CALL3("ChangeElementextInIconListBox",LB_ssp%,lcbssp%,ADR(nmedssp$))

' test_Minibug_IconListBox.bas

label UserEvent
label suppr, liste

dim res%, no%, PAN_menu%(10), for%(10), t$, CONT_ssp%, IL%, chemin$, LB_ssp%
dim txt$, i%, cnt%, index%, LP%, WP%

DIM u$ ,MEM_ssp%

for%(0) = 0
no% = 17
chemin$ = ""
cnt% = 0
full_space 0

' dll_on "D:\PROGRAMMATION\GPP2\dll\KGF.dll"
dll_on "KGF.dll"

on_user_event UserEvent

      PANEL no% : HIDE no% : PARENT no%,FOR%(0) : TOP no%,52 : COLOR no%,60,60,60 : show no%                                                : ' Création du MENU OBJETS dans la fenetre principale
        WIDTH no%,WIDTH_CLIENT(FOR%(0))-1 : HEIGHT no%,HEIGHT_CLIENT(FOR%(0))-52 : PAN_menu%(3)=no% : no%=no%+1                  : '    

        CONTAINER no% : PARENT no%,PAN_menu%(3) : LEFT no%,8 : TOP no%,2 : WIDTH no%,257 : HEIGHT no%,572                        : ' Positionnement des CONTAINERS d'affichage des SSP
            COLOR no%,60,60,60 : FONT_COLOR no%,230,230,230  : FONT_NAME no%,"Segoe UI" : FONT_SIZE no%,12                         : ' Mep couleur, police, taille et titre des CONTAINERs
            t$="  "+t$+"  "  : CAPTION no%,t$ : CONT_ssp%=no% : no%=no%+1
            
         ' MEMO des sous-programmes                                                                                                                      
         MEMO no% : HEIGHT no%,200 : HIDE no% : MEM_ssp%=no% : no%=no%+1        : '

                                                                      
            '  --------------- CREATION DE L'IMAGELIST ---------------
            IL%=DLL_CALL2("CreateImageList",15,15)                                                                                : '
'            t$=chemin$+"\ilb\gestssp.ilb"                                                                                          : '                                  
            t$=chemin$+"KGF.ilb"                                                                                          : '                                  
            res%=DLL_CALL2("LoadImageList",IL%,adr(t$))                                                                            : '
 
            ' --------------- CREATION DU LISTBOX (liste des sous-programmes) ----------------
            res%=dll_call1("SetMainFormHandle",handle(0))                                                                          : '
            LB_ssp%=DLL_CALL3("CreateIconListBox",handle(CONT_ssp%),IL%,1)                                                        : '
                                                                                                                              
            t$="Segoe UI" : res%=DLL_CALL3("SetDefaultFontOfIconListBox",LB_ssp%,ADR(t$),10)                                      : '
            res%=DLL_CALL5("LocateIconListBox",LB_ssp%,5,20,(WIDTH_CLIENT(CONT_ssp%)-10),(HEIGHT_CLIENT(CONT_ssp%)-25))            : '
            res%=dll_call2("OptionsForIconListBox",LB_ssp%,1)                                                                      : '
            res%=dll_call2("SetMultiSelectionLimitOfIconListBox",LB_ssp%,9)                                                        : '
            res%=dll_call4("SetColorsForIconListBox",LB_ssp%,HEX("909090"),HEX("000000"),HEX("000090"))
          
for i%=1 to 20          
  txt$ = "aaaaaaaaaaaaaaaa "+str$(i%)          
  res% = dll_call6("AddItemToIconListBox",LB_ssp%,adr(txt$),17, 17, 18, 0)
next i%
            
button 117 : top 117,10 : left 117,100 : caption 117,"Supprimer" : on_click 117,suppr      

memo 118 : parent 118,PAN_menu%(3) : top 118,10 : left 118,300 : width 118,300 : height 118,600 : bar_both 118
button 119 : top 119,10 : left 119,400 : caption 119,"Liste" : on_click 119,liste

end      

suppr:
  res% = dll_call2("RemoveItemFromIconListBox",LB_ssp%,3)
  message "ress%="+str$(res%)
  return
  
liste:
  res% = dll_call2("GetAllItemsFromIconListBox",LB_ssp%,handle(118))
  return

UserEvent:
  LP% = user_event_lparam
  WP% = user_event_wparam
  if bin_and(WP%,hex("FF000000"))=hex("0A000000")  : ' un IconListBox ?
    if bin_and(WP%,hex("00FF0000"))<>hex("00010000") then return  : ' pas un clic dans une ligne ?
    if LP%<>LB_ssp% then return                                                          : ' pas le ICB attendu ?
    index% =  bin_and(WP%,hex("0000FFFF"))
  
    off_user_event        : ' *********** désactiver les USER_EVENT en cas de longs traitements                
                
                
         u$=string$(50," ")                                                                                                        : '       Initialisation de la variable contenant le nom du sous-programme
         res%=dll_call3("GetItemOfIconListBox",LB_ssp%,index%,adr(u$))                                                             : '
         u$=trim$(u$)                                                                                                              : '       Retrait des espaces
         res%=dll_call2("GetAllSelectedItemsFromIconListBox",LB_ssp%,handle(MEM_ssp%))                                             : '
         t$=LEFT$(ITEM_READ$(MEM_ssp%,COUNT(MEM_ssp%)),1)                                                                          : '       On récupére le fichier du MEMO_ssp

         IF t$="-"                                                                                                                 : '       Si la chaine est vide (-)          
            res%=dll_call5("SetItemFontColorOfIconListBox",LB_ssp%,index%,0,0,0)                                                   : '
            res%=dll_call6("SetItemFontAttributesOfIconListBox",LB_ssp%,index%,0,0,0,0)                                            : '          On désactive l'affichage dans la liste
            res%=dll_call6("ChangeElementIconInIconListBox",LB_ssp%,index%,2,0,0,0)                                                : '  
         ELSE        
            res%=dll_call5("SetItemFontColorOfIconListBox",LB_ssp%,index%,255,255,255)                                             : '
            res%=dll_call6("SetItemFontAttributesOfIconListBox",LB_ssp%,index%,1,0,0,0)                                            : '          On active l'affichage dans la liste
            res%=dll_call6("ChangeElementIconInIconListBox",LB_ssp%,index%,1,0,0,0)  
        END_IF
  
  
  
  
    cnt% = cnt% + 1
    caption 0,"Click no "+str$(cnt%)+" dans ligne "+str$(index%)+"  "+t$                                : ' récupérer le numéro de la ligne cliquée
  
    res% = dll_call1("UnblockIconListBox",LB_ssp%)
    on_user_event UserEvent    : ' *********** résactiver les USER_EVENT
  
    return
  end_if
  return