Problème avec les controles ActiveXRésolu

Question

Voila quand je crée un controle activex, et que je lui attribue des propriétés, quand j'édite ces propriétés dans l'éditeur de forms, leurs valeurs n'est pas sauvegardée.
Par exemple si je définit un Backcolor pour mon controle dans l'éditeur de form et que je lance mon programme, la couleur que j'avais mis ne va pas etre prise en compte.
Comment y remédier silvouplé
PS : j'ai VB5
merci
@ +
MadMatt

cs_DARKSIDIOUS · Accepted Answer

Exemple pour une propriété Caption :

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("Caption", m_sCaption, "Salut")
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Let m_sCaption = PropBag.ReadProperty("Caption", "Salut")
End Sub
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_DARKSIDIOUS · Answer

Il faut penser à les enregistrer et les charger dans les propriétés WriteProperty et ReadProperty !

_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

MadM@tt · Answer

Ok mais comment utilise t'on ces propriétés ?
@ +
MadMatt

MadM@tt · Answer

Yes c'est génial je ne connaissais pas du tout ce truc.
merci
@ +
MadMatt

MadM@tt · Answer

Par contre j'ai un dernier ptit problème :
Quand je met une propriété pour définir l'image de fond de mon controle avec ce code :
Public Property Get Picture() As Picture
    Set Picture = UserControl.Picture
End Property
Public Property Let Picture(ByVal Pic As Picture)
    Set UserControl.Picture = Pic
End Property


Il me met cette erreur (après avoir sélectionné mon image dans l'explorateur) :
"Nombre d'arguments incorrect ou affectation de propriété invalide"
Pourtant ma propriété est bien déclarée ??

@ +
MadMatt

cs_DARKSIDIOUS · Answer

Mets plutôt ceci :

Public Property Get Picture() As stdPicture
Set Picture = UserControl.Picture
End Property
Public Property Let Picture(ByVal Pic As stdPicture)
Set UserControl.Picture = Pic
End Property
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

MadM@tt · Answer

ça ne marche pas, ça fait pareil  :sad)

cs_DARKSIDIOUS · Answer

Oups, j'avais pas remarqué :

Public Property Get Picture() As stdPicture
Set Picture = UserControl.Picture
End Property
Public Property Set Picture(ByVal Pic As stdPicture)
Set UserControl.Picture = Pic
End Property
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_DARKSIDIOUS · Answer

Oups, j'avais pas remarqué :

Public Property Get Picture() As stdPicture
Set Picture = UserControl.Picture
End Property
Public Property Set Picture(ByVal Pic As stdPicture)
Set UserControl.Picture = Pic
End Property
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

MadM@tt · Answer

Nickel, merci
@ +
MadMatt

Problème avec les controles ActiveX

10 réponses

Discussions similaires