EventHandler reinvente Nothing.

Signaler
Messages postés
81
Date d'inscription
vendredi 19 septembre 2014
Statut
Membre
Dernière intervention
15 octobre 2014
-
Messages postés
81
Date d'inscription
vendredi 19 septembre 2014
Statut
Membre
Dernière intervention
15 octobre 2014
-
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 ?

1 réponse

Messages postés
81
Date d'inscription
vendredi 19 septembre 2014
Statut
Membre
Dernière intervention
15 octobre 2014

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 ?