Discussion :

[noftal]

Bonjour,

Comment fait-on pour appeler une propriété commune à des contrôles lorsque cette propriété n'est pas membre de la classe Control ?

Exemple ci-dessous : j'ai un form contenant des contrôles de nature différente comportant tous une propriété BorderWidth (par construction).
Je ne peux pas boucler dessus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each c As Control In Me.Controls
            c.borderwidth = 1  ' ne marche pas : borderwidth n'est pas membre de la classe control
        Next
    End Sub

Pourtant si je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each c As Control In Me.Controls
                     MessageBox.Show(c.Name)
        Next
    End Sub

je vois bien s'afficher tous mes contrôles.

Quelle est la parade ? Existe-t-il une instruction à rajouter dans les classes définissant mes contrôles pour indiquer que ces classes doivent "bénéficier" des outils de la classe control ?

[Pol63]

la méthode simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
select case true
  case typeof c is TelControlAyantBorderwidth
    directcast(c,TelControlAyantBorderwidth).BorderWidth = valeur
  case typeof c is AutreTypeControlAyantBorderwidth
    directcast(c,AutreTypeControlAyantBorderwidth).BorderWidth = valeur
end select

la méthode plus évoluée, pas forcément plus performante mais qui a le mérite de ne pas avoir une ligne de code par type de controle possible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim prop = c.gettype.getproperty("BorderWidth", reflection.public or reflection.instance)
if prop is nothing then continue for 'cette instance de c n'a pas de propriété borderwidth
prop.setvalue(c,valeur, nothing)

[tomlev]

comportant tous une propriété BorderWidth (par construction)

Qu'est-ce que tu entends par "par construction" ? Tu as créé tes propres classes de contrôle ?

Si c'est ça, crée une interface :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Interface IControlWithBorderWidth
    Property BorderWidth As Integer
End Interface

(avec éventuellement les autres propriétés dont tu as besoin)

Implémente cette interface dans les contrôles que tu as créés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Class MyButton
    Inherits BUtton
    Implements IControlWithBorderWidth
 
    Public Property BorderWidth As Integer Implements IControlWithBorderWidth.BorderWidth
 
End Class

Et dans ta boucle, teste si le contrôle implémente l'interface :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each c As Control In Me.Controls
            Dim bw = TryCast(c, IControlWithBorderWidth)
            If bw IsNot Nothing Then
                bw.borderwidth = 1  ' ne marche pas : borderwidth n'est pas membre de la classe control
            End If
        Next
    End Sub

[noftal]

Je suis bien dans le cas soulevé par Tomlev. Je note les 2 solutions. A ce stade, elles me semblent à peu près similaires en terme de rendu, sauf si vous avez une objection.
Je pensais qu'il y avait plus simple (dans le sens où, tout de même, un textbox ou un combobox sont bien des contrôles au sens banal du terme), mais bon...

[Pol63]

si la classe control n'a pas de propriété borderwidth mais seulement certains controles alors dire que ce sont des controles ne signifie rien et ne sert à rien
control est une classe comme une autre, les classes dérivées ont des propriétés spécifiques

après l'interface si c'est possible c'est mieux, mais s'il y a dans le lots des controles que tu n'as pas créé alors ca ne convient pas

[noftal]

OK, pigé.