Utilisation des property avec tableau de string

Question

Bonjour à tous,, 

J'ai un petit souci avec des passages de paramètres à un objet que j'ai crée.
Cet objet (MultiRoundLabel) comporte jusqu’à 4 autres objet (créer aussi RoundLabel)

Voila mon RoudLabel:


Et mon MultiRoundLabel:


Mon souci c'est avec le passage de paramètres d'un tableau de string (pour changer les textes des Labels)

    Public Property m_Text() As String()
        Get
            Return _Text
        End Get
        Set(value As String())
            _Text = value
            For i As Integer = 0 To _NbLabelMax
                _MesLabels(i).m_Text = _Text(i)
            Next
            Refresh()
        End Set
    End Property
 
_MesLabels c'est bien-sur mes RoundLabel x 4


Lorsque je souhaite changer l'un des labels,  si je fait cela:

MultiRoundLabel1.m_Text(0) = "Mon nouveau label 0"

Le process ne rentre pas dans le property, Donc je n'est pas la mise à jour de mes labels ou du moins de celui que j'ai besoin de changer.

Pourtant si j’interroge de nouveau:
dim s as string = MultiRoundLabel1.m_Text(0) 
 
s est bien égale à "Mon nouveau label 0"

Pour que cela fonctionne je suis obligé de faire:

Dim txt() as string
txt = MultiRoundLabel1.m_Text
txt(0) = "Mon Nouveau Label 0"
MultiRoundLabel1.m_Text = txt


Et la je rentre bien dans property avec la mise à jour des RoundLabel.
Suis-je obligé d'en passer par là ou y a t'il une solution.

J'ai le même souci avec toutes mes propriétés avec tableau.

J'ai pas de souci en édition donc tout ce qui est propre à l'édition (mes couleurs, font, taille etc), pas de souci.
Mais par exemple avec la Visibilité des Labels j'ai le même souci:

    Public Property m_Visible() As Boolean()
        Get
            Return _Visible
        End Get
        Set(value As Boolean())
            _Visible = value
            Dim j As Integer = 0
            For i As Integer = 0 To _NbLabelMax
                _myPanel(i).Visible = _Visible(i)
                If _myPanel(i).Visible Then
                    j = j + 1
                End If
                _myPanel(i).Top = (j - 1) * (_Height + _Espace)
            Next
            Me.Height = (j * _Height) + (j * _Espace)
            Refresh()
        End Set
    End Property

Petite explication, j'ai des Panel qui accueil mes RoundLabel (dessin) cela me permet de les rendre invisible si besoin. Et je redimensionne mon MultiRoundLabel en conséquence.

Mais la encore pour que le Property sois exécuté il faut que je lui envoie le tableau complet et pas seulement _visible(0) = true

 Cela me fait rajouter par mal de ligne de code.

Si vous avez une solution,   je vous remercie.

Whismeril · Answer

Bonjour,

Ta propriété c’est le tableau entier. Pas le contenu d’un item.
Si je fais une comparaison (un peu tirée par les cheveux, mais parlante je pense) avec Excel.

Ta propriété c’est le chemin du fichier.
Modifier le contenu d’une cellule, n’impacte pas le chemin du fichier.

Tu as plusieurs options qui me viennent en tête:

celle que tu as utilisée
mettre Refresh publique et l’appeler après chaque modifications 
écrire un setter avec le texte à saisir et l’index en paramètres, ce setter appelant la méthode Refresh
utiliser une ObesrvableCollection plutôt qu’un tableau, et abonner ton objet aux changements de celle-ci.
rendre ton objet indexable, la méthode indexée chargeant le bon label et le Resfresh
et sans doute d’autres....

Whismeril · Answer

de rien

Utilisation des property avec tableau de string

2 réponses

Votre réponse