[listbox] Selection d'item

Bonjour à tous,
Dans mon appli, j'ai une listbox comportant des noms de formes géométriques (cercle, rectangle,...). J'ai un groupbox correspondant à chaque forme. Tous les groupbox sont à la même position et invisibles.
Je voudrais qu'en fonction de l'item sélectionné, le group box correspondant s'affiche.

Pour l'instant j'ai fait:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub objects_lb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles objects_lb.SelectedIndexChanged   If objects_lb.SelectedItem = "Cercle 1" Then o_disk_01_gb.Visible = True Else : o_disk_01_gb.Visible = False   End If If objects_lb.SelectedItem = "Rectangle 1" Then o_rect_01_gb.Visible = True Else : o_rect_01_gb.Visible = False   End If If objects_lb.SelectedItem = "Triangle 1" Then o_triangle_01_gb.Visible = True Else : o_triangle_01_gb.Visible = False End If   ...   End Sub

---

Tout fonctionnait très bien jusqu'au jour où j'ai ajouté "Option Strict On".
Maintenant, il me demande de remplacer = par is mais du coup ça ne marche plus (le groupbox ne s'affiche pas).
Quelles modifications dois-je faire?
Sinon, n'y aurait-il pas une solution plus simple? avec select case par exemple?(j'ai essayé mais en vain...)

Merci d'avance pour votre aide

Tu as essayé en testant SelectedItem.ToString() plutot que simplement SelectedItem ?
Tu pourrais aussi utiliser SelectedText en fonction de ce qui est contenu dans ta liste.

Bonjour.

Pour simplifier le code tu peux affecter le test d'égalité au boolean :
exemple :

Code:

---

1 2 3 4 5 6 7

Dim s As String = "Test2" Dim b1 As Boolean Dim b2 As Boolean   b1 = s = "Test1" b2 = s = "Test2"

---

Dans ce cas b2 = true et b1 = false.

Cdt.

SaumonAgile, merci! en effet ça marche mieux

olsimare, je ne comprends pas vraiment ce que tu veux dire. Peux-tu m'expliquer comment ça pourrait simplifier mon code?

Merci

Citation:

---

Envoyé par jontleman

olsimare, je ne comprends pas vraiment ce que tu veux dire.

---

ça veut dire ça :

Code:

---

o_disk_01_gb.Visible = (objects_lb.SelectedItem = "Cercle 1")

---

ok, d'accord, yes, génial, excellent !!!
ça marche à merveille

Merci à vous deux

Jontleman