Programmer un evenement d'un ActiveX dans une pageHTML

**bhj2000** · 26/04/2007, 11h14

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**SfJ5Rpw8** · 26/04/2007, 16h04

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....

**bhj2000** · 26/04/2007, 16h41

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 html :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**bhj2000** · 26/04/2007, 17h18

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

public Event MonEvenement(ChaineDeDonnees)

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Command1_Click()
RaiseEvent MonEvenement("Evenement déclenché")
End Sub

Merci

**SfJ5Rpw8** · 26/04/2007, 17h22

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...

**bhj2000** · 26/04/2007, 17h26

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..

**SfJ5Rpw8** · 26/04/2007, 19h00

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

Code html :

Sélectionner tout - Visualiser dans une fenêtre à part

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>

**bhj2000** · 27/04/2007, 09h09

Bonjour,
J'ai l'objet dans la page mais quand je modifie la date je ne reçois toujours pas le msgbox..

**SfJ5Rpw8** · 27/04/2007, 10h16

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....

**bhj2000** · 27/04/2007, 10h24

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é..

**bhj2000** · 27/04/2007, 14h43

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..

**bhj2000** · 27/04/2007, 23h13

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Programmer un evenement d'un ActiveX dans une pageHTML

VBScript

Discussions similaires

Partager

Partager