[VB.Net 2005]Ajouter un élément à une listbox
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:
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???:?
