Bonjour à tous,

J'ai un souci avec une ListBox dans laquelle je ne détecte pas l'élément sélectionné.
Voici comment celle-ci est remplie :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 Try
                Dim cnx As SqlConnection = New SqlConnection("database=" & db & ";server=" & srv & ";User ID=" & usr & ";pwd=" & psw)
                cnx.Open()
                Dim req As String = "SELECT CatID, CatLibelle" & portail & ", CatOrder "
                req = req & "FROM  RefCat "
                req = req & "ORDER BY CatOrder"
                Dim cmd As SqlCommand = New SqlCommand(req, cnx)
                Dim reader As SqlDataReader = cmd.ExecuteReader
 
                While reader.Read()
                    lstOrderCategory.Items.Add(reader.GetString(1))
                End While
Je souhaite y accéder comme ceci, à l'aide d'un bouton haut/bas, mais comme aucun élément sélectionné n'est détecté, je n'aboutie pas au résultat souhaité.
A cause de cela, j'ai donc décidé de parcourir la ListBox à l'aide d'une boucle, résultat nul aussi.
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
21
22
23
Private Sub UpDown_Click(ByVal sender As Object, ByVal e As ImageClickEventArgs) Handles cmdDown.Click, cmdUp.Click
            For i As Integer = lstOrderCategory.Items.Count - 1 To 0 Step -1
                If lstOrderCategory.Items.Item(i).Selected Then lblErrorCat.Text = lstOrderCategory.Items.Item(i).Value
            Next
            'Try
            '    If lstOrderCategory.SelectedIndex <> -1 Then
 
            '        Dim objTab As TabInfo = CType(arrPortalTabs(lstOrderCategory.SelectedIndex), TabInfo)
            '        Dim objTabs As New TabController
 
            '        Select Case CType(sender, ImageButton).CommandName
            '            Case "up"
            '                'updateCategoryOrder(Me.lstOrderCategory.SelectedValue, -1)
            '            Case "down"
            '                'updateCategoryOrder(Me.lstOrderCategory.SelectedValue, 1)
            '        End Select
            '        Me.lblErrorOrderCat.Text = "Order changed !"
            '    End If
 
            'Catch exc As Exception
            '    ProcessModuleLoadException(Me, exc)
            'End Try
        End Sub
Quelqu'un aurait-il déjà eu un problème de ce genre ?

A bientôt.