EXEMPLE DE PROPRIÉTÉ D'OBJET AVEC UN PETIT PLUS DANS LA FENETRE PROPRIETE (STYLE CE QUE L'ON TROUVE DEVANT LA PROPRIETE FONT DE L'OBJET TEXTBOX) (VERSION VB.NET)

Commentaire de BXM44 le 07/11/2007 06:49:37

Bonjour,
j'ai essayé de mettre le code dans un controle utilisateur
quand on insère le controle dans une forme, cela plante VB2005 express.
Ai-je oublié quelqu chose ?

Merci.

Imports System.ComponentModel

Public Class UserControl1
    Private Arthenius As New Mon_ensemble_de_propriete()
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
    Public Property Mais_qui_est_Arthenius() As Mon_ensemble_de_propriete
        Get
            Return Arthenius
        End Get
        Set(ByVal value As Mon_ensemble_de_propriete)
            Arthenius = Value
        End Set
    End Property

End Class

'VOICI LA CLASSE QUI DOIT DEFINIR MES PROPRIETES DEVANT APPARAITRE DANS LA FENETRE PROPRIETE AVEC LE PETIT PLUS...

<TypeConverter(GetType(Mon_ensemble_de_propriete_Converter))> _
Public Class Mon_ensemble_de_propriete
    Private _Nom As String
    Private _Prenom As String
    Public Property Nom() As String
        Get
            Return _Nom
        End Get
        Set(ByVal value As String)
            _Nom = value
        End Set
    End Property
    Public Property Prenom() As String
        Get
            Return _Prenom
        End Get
        Set(ByVal value As String)
            _Prenom = value
        End Set
    End Property
End Class

'ICI LE CONVERTER PERMETTANT D'AFFICHER LE PLUS DANS LA FENETRE PROPRIETE

Public Class Mon_ensemble_de_propriete_Converter
    Inherits ExpandableObjectConverter
    Public Overrides Function CanConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal destinationType As System.Type) As Boolean
        If Not destinationType.GetType().Equals(New System.ComponentModel.Design.Serialization.InstanceDescriptor(Nothing, Nothing).GetType()) Then
            Return True
        End If
    End Function
    Public Overrides Function ConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal culture As System.Globalization.CultureInfo, ByVal value As Object, ByVal destinationType As System.Type) As Object
        Dim instancedescripteur As New System.ComponentModel.Design.Serialization.InstanceDescriptor(Nothing, Nothing)
        If Not destinationType.GetType() Is instancedescripteur.GetType() Then
            Return Me.ConvertTo(context, culture, value, destinationType)
        End If
        Dim ci As System.Reflection.ConstructorInfo = GetType(Mon_ensemble_de_propriete).GetConstructor(Nothing)
        Return New System.ComponentModel.Design.Serialization.InstanceDescriptor(ci, Nothing, False)
    End Function
End Class

Commentaire de TigerFab le 29/11/2007 18:12:47

En effet ca plante dans le designer même en 2005

Si on définit son composant par le code pas de problème
Si on affiche pas le designer, pas de problème non plus. Pour preuve on peut compiler et l'exe fonctionnera
Mais dès qu'on affiche le mode design du formulaire contenant le composant à l'écran paf plantage visual studio

Commentaire de BXM44 le 01/12/2007 13:48:31

Et maintenant la totale avec des valeurs par défaut, y compris pour des types un peu plus compliqués comme les couleurs et les polices de caractères.
Bon courage à tous.

Imports System.ComponentModel


Public Class UserControl1

    Private Arthenius As New Mon_ensemble_de_propriete()

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
    Public Property Mais_qui_est_Arthenius() As Mon_ensemble_de_propriete
        Get
            Return Arthenius
        End Get
        Set(ByVal value As Mon_ensemble_de_propriete)
            Arthenius = value
        End Set
    End Property

End Class

' VOICI LA CLASSE QUI DOIT DEFINIR MES PROPRIETES DEVANT APPARAITRE DANS LA FENETRE PROPRIETE
' AVEC LE PETIT PLUS...

<TypeConverter(GetType(ExpandableObjectConverter))> _
Public Class Mon_ensemble_de_propriete
    '
    ' objets privés initialisés avec les valeurs par défaut
    '
    Private _Nom As String = "Dupont"
    Private _Prenom As String = "Robert"
    Private _Couleur As Color = Color.Red
    Private _Police As Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Bold, GraphicsUnit.Point, CType(0, Byte))
    '
    ' objet privé pour la comparaison par le designer dans ShouldSerialize...
    '
    Private _PoliceParDefaut As Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Bold, GraphicsUnit.Point, CType(0, Byte))
    '
    ' propriétés
    '
    ' <summary> sera rangé dans le fichier XML créé avec la DLL
    ' un développeur ayant uniquement la DLL et le fichier XML aura à l'écran la description de la propriété
    ' dès qu'il entrera dans son code objet.propriété
    '
    ' <Description> pour que la description s'affiche dans la fenêtre des propriétés en mode Design
    '
    ' <DefaultValue> pour permettre au Designer de faire apparaître la valeur de la propriété en caractères normaux
    ' lorsque la valeur est celle par défaut
    ' pour les autres valeurs que la valeur par défaut, la valeur est affichée en gras dans la fenêtre des propriétés
    ' Ceci ne s'applique qu'aux types simples : string , boolean , integer , etc...
    ' Pour les objets compliqués commeles couleurs et les polices de caractères <DefaultValue> ne marche pas
    ' et doir être remplacé par une fonction ShouldSerialize, voir plus loin.


    ''' <summary>
    ''' Nom de l'individu
    ''' (Valeur par défaut : Dupont)
    ''' </summary>
    <DefaultValue("Dupont")> _
    <Description("Nom de l'individu")> _
    Public Property Nom() As String
        Get
            Return _Nom
        End Get
        Set(ByVal value As String)
            _Nom = value
        End Set
    End Property


    ''' <summary>
    ''' Prénom de l'individu
    ''' (Valeur par défaut : Robert)
    ''' </summary>
    <DefaultValue("Robert")> _
    <Description("Prénom de l'individu")> _
    Public Property Prenom() As String
        Get
            Return _Prenom
        End Get
        Set(ByVal value As String)
            _Prenom = value
        End Set
    End Property


    ''' <summary>
    ''' Couleur préférée
    ''' (Valeur par défaut : Color.Red)
    ''' </summary>
    <Description("Couleur préférée")> _
    Public Property Couleur() As Color
        Get
            Return _Couleur
        End Get
        Set(ByVal value As Color)
            _Couleur = value
        End Set
    End Property

    Private Function ShouldSerializeCouleur() As Boolean
        Return Me.Couleur <> Color.Red
    End Function


    ''' <summary>
    ''' Police préférée
    ''' (Valeur par défaut : Microsoft Sans Serif 8,25pt Bold)
    ''' </summary>
    <Description("Police préférée")> _
    Public Property Police() As Font
        Get
            Return _Police
        End Get
        Set(ByVal value As Font)
            _Police = value
        End Set
    End Property

    Private Function ShouldSerializePolice() As Boolean
        Return Not Me.Police.Equals(_PoliceParDefaut)
    End Function

End Class

Commentaire de Kelpan le 30/06/2008 00:33:07

Attention dans le code précédent dans la méthode ConvertTo, la dernière ligne est :

=> MyBase
Return MyBase.ConvertTo(context, culture, value, destinationType)

et non

=> Me
Return Me.ConvertTo(context, culture, value, destinationType)

qui provoque une boucle récursive infinie !!