VB.NET: WithEvents ne fonctionne pas

Question

je les classes suivantes:

Public Class Email 

    Private Shared ReadOnly EMAIL_REGEX = "\b[a-zA-Z]+[a-zA-Z0-9._+-]+@" + _ 
             "[a-zA-Z0-9.-]+\.[a-zA-Z]{2,3}\b" 
    Private _email As String 

    Public Event emailCreated() 

    ' Declare empty constructor private so the only way to create an object 
    ' is using new (email) 
    Private Sub New() 

    End Sub 

    Sub New(ByVal email As String) 
     If Regex.IsMatch(email, EMAIL_REGEX) Then 
      _email = email 
      RaiseEvent emailCreated() 
     Else 
      Throw New Exception("Email Not Valid") 
     End If 
    End Sub 

    ReadOnly Property Email() As String 
     Get 
      Return _email 
     End Get 
    End Property 

End Class 

Et

Public Class EmailForm 

    WithEvents myEmail As Email 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Try 
      myEmail = New Email(TextBox1.Text) 
     Catch ex As Exception 
      MessageBox.Show("Exception: " & ex.Message) 
     End Try 
    End Sub 

    Public Sub emailCreated() Handles myEmail.emailCreated 
     MessageBox.Show("New Email Created") 
    End Sub 

End Class 

Si créer un e-mail erronée permet de dire "email" l'exception est correctement mis en mémoire cache et un message est montré cependant je saisis un email valide l'événement n'est pas levé, l'objet est créé mais aucun message n'est montré et aucune erreur ou exception n'est levée je suspecte qu'il a quelque chose faire avec using "myemail = nouvel email (email)" mais j'ai vu des exemples d'utilisation de nouveau avec withevents sans problème. J'aprécier toute entrée sur ce problème

merci

Edit: pour référence future - VB.NET - problem with member's event handling

Answer 1

Vous ne devez pas valider les adresses e-mail à l'aide des expressions régulières.

Vous devez utiliser la classe à la place MailAddress:

Sub New(ByVal email As String) 
    New MailAddress(email).ToString() 
End Sub 

La classe MailAddress utilise un analyseur BNF pour valider l'adresse et jetteront un FormatException si l'adresse est invalide.

Votre adresse regex rejettera les adresses valides comme admin@mta.info.

---

Pour répondre à votre question, l'événement est soulevée devant le champ WithEvents a une valeur.

Voici ce qui se passe lorsque votre code est exécuté:

1. New Email(TextBox1.Text) - L'objet Email est créé, et le constructeur déclenche l'événement.
   A ce stade, l'événement n'a aucun gestionnaire, donc l'événement ne fait rien.
2. myEmail = ... Le nouvel objet Email est affecté au champ myEmail et le gestionnaire d'événements est ajouté.

Il n'est pas possible de contourner ce problème, car vous ne pouvez pas obtenir une référence à un objet avant la fin de son constructeur.

Au lieu de cela, vous devriez vous débarrasser de l'événement et rendre le champ myEmail dans une propriété avec votre code dans le setter de propriété

Answer 2

Première supposition: un email est créé avant les événements sont reliés à elle. Vous déclenchez l'événement avant même que vous ne soyez sorti du constructeur, avant même que VB ait la possibilité d'ajouter des gestionnaires d'événements, de sorte que l'événement ne sera jamais vu.

Vue agrandie. Y a-t-il une raison particulière pour laquelle vous voulez qu'un événement emailCreated soit déclenché? Il semble que l'événement ne sera jamais traité en dehors de votre propre classe, même si vous finissez par le faire fonctionner, donc l'utilisation d'événements ajoute de la complexité dont vous n'avez pas besoin ou même que vous ne voulez pas.