Discussion :

[olivierlsf]

Bonjour,

j'ai des difficultés avec la fermeture de ma page

Code :

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

1
2
3
 
  window.opener=null 
  window.close()

voir même

Code :

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

self.close

ne fonctionne pas lorsque la page est sous reseau (en site de confiance)

alors que cette fonction est ok lorsque je suis en poste de travail ...

Pour la config. Ie, elle est identique en poste de travail et en site de confiance

Quelqu'un aurait une petite idée svp ... ??

merci par avance

[ced600]

Postes tout ton code, et dis nous ce que tu fais.

[olivierlsf]

ced .. merci

Le code :

Code :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
<img border="0" src="C:\Program Files\Actaris\Image\21556.gif" width="190" height="70"></p>
<div align="left" style="width: 934; height: 535">
 
 
<form method="POST" name="Form">
<table border="0" width="980"
<tr>
<tr>
<td valign="top" width="410" height="29"> </td>
<td valign="top" width="386" align="center" height="29" colspan="2"><font face="Arial" size="5"><u>ETIQUETTE</u></font> </td>
<td valign="top" width="300" height="29"> </td>
<tr>
<td valign="top" width="410"> </td>
<td valign="top" width="386" colspan="2"> </td>
<td valign="top" width="300"> </td>
<tr>
<td valign="top" width="410"> </td>
<td valign="top" width="1"> </td>
<td valign="top" width="439"><font face="Arial" size="4"><i>Description</i></font><br><input type="text" size=25 name="Desc"> </td>
<td valign="top" width="300"> </td>
<tr>
<td valign="top" width="410"> </td>
<td valign="top" width="76"> </td>
<td valign="top" width="310"><i><font face="Arial" size="4">Référence</font></i><br><input type="text" size=20 name="Ref"> </td>
<tr>
<td valign="top" width="410"> </td>
<td valign="top" width="76"> </td>
<td valign="top" width="310"><font face="Arial" size="4"><i>Quantité par emballage</i></font><br><input type="text" size=25 name="Quantite"> </td>
<tr>
<td valign="top" width="410"> </td>
<td valign="top" width="76">
 </td>
<td valign="top" width="310"><font face="Arial" size="4"><i>Quantité étiquette(s)</i></font><br><input type="text" size="5" name="LAB_QUANTITY" value="1" </td>
 </td>
</table><br><br>
<table border="0" width="100%"<tr><td></table>
<BR><BR>
<div align="center"><center><font size="2" face="Arial">Imprimante </font>
<select SIZE="1" name="PrnList" Align = "baseline" border = "0" Width = "217" Height = "24" > 
	<option> Zebra Z4000 (300dpi),LPT1: </option> 
 
 
 
  </select>
 
<BR><BR>
 
  <table>
    <tr>
 
<td valign="top" width="472" align="center" height="2"><center>
  <font size="3">
<input type="button" name="CSCtrl" Width="400" Height="500"
value="IMPRESSION" style="position: relative; width: 213; height: 54; font-family: Arial; font-weight: bold">
  </font>
</center> </td>
 
 
<BR><BR>
 
 
 
<td valign="top" width="431" height="36"> <center>
  <font size="3">
<input type="button" name="CSCtrlQUITTER" Width="400" Height="500"
value="QUITTER"  style="position: relative; width: 179; height: 53; font-family: Arial; font-weight: bold">
  </font>
</center> </td>
 
 
</form>
    </table>
  </center>
  </div>
</div>
</body>

l'interface gère l'impression d'etiquette ....

Et le bouton Quitter permets à d'arreter de sortir de l'écran d'impression ....

Cette interface fonctionne en 'Poste de travail' - mais en site de consiance 'localHost' je ne peux pas sortir de l'interface ... le bouton quitter ne fonctionne pas .. pas de message d'erreur non plus ...

[ced600]

Ce n'est pas du code vbs c'est du code HTML.
Où est ton code VBS ?

[olivierlsf]

Désolé j'ai raté mon copier coller ....

Code :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
<script language="VBScript"><!--"
dim CSOBJ
Sub Window_onLoad()
	set CSOBJ = CreateObject("TkxBridge.Application")
End Sub
 
 
Sub Window_onUnload()
	CSOBJ.Quit
	set CSOBJ = Nothing
End Sub
 
 
Sub CSCtrl_onClick()
Dim doc
Dim Choice
 
 
	CSOBJ.Connect "HTML Form Generator"
	CSOBJ.OpenDocument "c:\progra~1\actaris\etique~1\kit.lab" 
	Choice =  Form.PrnList.selectedIndex 
	CSOBJ.SelectPrinter Form.PrnList.Options(Choice).Text
 
 
	CSOBJ.SetVariable "Desc", Form.Desc.Value
	CSOBJ.SetVariable "Quantite", Form.Quantite.Value
	CSOBJ.SetVariable "Ref", Form.Ref.Value
 
 
	CSOBJ.PrintDocument Form.LAB_QUANTITY.Value, "1", "1"
End Sub
 
sub CSCtrlQUITTER_onClick() 
  opener=null 
  close()
end sub  
 
--></script>

[ced600]

Bon c koi le problème ?
Une exception ?
Cela ne se ferme pas ?

Qu'est ce que opener ?

[olivierlsf]

Bon c koi le problème ?
Une exception ?
Cela ne se ferme pas ?

Qu'est ce que opener ?

le formulaire se ferme pas et

opener est une astuce pour eviter d'avoir le message de confirmation window lors je click sur quitter

[ced600]

opener est plus une propriété qu'une astuce je pense

Close doit certainement appelé un event auquel Window_onUnload réagis.
Met une msgbox dans Window_onUnload pour voir si tu passes dedans.

[olivierlsf]

Cell, j'ai ajouté un msgbox dans le Window_onUnload qui reagit bien lorsque que l'on actualise la page ... mais c'est tous - pas de fermeture

pour le coup j'ai aussi ajouté un autre msgbox dans
le CSCtrlQUITTER_onClick avant le close() et j'obtient bien le message

[ced600]

Bon bah faudrait qu'un gars qui connaisse un peu la prog wen en vbs passe dans le coin.
Parce que ce n'est pas mon cas, et tu dois certainement te tromper dans l'utilisation des méthodes.
Tu as été voir l'aide pour savoir si tu faisais les choses correctement ?

[olivierlsf]

ced ... ben oui parfaitement d'accord

Bon bah faudrait qu'un gars qui connaisse un peu la prog wen en vbs

et si il y

[olivierlsf]

et si il y a une autre solution ... pour sortir du formulaire je suis preneur ....

[olivierlsf]

Cell je passe en resolu - pas de solution en mode localhost - je me suis penché sur le mode local et le même code fonctionne bien ...

ceci-dis ..... merci pour ton aide