Tout d'abord le HTML :
<HTML>
<BODY>
<OBJECT name='ActiveX' classid="clsid:30DAB2BC-CC11-4DBE-804B-6661C9E8CD0C" Width='100px' Height='100px'>
<PARAM name='COLOR' Value='Nouvelle_Couleur'>
</OBJECT>
<script Language="Javascript1.3">
alert(ActiveX.Color);
</script>
</BODY>
</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 pout 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 permetant 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