Progi1984 a écrit :Le psychopathe a écrit :Je te dis ça dès que je peux tester
Sinon non pour la listicon, selectionner suffit pas, car cela ne descent pas ou monte pas le scroll ba sur l'élément sélectionné xD
Peux tu me filer un code pour cette histoire de scrollbar qui amrcerait sous Windows ?
Voilà c'est ma procedure de recherche
Un annuaire sur informatique dans la caserne
Code : Tout sélectionner
Procedure recherche2()
For ListiconElement = 0 To CountGadgetItems(#ListIcon_0)-1
fonction$ = GetGadgetItemText(#ListIcon_0, ListiconElement , 0)
grade$ = GetGadgetItemText(#ListIcon_0, ListiconElement , 1)
nom$ = GetGadgetItemText(#ListIcon_0, ListiconElement , 2)
numeroPoste$ = GetGadgetItemText(#ListIcon_0, ListiconElement , 3)
telperso$ = GetGadgetItemText(#ListIcon_0, ListiconElement , 4)
chaine1$ = StringField(GetGadgetItemText(#Listview_recherche, GetGadgetState(#Listview_recherche)), 1, ":")
chaine2$ = StringField(GetGadgetItemText(#Listview_recherche, GetGadgetState(#Listview_recherche)), 2, ":")
chaine3$ = StringField(GetGadgetItemText(#Listview_recherche, GetGadgetState(#Listview_recherche)), 3, ":")
chaine4$ = StringField(GetGadgetItemText(#Listview_recherche, GetGadgetState(#Listview_recherche)), 4, ":")
chaine5$ = StringField(GetGadgetItemText(#Listview_recherche, GetGadgetState(#Listview_recherche)), 5, ":")
If fonction$ = chaine1$
If grade$ = chaine2$
If nom$ = chaine3$
If numeroPoste$ = chaine4$
If telperso$ = chaine5$
SendMessage_(ListIconID, #LVM_ENSUREVISIBLE, ListiconElement, #Null)
SetGadgetState(#ListIcon_0, ListiconElement)
SetActiveGadget(#ListIcon_0)
EndIf
EndIf
EndIf
EndIf
EndIf
Next ListiconElement
EndProcedure
J'espère que le code est assez claire mais bon j'explique vite fais :
Donc on fait toutes la listicon, colonne par colonne pour trouver exactement ce que l'on veut. Ensuite l'api windows va bouger les scroll bar en automatique pour que l'on puisse voir l'élément et on va activer la selection pour vraiment le voir
++
Je cherche à faire la même chose sous linux, vue que la Gendarmerie migre tous les PC sous linux...