Discussion :

[NicoNGRI]

Hello,

J'utilise cette classe pour alimenter un gridview :

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
24
25
26
27
28
29
30
31
32
33
34
Imports Microsoft.VisualBasic
Imports System.Collections.Generic
Public Class Destinataires
 
    Public Shared Function Liste()
        Dim ListeEmails As New List(Of Email)
 
        If System.Web.HttpContext.Current.Session.Item("emails") <> "" Then
            Dim emails As String = System.Web.HttpContext.Current.Session.Item("emails")
 
            For Each s As String In Split(emails, ",")
                ListeEmails.Add(New Email(s))
            Next
        End If
 
        Return ListeEmails
    End Function
 
    Public Class Email
        Sub New(ByVal _email As String)
            Me.email = _email
        End Sub
 
        Private _email As String
        Public Property email() As String
            Get
                Return _email
            End Get
            Set(ByVal value As String)
                _email = value
            End Set
        End Property
    End Class
End Class

ça fonctionne très bien, mais je souhaite tester si une adresse est déjà présente dans la liste.

Lorsque je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Destinataires.Liste().Contains(TextBoxDestinataires.Text.ToString)

j'ai une erreur qui m'indique que je peux pas convertir un String en Destinataires.Email

Je ne sais pas quoi faire ...

Merci d'avance

[bouvda]

Bonjour,

il est normal que tu ais une erreur car la méthode Contains permet de vérifier si la liste contient déjà l'instance d'Email et non un Email ayant la même valeur pour l'attribut _email.

Pour tester cela, il faut faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim existant As Boolean
Dim emailCourant As Email
existant = False
For Each emailCourant in Destinataires.Liste()
   If emailCourant.email() = TextBoxDestinataires.Text Then
      existant = True
   End If
Next emailCourant
If existant = False Then
   'ajouter l'email à la liste
End If

[neptune]

C'est normal, tu compare un objet email avec un objet string. C'est comme si pour comparer le nom d'un constructeur, tu comparais une voiture et un camion.

[NicoNGRI]

Merci Beaucoup

ps : Voilà ce qui ce passe quand on pompe un bout de code sans tout comprendre