Propriété d'un controle ActiveX

**Ndugu** · 23/05/2006, 17h54

Bonjour à tous,

je construis un controle activeX simple pour connaitre cette technologie.

Je me saire du tutoriel :

http://activex.developpez.com/%5BAct...%20ActiveX.pdf

J'ai ajouté une propriété :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim m_MaProp As String
 
Public Property Get MaProp() As String
    MaProp = m_MaProp
End Property
 
Public Property Let MaProp(vValeur As String)
    m_MaProp = vValeur
End Property

Voici mon problème :

La propriété :

Code :

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

MaProp

apparait bien dans la liste des propriétés lorsque j'instancie le controle (comme montré au milieu de la page 4 du pdf).

Mais lorsque j'édit la propriété à la main hors exécution, puis que j'exécute le programme, la chaine ne reste pas en mémoire, je ne peux pas l'utiliser. Comment faire?

Merci de votre aide

Ndugu

**ThierryAIM** · 23/05/2006, 18h10

tu n'as pas renseigné ta propriété dans UserControl_WriteProperties et UserControl_ReadProperties

Code :

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

1
2
3
4
5
6
7
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("MaProp", m_MaProp, 1)
End Sub
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    m_MaProp= PropBag.ReadProperty("MaProp", 1)
End Sub

**Ndugu** · 24/05/2006, 08h55

Merci beacoup ThierryAIM !

ca marche parfaitement!

**Ndugu** · 26/05/2006, 09h49

J'ai un autre problème toujours sur le meme sujet :

voici mon control :

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
 
Dim m_MaProp As String
 
Public Property Get MaProp() As String
    MaProp = m_MaProp
End Property
 
Public Property Let MaProp(vValeur As String)
    m_MaProp = vValeur
End Property
 
Public Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("MaProp", m_MaProp, 1)
End Sub
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    m_MaProp = PropBag.ReadProperty("MaProp", 1)
End Sub

et voici la page de propriété que je lui ai attaché :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Private Sub PropertyPage_ApplyChanges()
    SelectedControls(0).MaProp = PropertyPage.Text1.Text
End Sub
 
Private Sub PropertyPage_SelectionChanged()
    PropertyPage.Text1.Text = SelectedControls(0).MaProp
End Sub
 
Private Sub Text1_Change()
    Changed = True
End Sub

Lorsque je change MaProp par l'intermédiaire de ma page de propriété, MaProp garde son ancienne valeur lors de l'execution.

Je pense que c'est par ce que l'événement

Code :

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

UserControl_WriteProperties

ne se produit pas lors de

Code :

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

PropertyPage_ApplyChanges()

comment faire?

Merci pour votre aide,

Ndugu

**ThierryAIM** · 26/05/2006, 12h13

tu en as oublié un morceau

Code :

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

1
2
3
4
5
Public Property Let MaProp(vValeur As String)
    m_MaProp = vValeur
    PropertyChanged "MaProp"
End Property

pour forcer, justement l'evenement WriteProperties

**Ndugu** · 26/05/2006, 14h29

Re-merci ThierryAIM,

Tu m'es d'un grand secours,

Je bosse actuellement avec 3 tutos sur le sujet (dont celui proposé sur développez http://activex.developpez.com/%5BAct...%20ActiveX.pdf ) et aucun ne mentionnait PropertyChanged !!!

Pourrais tu me dire si tu connais un bouquin ou un cours complet sur les activeXs?
(Sans tomber dans un pavé de 1000 pages qui serais, je le pense, trop complexe pour moi.)

Merci encore!

**ThierryAIM** · 26/05/2006, 14h43

Si tu utilises VB6 Pro, il y a un truc dans le menu Compléments qui s'appelle "Gestionnaire de compléments", et la dedans y'a un autre truc qui s'appelle "Assistant Interface de controles ActiveX" (et pour la route, tant qu'on y est, y'a aussi un "Assistant page de propriétés")

Teste-les, regarde les différentes options et possibilités, puis regarde le code généré, et tu verras que tu n'as pas besoin de te farcir un pavé de 1000 pages