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

[olsimare]

Bonjour.

je le cherchais plutôt dans System.Design que dans System.ComponentModel

Ah ben tiens, toi aussi tu t'y perds la dedans ! Ca me rassure !

Cdt.

[OhMonBato]

Un grand merci !
Je viens de tester et effectivement ca semble repondre a mes besoins. J'avoue que je n'avais aucune chance de trouver cette solution par moi meme vu mes connaissances... Je vais essayer de comprendre un peu ce ComponentModel, c'est pas gagne.

Pour info j'ai juste ajoute un petit test au code fourni par Olsimare pour eviter que la valeur en Radian ne soit modifiee par le changement de caption quand celui ci est provoque par le changement de valeur en radian (oui je sais c'est un peu confus ), ca donne donc ca chez moi :

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
37
38
39
40
41
42

Imports System.Math
Imports System.ComponentModel
PublicClass UserControl1
Private ChangeFromVal AsBoolean
 
Private ValeurRadian AsDouble
<Category("Custom Property"), RefreshProperties(RefreshProperties.All)> _
PublicProperty ValRad() AsDouble
Get
  Return ValeurRadian
EndGet
Set(ByVal value AsDouble)
  ChangeFromVal = True
  ValeurRadian = value
  ChangeCaptionInternal((value / PI * 180).ToString)
EndSet
EndProperty
 
Private CaptionDisplayed AsString
<Category("Custom Property"), RefreshProperties(RefreshProperties.All)> _
PublicProperty Caption() AsString
Get
  Return CaptionDisplayed
EndGet
Set(ByVal value AsString)
  ChangeCaptionInternal(value)
EndSet
EndProperty
 
PrivateSub ChangeCaptionInternal(ByVal value AsString)
CaptionDisplayed = value
TextBox1.Text = value
If ChangeFromVal = FalseThen
  ValeurRadian = Val(value) / 180 * PI
Else
  ChangeFromVal = False
EndIf
EndSub
 
EndClass

[olsimare]

Bonjour.



Mais j'aurais plutôt fait une sub ChangeValRadInternal car perso, je trouve que ce traîner des booléens inter-propriété/sub, ça perd vachement en lisibilité.

Cdt.