EventHandler reinvente Nothing.

Question

Bonjour, 

L'appel de
      Sub ItemClick(ByVal Sender As Object, ByVal e As System.EventArgs) ' Handles FontMenu.DropDownItemClicked
            FontSelected = Sender.Text
            toto()
        End Sub
  déclaré
Public ItemHandler As EventHandler = AddressOf ItemClick

Remplace les fontes de ma liste par Nothing.
Friend FontListing As New List(Of Font)

et comme Nothing n'existe pas chez les fontes,

(J'ai du le redefinir)
  'Police = Nothing
    Function Anarchy() As Font
        Dim tampon As New Label
        Return tampon.Font
    End Function

Evidemment, ca plante.
Je voudrais éviter d'utiliser l'encapsulation pour protéger les données contre les erreurs de librairie. C'est pas normal.

Que faire ?

CoDubai · Answer

Je précise

Point d'arrêt sur End Sub 

Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load      
        MainMenu.Items.Clear()
        MainMenu.Items.Add(Fontes.FontMenu)
        'ProtoRefresh()
    End Sub

FontListing est parfait.

Debuguer/continuer
je choisis une fonte dans le menu fontes

Point d'arrêt sur Item.Click
La liste est remplacée par des 
+  (8) {Name = {System.ArgumentException} Size=10.0} System.Drawing.Font

A votre avis, ca vient de quoi ?

EventHandler reinvente Nothing.

1 réponse

Discussions similaires