Selection ListBox ?

Version imprimable

Selection ListBox ?

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:

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:

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.

10/06/2009, 20h26
Sankasssss

hello,
si on regarde l'aide msdn sur listbox.selectedIndex
on peut voir la note :

Citation:

Pour un ListBox standard, vous pouvez utiliser cette propriété pour déterminer l'index de l'élément qui est sélectionné dans ListBox. Si la propriété SelectionMode de ListBox a la valeur SelectionMode.MultiSimple ou SelectionMode.MultiExtended (ce qui indique un ListBox à sélections multiples) et plusieurs éléments sont sélectionnés dans la liste, cette propriété peut retourner n'index d'un élément sélectionné quelconque.

Pour récupérer une collection contenant les index de tous les éléments sélectionnés dans une ListBox à sélection multiple, utilisez la propriété SelectedIndices. Si vous souhaitez obtenir l'élément actuellement sélectionné dans ListBox, utilisez la propriété SelectedItem. De plus, vous pouvez utiliser la propriété SelectedItems pour obtenir tous les éléments sélectionnés dans un ListBox à sélections multiples.

je suppose qu'il entendait par :
cette propriété peut retourner n'index
:fleche: cette propriété ne peut retourner l'index
(vive les traduction msdn :roll:)

donc regarde ton SelectionMode...

sinon, tu peux utiliser comme dit dans l'aide msdn, SelectedIndices ;)
15/06/2009, 09h18
Le Mad

Merci pour ta réponse, j'ai parcouru l'exécution en mode Debug, et il s'avère que la listBox est rechargé dans le block page_load avant même de rentrer dans le code de mon bouton...
Reste à savoir si cela vient de là ?

Merci et à bientôt.