Petit Problème à propos de window.location

**djun1** · 18/11/2012, 04h09

Bonjour.

Je travailles avec hta. Lorsque je clique sur le button "Newgame", il y a un message qui dit voulez ouvrir, enregistrer ou enregistrer sous :

Ensuite, ma location apparait dans une autre fenetre.

Que faire pour que hta arrête de faire ça?

**ProgElecT** · 18/11/2012, 12h31

Salut

.....
Lorsque je clique sur le button "Newgame"
.....

Quel code est déclenché par ce bouton ?, ce bouton est de quel type, button, SUBMIT.

**djun1** · 18/11/2012, 14h05

C'est plus un tableau que lorsqu'on clique dessus on dirige vers une page.

**hackoofr** · 18/11/2012, 14h46

Envoyé par djun1

C'est plus un tableau que lorsqu'on clique dessus on dirige vers une page.

Pouvez-vous poster le code complet de votre HTA

**djun1** · 23/11/2012, 02h39

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
<html>
<head>
<title>Construit un empire qui dominera la terre</title>
<link rel="stylesheet" type="text/css" href="feuilledestyle.css">
<script language="javascript" src="evenement.js">
</script>
<script language="vbscript" src="script.vbs">
</script>
</head>
<body bgcolor="#5100FF">
<img src="image\home\logo.jpg" id="logo">
<table border="4" bordercolor="#3900B3" id="menu_general" width="400" height="300">
<tr>
<td valign="center" align="center" id="newgame" onmouseover="survol('newgame')" onmouseout="desurvol('newgame')" name="newgame">Commencer Une nouvelle partie.</td>
</tr>
<tr>
<td valign="center" align="center" id="loadgame" onmouseover="survol('loadgame')" onmouseout="desurvol('loadgame')" name="loadgame">Charger une partie.</td>
</tr>
<tr>
<td valign="center" align="center" id="howplay" onmouseover="survol('howplay')" onmouseout="desurvol('howplay')" name="howplay">Instruction.</td>
</tr>
<tr>
<td valign="center" align="center" id="tutorial" onmouseover="survol('tutorial')" onmouseout="desurvol('tutorial')" name="tutorial">Tutoriel.</td>
</tr>
</table>
</body>
</html>

contenue de evenement.js :

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
function survol(x)
{
if(x === 'newgame')
 {
  document.getElementById('newgame').style.backgroundColor = "#8640FF";
 }
if(x === 'howplay')
 {
  document.getElementById('howplay').style.backgroundColor = "#8640FF";
 }
if(x === 'loadgame')
 {
  document.getElementById('loadgame').style.backgroundColor = "#8640FF";
 }
if(x === 'tutorial')
 {
  document.getElementById('tutorial').style.backgroundColor = "#8640FF";
 }
}
 
function desurvol(x)
{
 if(x === 'newgame')
 {
  document.getElementById('newgame').style.backgroundColor = "#5100FF";
 }
if(x === 'howplay')
 {
  document.getElementById('howplay').style.backgroundColor = "#5100FF";
 }
if(x === 'loadgame')
 {
  document.getElementById('loadgame').style.backgroundColor = "#5100FF";
 }
if(x === 'tutorial')
 {
  document.getElementById('tutorial').style.backgroundColor = "#5100FF";
 }
}

Contenue de script :

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
Function Newgame()
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("Database\partie.txt") Then 
Answer = MsgBox("Voulez-vous vraiment recommencer. Vous risquez de perdre vos donnés.",vbOKCancel)
If Answer = VbOk Then
Set objFile = objFSO.CreateTextFile("Database\partie.txt")
window.location = "newgame.hta"
End If
Else
Set objFile = objFSO.CreateTextFile("Database\partie.txt")
window.location = "newgame.hta"
End If
End Function
 
Sub newgame_Onclick()
Newgame()
End Sub