Récupération d'index d'un combobox

Version imprimable

18/08/2010, 17h11
yonpo

Récupération d'index d'un combobox

Salut à tous,

Je relie un champ d'une table d'un dataset à un combobox avec la propriété datasource.

Lorsque je saisie du texte dans le combobox, il me filtre le contenu en fonction de ce que je tape et je sélectionne un élément dans la liste déroulante.
Ensuite, si je veux récupérer l'index, j'utilise la propriété SelectedIndex.
Bon, ok et alors?

Maintenant, si je saisie et que je ne sélectionne pas un élément dans la liste et que je récupère l'index, j'obtiens -1. Ok, normal.

J'en arrive à ma question: Comment connaitre l'index de l'élément tapé (et non sélectionné) si et seulement si ce dernier est dans la liste?

Merci d'avance pour vos lumières...

Si l'élément est affiché alors tu pourrais surement faire:
Code:

1 2 3 4 5 6 If MonCB.Items.Contains(MonCB.Text) Then return MonCB.Items.IndexOf(MonCB.Text) End If

18/08/2010, 17h49
yonpo
Le test suivant à pour résultat "faux". Pourtant l'élément tapé est bien dans la liste.
Code:

1 2 3 4 5 If MonCB.Items.Contains(MonCB.Text) Then End If
18/08/2010, 17h57
ctxnop
Citation:
Envoyé par yonpo

Le test suivant à pour résultat "faux". Pourtant l'élément tapé est bien dans la liste.

Code:

1 2 3 4 If MonCB.Items.Contains(MonCB.Text) Then End If
En fait l'idée est bonne mais tu l'a copiée sans réfléchir.
Tu as dis que ton combobox est bindé à une DataTable, en conséquence les éléments contenus dans MonCB.Items ne sont pas de simple strings, ce sont des DataRow ou DataRowView.
La comparaison est donc un peu plus complexe que cela.
18/08/2010, 18h07
yonpo

Citation:

Envoyé par ctxnop

La comparaison est donc un peu plus complexe que cela.

Ok merci.
Mais comment je pourrais procéder? En travaillant sur la table?

Bon j'ai finalement trouvé avec la piste des DataRow que tu m'as donnée ctxnop.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
'Vérifie si le titre saisi est dans la table Livres
            Dim strTitreExiste As String = "Titre='" & cbxTitre.Text.Replace("'", "''") & "'"
            Dim objDtrResult() As DataRow
 
            objDtrResult = objDts.Tables("Livres").Select(strTitreExiste)
 
            Dim objDttResult As New DataTable
            objDttResult.Columns.Add("Titre")
 
            Dim intTitre As Integer
            For Each r As DataRow In objDtrResult
 
                objDttResult.ImportRow(r) 'sert pour plus tard...
                intTitre = objDts.Tables("Livres").Rows.IndexOf(r)
 
            Next

Je fais une recherche du titre dans la table et je récupère l'index de l'élément tapé dans le combobox.
Merci encore pour votre aide.

bonsoir,
si la liste du combo est chargée au préalable,
ce code donne l'index cherché :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
        Dim resultIndex As Integer = -1
 
        ' Call the FindStringExact method to find the first 
        ' occurrence in the list.
 
        resultIndex = ComboBox1.FindStringExact(ComboBox1.Text)
        If resultIndex <> -1 Then
            MessageBox.Show(CStr(resultIndex))
        End If
 
 
    End Sub

mais ça me semble trop simple.

Code:

1
2
3
4
5
6
7
8
9
10
 
          Dim resultIndex As Integer = -1
 
        ' Call the FindStringExact method to find the first 
        ' occurrence in the list.
 
        resultIndex = ComboBox1.FindStringExact(ComboBox1.Text)
        If resultIndex <> -1 Then
            MessageBox.Show(CStr(resultIndex))
        End If

Ne fonctionne pas dans ce cas car, comme dit plus haut, mon combobox est bindé à une DataTable.