Discussion :

[DonF]

Salut !
J'ais une listbox que je peux remplir de 2 façon:
1- soit en y ajoutant un élément d'une autre listbox;
2- soit en saisissant les informations à ajouter dans un textbox.

Pour le premier cas, pas de soucis. Mais pour le deuxième, j'utilise le code suivant sans succès.

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
Private Sub Button_Ajout2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Ajout2.Click
        Dim i As Object
 
        If (Me.TextBox_Nom.Text <> "") And (Me.TextBox_DestNum.Text <> "") And (Me.TextBox_DestSoc.Text <> "") Then
            i = New ListBox.ObjectCollection(Me.ListBox_Fax_Destinataire)
            i.item("nom") = Me.TextBox_Nom.Text
            i.item("fax") = Me.TextBox_DestNum.Text
            i.item("société") = Me.TextBox_DestSoc.Text
 
            If Not Me.ListBox_Destinataire.Items.Contains(i) Then
                Me.ListBox_Destinataire.Items.Add(i)
 
                If Me.ListBox_Destinataire.Items.Count > 0 Then
                    Me.Button_DestSuppr.Enabled = True
                End If
            Else
                MsgBox("Elément déjà présent dans la liste!")
            End If
        Else
            MsgBox("Veuillez renseigner les champs  SVP!")
        End If
    End Sub

Que dois-je modifier???

[Invité]

pourquoi tu déclare ton i en Object alors c'est un ListBox.ObjectCollection?
C'est la seul chose qui pourrai lui posé probleme. Vérifie qu'il passe bien sur la ligne contenant ton "add"

[DonF]

En fait, j'ais vu que la méthode pour ajouter un élément à une listbox prenait un argument de type objet. Alors...
Mais en fait, je veux ajouter des enregistrements à ma liste sans succès. Là je viens d'essayer d'ajouter directement un datarow mais ma listbox affiche system.data.datarow