Tout d'abord le HTML :
<HTML> <OBJECT name='ActiveX' classid="clsid:30DAB2BC-CC11-4DBE-804B-6661C9E8CD0C" Width='100px' Height='100px'> </OBJECT> <script Language="Javascript1.3"> alert(ActiveX.Color); </script> </HTML>
La balise Object Instancie le contrôle ActiveX et la section Javascript montre que l'on peut bien accéder à la variable.
On essaye donc de faire passer la variable COLOR avec la valeur 'Nouvelle_couleur'
Ensuite, dans l'applet (VB) il faut :
Définir des variables pour stocker les valeurs :
Const m_def_Color = 0 Dim m_Color As Variant
m_def_Color stockera la valeur par défaut et l'autre la valeur entrée
Ensuite utiliser des fonctions pour récupérer et stocker les paramètres :
Fonction permettant de Récupérer les paramètres
Private Sub UserControl_ReadProperties(PropBag As PropertyBag) RaiseEvent ReadProperties(PropBag) m_Color = PropBag.ReadProperty("Color", m_def_Color) End Sub
Fonction permetant de stocker les paramètres
Private Sub UserControl_WriteProperties(PropBag As PropertyBag) RaiseEvent WriteProperties(PropBag) Call PropBag.WriteProperty("Color", m_Color, m_def_Color) End Sub
Fonction d'accessibilité sur la variable Color
'ATTENTION! NE SUPPRIMEZ PAS OU NE MODIFIEZ PAS LES LIGNES COMMENTÉES SUIVANTES! 'MemberInfo=14,0,0,0 Public Property Get Color() As Variant Color = m_Color End Property
Public Property Let Color(ByVal New_Color As Variant) m_Color = New_Color PropertyChanged "Color" End Property
'Initialiser les propriétés pour le contrôle utilisateur Private Sub UserControl_InitProperties() m_Color = m_def_Color End Sub
Voilà , C'est avec çà vous pouvez comprendre les passages de paramètres
Ce sont les éléments obligatoires (à mon sens).
Si vous avez des suggestions n'hésitez pas