Passer des paramètres de html/javascript vers activex (vb)

Dernière mise à jour le par pijaku .

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

Ce document intitulé « Passer des paramètres de html/javascript vers activex (vb) » issu de CodeS SourceS (codes-sources.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Les nouveaux opérateurs logiques en vb2005
Application multilingue sans douleur
Rejoignez-nous