OVH Cloud OVH Cloud

[HTA] Sub imbriquées: interdit

4 réponses
Avatar
sympatix
Bonjour !

Dans ma source HTA, j'ai un Sub_Bouton_On_Click, qui crée une 2e fenêtre
IE, et dans cette 2e fenêtre, je dois mettre un autre bouton, pour la
fermer (cette 2e fenêtre).
ça donnerais:

....Patati patata...
Sub_Bouton_On_Click
...Patati... création de ma 2e fenêtre IE... patata...
Sub Bouton_Fermer_ma_2e_fenetre_on_Click
End Sub
End Sub

Mais, ce code est erronné... comme on ne peut imbriquer 2 sub, ça ne
fonctionne pas. Ya-t-il un moyen de contourner le pbl ?



Merci d'avance

Cordialement
Sympatix

Attention, totosympatix@tototele2.fr est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr

4 réponses

Avatar
Jean
Bonjour,

En VBScript on ne peux pas (enfin ... aux dernières nouvelles :O) ).

Mais si j'ai bien compris, vous cherchez quelque chose comme ceci :

<!--8<--->
<script language='vbscript'>
Dim Fenetre

Sub B1_OnClick
Set Fenetre=Open("about:blank","_blank")
With Fenetre
.Document.Body.InnerHTML="<input id² type=button>"
With .B2
.Value="Fermer"
.OnClick=GetRef("Fermer_Fenetre")
End With
End With
End Sub

Sub Fermer_Fenetre
Fenetre.Close
End Sub
</script>
<input id± type='button' value='Creer_Fenêtre'>
<!--8<--->

Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de news:u4s$
Bonjour !

Dans ma source HTA, j'ai un Sub_Bouton_On_Click, qui crée une 2e fenêtre
IE, et dans cette 2e fenêtre, je dois mettre un autre bouton, pour la
fermer (cette 2e fenêtre).
ça donnerais:

....Patati patata...
Sub_Bouton_On_Click
...Patati... création de ma 2e fenêtre IE... patata...
Sub Bouton_Fermer_ma_2e_fenetre_on_Click
End Sub
End Sub

Mais, ce code est erronné... comme on ne peut imbriquer 2 sub, ça ne
fonctionne pas. Ya-t-il un moyen de contourner le pbl ?



Merci d'avance

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr



Avatar
sympatix
Bonjour !

Mais si j'ai bien compris, vous cherchez quelque chose comme ceci :
...

Oui, exactement :-)

Mais, j'aurais voulu avoir accès à ses propriétés (taille, en
l'occurence), et avec Width, celà ne fonctionne pas:

-------------Extrait-----------
...
Sub B1_OnClick
Set Fenetre=Open("about:blank","_blank")
With Fenetre
.Widthw0
...
------------------------------
Comment accéder à ses propriétés ?

Merci.

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"Jean" <http:// a écrit dans le message de
news:
Bonjour,

En VBScript on ne peux pas (enfin ... aux dernières nouvelles :O) ).

Mais si j'ai bien compris, vous cherchez quelque chose comme ceci :

<!--8<--->
<script language='vbscript'>
Dim Fenetre

Sub B1_OnClick
Set Fenetre=Open("about:blank","_blank")
With Fenetre
.Document.Body.InnerHTML="<input id² type=button>"
With .B2
.Value="Fermer"
.OnClick=GetRef("Fermer_Fenetre")
End With
End With
End Sub

Sub Fermer_Fenetre
Fenetre.Close
End Sub
</script>
<input id± type='button' value='Creer_Fenêtre'>
<!--8<--->

Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de
news:u4s$

Bonjour !

Dans ma source HTA, j'ai un Sub_Bouton_On_Click, qui crée une 2e
fenêtre


IE, et dans cette 2e fenêtre, je dois mettre un autre bouton, pour
la


fermer (cette 2e fenêtre).
ça donnerais:

....Patati patata...
Sub_Bouton_On_Click
...Patati... création de ma 2e fenêtre IE... patata...
Sub Bouton_Fermer_ma_2e_fenetre_on_Click
End Sub
End Sub

Mais, ce code est erronné... comme on ne peut imbriquer 2 sub, ça
ne


fonctionne pas. Ya-t-il un moyen de contourner le pbl ?



Merci d'avance

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr











Avatar
Jean
Bonjour,

On ne sait pas retouver la taille de la fenêtre mais si c'est pour la redimensionner vous pouvez le faire soit directement dans la
méthodeOpen http://msdn.microsoft.com/workshop/author/dhtml/reference/methods/open_0.asp :

Set Fenetre=Open("about:blank","_blank","topP,leftP,widthP0,")

soit à l'aide des méthodes MoveTo et ResizeTo
http://msdn.microsoft.com/workshop/author/dhtml/reference/methods/resizeto.asp
http://msdn.microsoft.com/workshop/author/dhtml/reference/methods/moveto.asp

With Fenetre
.MoveTo 50,50
.ResizeTo 500,400
....bla bla bla.....

Vous pouvez accéder aux propriétés (et autres méthodes) de la fenêtre de la même façon que ci dessus.

Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de news:
Bonjour !

Mais si j'ai bien compris, vous cherchez quelque chose comme ceci :
...

Oui, exactement :-)

Mais, j'aurais voulu avoir accès à ses propriétés (taille, en
l'occurence), et avec Width, celà ne fonctionne pas:

-------------Extrait-----------
...
Sub B1_OnClick
Set Fenetre=Open("about:blank","_blank")
With Fenetre
.Widthw0
...
------------------------------
Comment accéder à ses propriétés ?

Merci.

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"Jean" <http:// a écrit dans le message de
news:
Bonjour,

En VBScript on ne peux pas (enfin ... aux dernières nouvelles :O) ).

Mais si j'ai bien compris, vous cherchez quelque chose comme ceci :

<!--8<--->
<script language='vbscript'>
Dim Fenetre

Sub B1_OnClick
Set Fenetre=Open("about:blank","_blank")
With Fenetre
.Document.Body.InnerHTML="<input id² type=button>"
With .B2
.Value="Fermer"
.OnClick=GetRef("Fermer_Fenetre")
End With
End With
End Sub

Sub Fermer_Fenetre
Fenetre.Close
End Sub
</script>
<input id± type='button' value='Creer_Fenêtre'>
<!--8<--->

Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de
news:u4s$

Bonjour !

Dans ma source HTA, j'ai un Sub_Bouton_On_Click, qui crée une 2e
fenêtre


IE, et dans cette 2e fenêtre, je dois mettre un autre bouton, pour
la


fermer (cette 2e fenêtre).
ça donnerais:

....Patati patata...
Sub_Bouton_On_Click
...Patati... création de ma 2e fenêtre IE... patata...
Sub Bouton_Fermer_ma_2e_fenetre_on_Click
End Sub
End Sub

Mais, ce code est erronné... comme on ne peut imbriquer 2 sub, ça
ne


fonctionne pas. Ya-t-il un moyen de contourner le pbl ?



Merci d'avance

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr














Avatar
sympatix
...mais si c'est pour la redimensionner vous pouvez le faire soit
directement dans la

méthodeOpen
http://msdn.microsoft.com/workshop/author/dhtml/reference/methods/open_0.asp :

Set
Fenetre=Open("about:blank","_blank","topP,leftP,widthP0,

")

Oui, c'est parfait comme ça, merci :-)


Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"Jean" <http:// a écrit dans le message de
news:
Bonjour,

On ne sait pas retouver la taille de la fenêtre mais si c'est pour la
redimensionner vous pouvez le faire soit directement dans la

méthodeOpen
http://msdn.microsoft.com/workshop/author/dhtml/reference/methods/open_0.asp :


Set
Fenetre=Open("about:blank","_blank","topP,leftP,widthP0,

")

soit à l'aide des méthodes MoveTo et ResizeTo

http://msdn.microsoft.com/workshop/author/dhtml/reference/methods/resizeto.asp


http://msdn.microsoft.com/workshop/author/dhtml/reference/methods/moveto.asp


With Fenetre
.MoveTo 50,50
.ResizeTo 500,400
....bla bla bla.....

Vous pouvez accéder aux propriétés (et autres méthodes) de la fenêtre
de la même façon que ci dessus.


Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de
news:

Bonjour !

Mais si j'ai bien compris, vous cherchez quelque chose comme ceci
:



...
Oui, exactement :-)

Mais, j'aurais voulu avoir accès à ses propriétés (taille, en
l'occurence), et avec Width, celà ne fonctionne pas:

-------------Extrait-----------
...
Sub B1_OnClick
Set Fenetre=Open("about:blank","_blank")
With Fenetre
.Widthw0
...
------------------------------
Comment accéder à ses propriétés ?

Merci.

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"Jean" <http:// a écrit dans le message de
news:
Bonjour,

En VBScript on ne peux pas (enfin ... aux dernières nouvelles
:O) ).




Mais si j'ai bien compris, vous cherchez quelque chose comme ceci
:




<!--8<--->
<script language='vbscript'>
Dim Fenetre

Sub B1_OnClick
Set Fenetre=Open("about:blank","_blank")
With Fenetre
.Document.Body.InnerHTML="<input id² type=button>"
With .B2
.Value="Fermer"
.OnClick=GetRef("Fermer_Fenetre")
End With
End With
End Sub

Sub Fermer_Fenetre
Fenetre.Close
End Sub
</script>
<input id± type='button' value='Creer_Fenêtre'>
<!--8<--->

Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de
news:u4s$

Bonjour !

Dans ma source HTA, j'ai un Sub_Bouton_On_Click, qui crée une 2e
fenêtre


IE, et dans cette 2e fenêtre, je dois mettre un autre bouton,
pour




la
fermer (cette 2e fenêtre).
ça donnerais:

....Patati patata...
Sub_Bouton_On_Click
...Patati... création de ma 2e fenêtre IE... patata...
Sub Bouton_Fermer_ma_2e_fenetre_on_Click
End Sub
End Sub

Mais, ce code est erronné... comme on ne peut imbriquer 2 sub,
ça




ne
fonctionne pas. Ya-t-il un moyen de contourner le pbl ?



Merci d'avance

Cordialement
Sympatix

Attention, est mon adresse antispam
non




valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr