Discussion :

[OhMonBato]

Bonjour,

j'essaye de creer un userControl sous VB2008 Express. Le but du jeu de ce control serait de pouvoir afficher un angle em radians sous plusieurs formats differents (radians, degres, grades, degres/minutes, etc...).

J'ai donc une propriete ValRad pour la valeur en radian a afficher et une propriete Caption pour la valeur a afficher en focntion du format choisi.

Quand je teste mon controle, si je modifie la propriete ValRad, la prorpiete Caption n'est pas mise a jour tant que je ne clique pas sur le champ "Caption" dans la liste des proprietes et reciproquement si je modifie la valeur de la propriete "Caption", la propriete "ValRad" n'est mise a jour qu'en cliquant dessus.

Voici le principe du code que j'ai pour le moment :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

Imports System.Math
PublicClass UserControl1
Private ValeurRadian AsDouble
PublicProperty ValRad() AsDouble
Get
Return ValeurRadian
EndGet
Set(ByVal value AsDouble)
ValeurRadian = value
Caption = (value / PI * 180).ToString
EndSet
EndProperty
Private CaptionDisplayed AsString
PublicProperty Caption() AsString
Get
Return CaptionDisplayed
EndGet
Set(ByVal value AsString)
CaptionDisplayed = value
TextBox1.Text = value
ValeurRadian = Val(value) / 180 * PI
EndSet
EndProperty
EndClass

Je suis bien conscient aussi qu'il y a un risque de faire une boucle infinie si je ne mets pas un flag quelquepart, le changement d'une propriete entrainant le changement d'une autre, etc... mais pour proceder pas a pas j'aimerais pour le moment au moins que la deuxieme propriete soit mise a jour au changement de la premiere, je verrai ensuite pour eviter le phenomene de cascade

[tomlev]

Pour éviter l'effet de cascade, tu n'as qu'à changer le champ derrière la propriété, et non la propriété elle-même

[OhMonBato]

Mais je veux changer la propriete ! A priori (...) ce n'est pas ca qui m'inquiete le plus, je voudrais d'abord mettre la deuxieme propriete a jour de telle maniere que si l'utilisateur en mode creation, change une propriete, la deuxieme soit elle aussi mise a jour dans la liste des proprietes, hors pour le mmoment je dois cliquer sur l'intitule de la deuxieme propriete pour voir sa valeur mise a jour.

[tomlev]

Ah ok, je vois le problème... a priori le designer ne voit pas le changement de valeur de la propriété, il faudrait le lui signaler... mais je ne sais pas trop comment

[olsimare]

Bonjour.

Je propose de sortir le changement de valeurradian et l'affichage de la property et d'utiliser RefreshProperties(RefreshProperties.All) pour chaque property (déclenche le refresh complet dans le designer) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Imports System.Math
Imports System.ComponentModel
Public Class UserControl1
 
    Private ValeurRadian As Double
 
    <Category("Custom Property"), RefreshProperties(RefreshProperties.All)> _
    Public Property ValRad() As Double
        Get
            Return ValeurRadian
        End Get
        Set(ByVal value As Double)
            ValeurRadian = value
            ChangeCaptionInternal((value / PI * 180).ToString)
        End Set
    End Property
    Private CaptionDisplayed As String
 
    Private Sub ChangeCaptionInternal(ByVal value As String)
        CaptionDisplayed = value
        TextBox1.Text = value
        ValeurRadian = Val(value) / 180 * PI
    End Sub
 
    <Category("Custom Property"), RefreshProperties(RefreshProperties.All)> _
    Public Property Caption() As String
        Get
            Return CaptionDisplayed
        End Get
        Set(ByVal value As String)
            ChangeCaptionInternal(value)
        End Set
    End Property
 
End Class

Cdt.

[tomlev]

Bien vu... je me doutais qu'il devait y avoir un attribut pour ça, mais je le cherchais plutôt dans System.Design que dans System.ComponentModel