selection dans une zone de liste

Question

Bonjour a tous,
je cherche le moyen de selectionner une ligne de ma zone de liste dont le premier élément est connu :
La liste contient pour chaque ligne :"idPersonne" et "nom"
et j'aimerai selectionner la ligne qui a pour idPersonne 8 par exemple.
Je n'ai pas encore trouvé comment faire 
merci pour vos suggestions

cs_ITALIA · Answer

c koi comme controle....ListBox...ListView.....???

It@li@

ldx · Answer

LDX

s'il s'agit dune listbox, tu peux effectuer une recherche "exacte" ou approximative comme suit :

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'*** Constantes permettant de rechercher un élément dans une Liste ***
Private Const LB_FINDSTRING = &H18F
Private Const LB_FINDSTRINGEXACT = &H1A2

puis dans ta proc ...

dim NumItemListe as long

NumItemListe = (SendMessage(Nom de ta Listbox.hwnd, LB_FINDSTRINGEXACT, -1, ByVal Chaîne contenant ce que tu recherches))

NumItemListe te donnera si...

- tu as choisi LB_FINDSTRING : le N° d'item de la première occurence trouvée

- tu as choisi LB_FINDSTRINGEXACT : Le N° Item "exact" de l'objet recherché

Si tu veux faire la même chose avec un combobox il te faut les constantes suivantes :

Public Const CB_FINDSTRING = &H14C
Public Const CB_FINDSTRINGEXACT = &H158
...

(va voir dans WIN32API, les constantes LB_ et CB_ ...) tu auras plein d'autres possibilités (ajout, suppression, ...)

Portes toi bien

crenaud76 · Answer

Sur une listbox, on peut faire cela :

Dim i as long
With ListBox1
  For i = 0 to .ListCount-1
    If .list(i) like "8 *" Then 
      .ListIndex = i
      Exit for
    End If
  Next
End with

Je part du postulat que ton IdPersonne et le Nom sont séparé par un espace
Christophe R.

Selection dans une zone de liste

3 réponses

Discussions similaires