[VB6] ActiveX passage parametre vers formulaire
Résolu
skyaero
Messages postés
26
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
6 octobre 2008
-
12 juin 2007 à 09:53
skyaero Messages postés 26 Date d'inscription lundi 25 octobre 2004 Statut Membre Dernière intervention 6 octobre 2008 - 12 juin 2007 à 14:25
skyaero Messages postés 26 Date d'inscription lundi 25 octobre 2004 Statut Membre Dernière intervention 6 octobre 2008 - 12 juin 2007 à 14:25
A voir également:
- Vb6 raiseevent
- Vb.net raiseevent ✓ - Forum Visual Basic 6
- Vb6 windows 10 ✓ - Forum Visual Basic 6
- Vb6 instr ✓ - Forum VB.NET
- Vb6 mid ✓ - Forum Visual Basic
- Vb6 split ✓ - Forum Visual Basic 6
8 réponses
skyaero
Messages postés
26
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
6 octobre 2008
12 juin 2007 à 14:25
12 juin 2007 à 14:25
J'ai trouvé la solution, voici le code de la page html
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<OBJECT ID="UserControl3"
CLASSID="CLSID:07C28F18-957D-4556-A37E-BD5C029159B1"
CODEBASE="moto85.CAB#version=1,0,0,0">
</OBJECT>
<SCRIPT LANGUAGE="JScript">
function UserControl3::NotifyAction(a)
{
alert(a);
}
</SCRIPT>
</HTML>
Le script récupère bien le RaiseEvent de l'ActiveX.
Merci jrivet pour m'avoir mis sur la piste du RaiseEvent
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<OBJECT ID="UserControl3"
CLASSID="CLSID:07C28F18-957D-4556-A37E-BD5C029159B1"
CODEBASE="moto85.CAB#version=1,0,0,0">
</OBJECT>
<SCRIPT LANGUAGE="JScript">
function UserControl3::NotifyAction(a)
{
alert(a);
}
</SCRIPT>
</HTML>
Le script récupère bien le RaiseEvent de l'ActiveX.
Merci jrivet pour m'avoir mis sur la piste du RaiseEvent
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
12 juin 2007 à 09:56
12 juin 2007 à 09:56
Salut,
Utilise les événement pour la direction inverse
@+: Ju£i?n
Pensez: Réponse acceptée
Utilise les événement pour la direction inverse
@+: Ju£i?n
Pensez: Réponse acceptée
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
12 juin 2007 à 10:00
12 juin 2007 à 10:00
Exemple
'Dans le formulaire ou est insérer l'UC
Option Explicit
Private Sub UCEvent1_NotifyAction(NomImage As String)
MsgBox NomImage
End Sub<hr />
'EXEMPLE d'evenemetn générer depuis un USerControl
Option Explicit
Public Event NotifyAction(NomImage As String)
Private Sub UserControl_Click()
RaiseEvent NotifyAction("C:\Toto.JPG")
End Sub<hr />
, ----
[code.aspx?ID=41455 By Renfield]
@+: Ju£i?n
Pensez: Réponse acceptée
'Dans le formulaire ou est insérer l'UC
Option Explicit
Private Sub UCEvent1_NotifyAction(NomImage As String)
MsgBox NomImage
End Sub<hr />
'EXEMPLE d'evenemetn générer depuis un USerControl
Option Explicit
Public Event NotifyAction(NomImage As String)
Private Sub UserControl_Click()
RaiseEvent NotifyAction("C:\Toto.JPG")
End Sub<hr />
, ----
[code.aspx?ID=41455 By Renfield]
@+: Ju£i?n
Pensez: Réponse acceptée
skyaero
Messages postés
26
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
6 octobre 2008
12 juin 2007 à 11:23
12 juin 2007 à 11:23
je te remercie, avec le raiseevent, je sens que j'approche du but mais je n'y suis pas encore tout à fait ;)
voici le code de la page html
<HTML>
<HEAD>
<script language="VBScript">
Sub UserControl3_NotifyAction (NomImage As String)
MsgBox NomImage
End Sub
</script>
</HEAD>
<OBJECT ID="UserControl3"
CLASSID="CLSID:2F550F10-BA95-4FA3-89AF-F49818243CC9"
CODEBASE="image.CAB#version=1,0,0,0">
</OBJECT>
</HTML>
et voici un bout de code le l'activex, j'ai créer un bouton sur l'activx afin de declencher manuellement le raiseevent.
Public Event NotifyAction(NomImage As String)
Private Sub MonBouton_Click()
RaiseEvent NotifyAction("c:\temp\miniPhotoMoto85.jpg")
End Sub
Cela ne fonctionne pas ! Qu'est ce que j'ai pas saisie ?
Merci
voici le code de la page html
<HTML>
<HEAD>
<script language="VBScript">
Sub UserControl3_NotifyAction (NomImage As String)
MsgBox NomImage
End Sub
</script>
</HEAD>
<OBJECT ID="UserControl3"
CLASSID="CLSID:2F550F10-BA95-4FA3-89AF-F49818243CC9"
CODEBASE="image.CAB#version=1,0,0,0">
</OBJECT>
</HTML>
et voici un bout de code le l'activex, j'ai créer un bouton sur l'activx afin de declencher manuellement le raiseevent.
Public Event NotifyAction(NomImage As String)
Private Sub MonBouton_Click()
RaiseEvent NotifyAction("c:\temp\miniPhotoMoto85.jpg")
End Sub
Cela ne fonctionne pas ! Qu'est ce que j'ai pas saisie ?
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
12 juin 2007 à 11:28
12 juin 2007 à 11:28
OU la la
C'est dans une page HTML!!!! désolé je suis incapable de te dire comment faire.
Je pensais que tu utilisais VB6
@+: Ju£i?n
Pensez: Réponse acceptée
C'est dans une page HTML!!!! désolé je suis incapable de te dire comment faire.
Je pensais que tu utilisais VB6
@+: Ju£i?n
Pensez: Réponse acceptée
skyaero
Messages postés
26
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
6 octobre 2008
12 juin 2007 à 11:33
12 juin 2007 à 11:33
l'activex est codé en vb6 mais est intégré dans une page html
l'activex est destiné a remlacer 10 input type file dans un formulaire
l'activex est destiné a remlacer 10 input type file dans un formulaire
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
12 juin 2007 à 11:37
12 juin 2007 à 11:37
Salut,
Donc en gros ce qu'il te manque à présent c'est de "catcher" l'événement depuis la page HTML c'est ca?
@+: Ju£i?n
Pensez: Réponse acceptée
Donc en gros ce qu'il te manque à présent c'est de "catcher" l'événement depuis la page HTML c'est ca?
@+: Ju£i?n
Pensez: Réponse acceptée
skyaero
Messages postés
26
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
6 octobre 2008
12 juin 2007 à 11:50
12 juin 2007 à 11:50
oui, je pense
