Discussion :

[jeandadaf]

Bonjour,

Je ne comprends pas.
J'ai créé un composant qui hérite de dataGridView. Dans ce composant Je déclare en private des varibles string, date etc ...
Ensuite pour faire bien les choses je fais des ces variables des propriétés:

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
 
    Private codePatient As String
    Property leCodePatient() As String
        Get
            Return Me.codePatient
        End Get
        Set(ByVal value As String)
            Me.codePatient = leCodePatient
        End Set
    End Property
 
    Private dateDeb As Date
    Property laDateDeDebut() As Date
        Get
            Return dateDeb
        End Get
        Set(ByVal value As Date)
            Me.dateDeb = laDateDeDebut
        End Set
    End Property
 
'........etc

jusque la pas de problème.
Ensuite lorsque je veux utiliser mon composant :

Code :

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

1
2
3
4
 
        dgvIntervention.leCodePatient = Me.ComboBoxCodePatient.Text
        dgvIntervention.laDateDeDebut = Date.MinValue
        dgvIntervention.laDateDeFin = Date.Now

donc je veux changer les valeurs de mes propriétés de mon composant.

Ca ne marche pas les valeurs ne sont pas modifiées.

Les propriétés ne sont pas en ReadOnly puisque je n'ai pas d'erreur de syntaxe.

Présision: je travaille avec VS 2008.

Merci pour votre aide.

[_PascalC_]

Salut, tes setters n'étaient pas bons :

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
 
    Private codePatient As String
    Property leCodePatient() As String
        Get
            Return Me.codePatient
        End Get
        Set(ByVal value As String)
            Me.codePatient = value
        End Set
    End Property
 
    Private dateDeb As Date
    Property laDateDeDebut() As Date
        Get
            Return dateDeb
        End Get
        Set(ByVal value As Date)
            Me.dateDeb = value
        End Set
    End Property
 
'........etc

[jeandadaf]

merci à toi, je le voyais pas....