CodeS-SourceS
Rechercher un code, un tuto, une réponse

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

Octobre 2017

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
Publié par Jeskor.
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