CONTROLE .NET : BOUTONS MULTI-PARAMETRABLES POUR VOS APPLICATIONS

Commentaire de christoni le 15/11/2004 12:34:03

J'arrive tard dans la discussion, mais si ça peut servir à quelqu'un :
Concernant la valeur par défaut de la propriété Image, une petite modif.,ci dessous, de ton code qui semble fonctionner sans passer par Reset.

    ' Permet de choisir l'image affichée sur le bouton
    Private Value_Image() As Image = {Nothing, Nothing, Nothing}
    <Description("Détermine l'image affichée sur le bouton"), Category("Remplissage"), _
    DefaultValueAttribute(GetType(Image), Nothing)> _
    Public Property Image1() As Image
        Get
            Return Value_Image(0)
        End Get
        Set(ByVal Value As Image)
            Value_Image(0) = Value
            If IsNothing(Value_Image(0)) = False Then ImageWidth1 = Value_Image(0).Width
            If IsNothing(Value_Image(0)) = False Then ImageHeight1 = Value_Image(0).Height
            If Value_Mode = BMode.Normal Then
                If SetGeneral = False Then
                    SetSpecific = True
                    Image = Value
                    SetSpecific = False
                End If
                SetButton(Me.CreateGraphics, 0)
            End If
        End Set
    End Property

    Private Function ShouldSerializeImage1() As Boolean
        Return Not (Value_Image(0) Is Nothing)
    End Function



La fonction ShouldSerialize peut aussi être intéressante pour que Vs ne produise pas de code inutilement,à ce sujet voir l'aide de VS :

Méthodes ShouldSerialize et Reset  [Visual Basic]
(Guide du développeur .NET Framework)

ShouldSerialize et Reset sont des méthodes facultatives que vous pouvez fournir pour une propriété, si cette dernière ne possède pas de valeur par défaut simple. Si la propriété possède une valeur par défaut simple, vous devez appliquer DefaultValueAttribute et fournir plutôt la valeur par défaut au constructeur de classe d'attributs. Ces deux mécanismes activent les fonctionnalités suivantes dans le concepteur :
&#8226; La propriété indique visuellement, dans la fenêtre de propriétés, si sa valeur par défaut a été modifiée.
&#8226; L'utilisateur peut cliquer avec le bouton droit sur la propriété et choisir Reset pour restaurer sa valeur par défaut.
&#8226; Le concepteur génère un code plus efficace.
Remarque :  Appliquez DefaultValueAttribute ou fournissez les méthodes ResetNomPropriété et ShouldSerializeNomPropriété. N'utilisez pas les deux procédures.
La méthode ResetNomPropriété affecte à une propriété sa valeur par défaut, comme illustré dans le fragment de code suivant.

Public Sub ResetMyFont()
   MyFont = Nothing
End Sub

Remarque   Si une propriété ne dispose pas de méthode Reset, si elle n'est pas marquée avec DefaultValueAttribute et si elle ne possède pas de valeur par défaut fournie dans sa déclaration, son option Réinitialiser est désactivée dans le menu contextuel de la fenêtre Propriétés du concepteur Windows Forms de Microsoft Visual Studio .NET.

Les concepteurs tels que Visual Studio .NET utilisent la méthode ShouldSerializeNomPropriété pour vérifier si une propriété ne possède plus sa valeur par défaut et écrivent du code dans le formulaire uniquement si une propriété a été modifiée, ce qui permet une génération de code plus efficace. Exemple :

'Returns true if the font has changed; otherwise, returns false.
' The designer writes code to the form only if true is returned.
Public Function ShouldSerializeMyFont() As Boolean
   Return Not (thefont Is Nothing)
End Function

Vous trouverez ci-dessous un exemple de code complet:

Option Explicit
Option Strict

Imports System
Imports System.Windows.Forms
Imports System.Drawing

Public Class MyControl
   Inherits Control
  
   ' Declare an instance of the Font class
   ' and set its default value to Nothing.
   Private thefont As Font = Nothing
  
   ' The MyFont property.
   Public Property MyFont() As Font
      ' Note that the Font property never
      ' returns null.
      Get
         If Not (thefont Is Nothing) Then
            Return thefont
         End If
         If Not (Parent Is Nothing) Then
            Return Parent.Font
         End If
         Return Control.DefaultFont
      End Get
      Set
         thefont = value
      End Set
   End Property
  
   Public Function ShouldSerializeMyFont() As Boolean
      Return Not (thefont Is Nothing)
   End Function
  
   Public Sub ResetMyFont()
      MyFont = Nothing
   End Sub
End Class

Dans ce cas, même si la valeur de la variable privée à laquelle la propriété MyFont accède a une référence Null (Nothing dans Visual Basic), la fenêtre de propriétés n'affiche pas null (Nothing). En effet, elle affiche la propriété Font du parent (Si la référence n'est pas Null (Nothing)) ou la valeur Font par défaut définie dans Control. Par conséquent, la valeur par défaut de MyFont ne peut pas être simplement définie et aucun DefaultValueAttribute ne peut être appliqué à cette propriété. En effet, les méthodes ShouldSerialize et Reset doivent plutôt être implémentées pour la propriété MyFont.