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>

Programmer un evenement d'un ActiveX dans une pageHTML

VBScript

Vue hybride

Discussions similaires

Partager

Partager