Discussion :

[jontleman]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SaumonAgile]

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.

[olsimare]

Bonjour.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jontleman]

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

[SaumonAgile]

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

ça veut dire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jontleman]

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

Merci à vous deux

Jontleman