Listbox - sélectionnez la première valeur par défaut

Bonjour
Je crée un controle Listbox dans un Panel par code. Tout se passe bien excepté que je n'arrive pas à sélectionner à la création la première donnée de la Liste.
Je pensais que c'était en mettant
.SelectedIndex = 0 ,
ou alors
.SelectedIndex = .Items(0).
mais j'obtiens toujours le message comme quoi le 0 n'est pas un index valide
Je débute en VB.Net et j'espère que qn pourra m'aider.

Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim Param_List As New ListBox If ControlWidth = 9999 Then XWidth = 200 Else XWidth = ControlWidth With Param_List .Name = ControlName .Size = New Size(288, XWidth) .Location = New Size(0, param_axe) .DataSource = New BindingSource(_DataSourceRPT_Declaration._Listdata, Nothing) .DisplayMember = "TXT" .ValueMember = "ID" 'marche pas .SelectedIndex = .Items(0) param_axe = param_axe + XWidth + 10 End With   AddHandler Param_List.SelectedIndexChanged, AddressOf SomethingChanged Panel_Param.Controls.Add(Param_List)

---

Bonjour,

Cela veut dire que tu ne récupères pas bien les données de ta source ".DataSource = New BindingSource(_DataSourceRPT_Declaration._Listdata, Nothing)" et donc que tu n'ajoutes aucun élément à ta listbox donc l'index est nothing.
Vois tu apparaitre tes données si tu ne fais pas la sélection ?


Sincèrement

Bonjour Elthorn
Ma liste contient bien toutes les données espérées, l'utilisateur sélectionne un élément qui déclenche la création d'un rapport envoyant la sélection comme paramètre. Ceci fonctionne quand l'utilisateur clique, par contre à la création de la listbox, j'aurai aimé que le premier élément soit sélectionné par défaut pour que le paramètre ne soit pas vide au démarrage. D'où mon idée de mettre la sélection au premier élément.

Bonsoir,

Peut-être que ceci t'aidera :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'... ... With Param_List .Name = ControlName .Size = New Size(288, XWidth) .Location = New Size(0, param_axe)   '... ... .SelectedIndex = 0   '... ...

---

:D

Bonjour Phil
Merci mais j'ai déjà essayé cela, j'obtiens le message d'erreur comme quoi la valeur de l'index ne peut pas être 0

Bonjour,

Bien sûr que oui, les index peuvent être 0, les Items sont indicés de 0 à .Count-1.
Par contre, l'indice ne peut être inférieur à 0, ceci se produit lorsqu'on tente l'opération et que la Liste est vide.

Sans doute dois-tu attendre que la List soit remplie avant d'exécuter l'instruction .SelectedIndex = 0, et peut-être même dois-tu tester If List.Items.Count > 0 Then ....

Bonne journée,

Bonjour tscrosh

Essaie de placer ta sélection à un autre endroit, après avoir fait apparaitre ta listbox par exemple :

Code:

---

1 2 3

Panel_Param.Controls.Add(Param_List) Param_List.SelectedIndex = 0

---

Et pour debugger tu peux placer quelques msgbox à différents endroits pour vérifier si ta listbox contient quelque chose avec
Msgbox (Param_List.items.count.tostring).
Sincèrement

Le souci c'est que ma ListBox est placée par programmation elle aura un autre nom en fonction d'une sélection antérieure.
Param_List n'existe que pendant la création de cette ListBox . LaListBox aura le nom communiqué via la variable : ControlName
En WINDEV on peut utiliser des indirections que je ne retrouve pas en VB.NET style {ControlName}.SelectedIndex = 0
J'ai essayé de repasser à travers les controles

Code:

---

1 2 3 4 5 6 7 8 9

Dim ctrl As Control For Each ctrl In Panel_Param.Controls If (ctrl.GetType() Is GetType(ListBox)) Then Dim LBp As ListBox = CType(ctrl, ListBox) LBp.SelectedIndex = 0   End If Next

---

Mais là aussi la liste item LBp est vide alors que sous ctrl je peux voir mes éléments.

Je précise que mon problème se pose à la création de la Listbox, après son utilisation On_click fonctionne correctement.
Là je me pose la question que fait le programme quand on ouvre le contrôle côté WATCH ... cela doit bien provoquer qch.

J'ai essayé de faire des ctrl.refresh et LBp.refresh ... mais rien ...


Là je viens de voir qch d'étrange, en prenant le code

Code:

---

1 2 3 4 5 6 7

Dim ctrl As Control For Each ctrl In Panel_Param.Controls If (ctrl.GetType() Is GetType(ListBox)) Then Dim LBp As ListBox = CType(ctrl, ListBox) End If Next

---

Je parcours bien mon Panel_Param et je tombe bien sur ma Listbox
Du côté WATCH je vois si je mets un BREAK au niveau du END IF:
Pièce jointe 521838
Pièce jointe 521840

et donc là ma listebox n'a pas de valeur sélectionnée.

Je refais la même manip sauf que dans WATCH j'ouvre ctrl et je fais F11
Pièce jointe 521846

Hop tout se rempli
Pièce jointe 521850

Que ce passe -t-il comme événement lorsqu'on "ouvre" un contrôle dans la WATCH ... ?

Là, je ne peux plus guère prospecter ... :(

Je me dis que tu devrais trouver un événement qui s'active lors de l'ajout d'un Item dans la ListBox. Dans un telle procédure événementielle, le code Sender.SelectedIndex = 0 ferait merveille ! Mais je ne vois pas quel événement utiliser pour cela.

Par contre, quel que soit le nom du ListBox, il y a bien un endroit dans le code où "on sait" qu'une ligne est ajoutée. De plus, après l'ajout d'un Item, on est sûr que le ListBox n'est pas vide. Le SelectedIndex devrait pouvoir programmé à cet endroit.

Par ailleurs, mais, tu le sais certainement, on utilise les références en VB (à défaut de pointeur).
Ainsi, par exemple, j'écris ici une procédure qui exécute .SelectedIndex = 0 pour n'importe quelle ListBox qu'on veut bien lui passer, quel que soit le nom de ce ListBox :

Code:

---

1 2 3 4 5 6

Private Sub SelectIndexZero(ByRef LB As ListBox) If LB.Items.Count > 0 Then LB..SelectedIndex = 0 End If End Sub

---

Et n'importe où dans ton code tu peux faire ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

' ... ... ... Dim UneListe As ListBox UneList.Name = "Blabla" ' ... ... ... SelectIndexZero(UneListe) ' Place la sélection sur 0 dans la ListBox UneListe ' ... ... ... SelectIndexZero(UneAutreListe) ' Place la sélection sur 0 dans la ListBox UneAutreListe   SelectIndexZero(ListBox1) ' et aussi dans ListBox1   ' ... ... ...

---

Finalement, je crois que cette procédure devrait t'aider, mais je pense aussi qu'il convient de l'appeler là où s'ajoutent les Items.

:D