Programmer un evenement d'un ActiveX dans une pageHTML

Version imprimable

26/04/2007, 11h14
bhj2000

Programmer un evenement d'un ActiveX dans une pageHTML
Bonjour à tous,
J'ai créé un controle ActiveX dans VB6 et je l'insere dans une page HTML à l'aide d'une balise <object>. Mon activex déclenche un evenement MonEvenement que je declenche mais je n'arrive pas à récupérer l'evenement dans ma page avec VBScript malgré que j'ai implémenté l'evenement dans la page HTML.
Code:

1 2 3 4 5 6 7 <html> <head> <script language=vbscript> Sub Ctl1_MonEvenement(ChaineDeDonnees) msgbox ChaineDeDonnees </scrupt> <object ID="Ctl1" CLASSID="blabla..">
26/04/2007, 16h04
SfJ5Rpw8

c'est vraiment cela le code utilisé où c'est juste le principe..? montre nous le "vrai" code ... avec le en sub , /script et pas scrupt....
26/04/2007, 16h41
bhj2000

gérer un evenement d'un activex dans une page HTML
Bonjour à tous,
J'ai créé un controle ActiveX dans VB6 et je l'insere dans une page HTML à l'aide d'une balise <object>. Mon activex déclenche un evenement MonEvenement que je declenche mais je n'arrive pas à récupérer l'evenement dans ma page avec VBScript malgré que j'ai implémenté l'evenement dans la page HTML.

Code :
Code:

1 2 3 4 5 6 7 8 9 10 <html> <head> <body> <object ID="Ctl1" CLASSID="blabla.."> <script language=vbscript> Sub Ctl1_MonEvenement(ChaineDeDonnees) msgbox ChaineDeDonnees </script> </body> </html>
Quand je mets le contrôle dans un projet VB j'arrive à remonter l'evenement vers le projet et le capturer et le gérer maus quand le container est une page web .. ça bloque..
Merci d'avance
26/04/2007, 17h18
bhj2000

suite
Salut,
C'est bien le code en effet. Sauf le CLASSID de l'objet qui change bien évidemment. L'évenement MonEvenement est déclaré dans VB comme suit :

Code:

public Event MonEvenement(ChaineDeDonnees)

Je fais mon test avec un bouton sur le controle ActiveX qui déclenche l'evenement comme suit:
Code:

1 2 3 Private Sub Command1_Click() RaiseEvent MonEvenement("Evenement déclenché") End Sub
Merci
26/04/2007, 17h22
SfJ5Rpw8

Citation:

Envoyé par bhj2000

Salut,
C'est bien le code en effet....

sans aller plus loin commence par rajouter ce end sub qui manque.. puis on verra ou on en est...
26/04/2007, 17h26
bhj2000

Désolé.. C'est fait et le probleme persiste.. J'ai mis cet exemple pour simplifier.. En fait coté code tout est bien fait.. aucun problème de syntaxe..
Quand je reprends le controle dans un autre projet VB j'arrive à capturer l'evenement et le gérer mais pas quand je l'integre avec la balise <Object>.
Thx..

tiens essai ce "html" qui fonctionne... histoire de voir...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
<html>
<head>
<body>
 
<OBJECT
   classid="clsid:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1"
   id="dtPicker1"
   width=135
   height=35
   align=left
   hspace=20
   vspace=0
>
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
Private Sub DTPicker1_Change()
  MsgBox DTPicker1.Value
End Sub
-->
</SCRIPT>
</body>
</html>

27/04/2007, 09h09
bhj2000

Bonjour,
J'ai l'objet dans la page mais quand je modifie la date je ne reçois toujours pas le msgbox..
27/04/2007, 10h16
SfJ5Rpw8

c'est peu-être un problème sur le paramétrage des sécurités IE... qu'elle version utilise tu ..? regarde les sécurités ActiveX....
27/04/2007, 10h24
bhj2000

j'avais ie7, et quant ça n'a pas marché dessus je suis revenu vers la 6 pour les tests. mes paramètres de sécurité autorisent l'exécution des ActiveX..
médé médé.. je suis gravement bloqué..
27/04/2007, 14h43
bhj2000

je déprime les gars.. j'ai tout essayé.. tous les exemples disent que ça marche.. alors que j'ai testé sur plusieurs machines et rien ne bouhe pour capter l'evénement de l'ActiveX..
help, help..
27/04/2007, 23h13
bhj2000

Salut..
Pour info, j'ai détourné le problème en appelant le container (la page web) par :

Code:

parent.document.all.ChampsTexte.value= ValeurAEnvoyer

et ce dans l'évenement..
et dans la page web je jour sur l'évenement OnChange de l'input texte que j'ai appelé ChampsTexte..
c'est pas très propre mais ça fait l'affaire..
en attendant, la question reste toujours une mystère qui cherche une réponse..

cheers