.HTA Ouverture nouvelle fenêtre

**goro_830** · 16/06/2015, 10h32

Bonjour,

C'est encore moi

)

En fait j'ai trouvé ca que j'ai ajouté a mon script :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub RunScript2()
    Dim objIE,objDoc,strHTML
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Navigate("about:blank")
    objIE.ToolBar = 0
    objIE.StatusBar = 0
    Set objDoc = objIE.Document.Body
    strHTML = "ALLO"
    objDoc.InnerHTML = strHTML
    objIE.Visible = True
End Sub

Mais je voudrais que au lieu de ALLO il m'affiche ca sur ma nouvelle page :

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
Il faut, autant qu'on peut, obliger tout le monde : 
On a souvent besoin d'un plus petit que soi. 
De cette vérité deux Fables feront foi, 
Tant la chose en preuves abonde. 
Entre les pattes d'un Lion 
Un Rat sortit de terre assez à l'étourdie. 
Le Roi des animaux, en cette occasion, 
Montra ce qu'il était, et lui donna la vie. 
Ce bienfait ne fut pas perdu. 
Quelqu'un aurait-il jamais cru 
Qu'un Lion d'un Rat eût affaire ? 
Cependant il advint qu'au sortir des forêts 
Ce Lion fut pris dans des rets, 
Dont ses rugissements ne le purent défaire. 
Sire Rat accourut, et fit tant par ses dents 
Qu'une maille rongée emporta tout l'ouvrage. 
Patience et longueur de temps 
Font plus que force ni que rage.

Bon vous vous doutez bien que ce que je veux afficher n'est pas ce texte mais bon c'est pour l'idée

Le but de cette page est une page d'aide dans laquelle je détaille les actions de toutes les commandes de mon scripts.

Merci de votre aide

**ProgElecT** · 16/06/2015, 12h55

Salut

Cela me parait lourd comme truc, une autre solution ?

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
<HTML>
	<HEAD>
	<TITLE> Code postal </TITLE>
		<HTA:APPLICATION
			APPLICATIONNAME="MachinTruc"
			ID="MachinTruc"
			<
	</HEAD>
 
	<SCRIPT language="VBScript">
	'----------------------------------------------------------------------------------------------------------------------
	Sub Window_Onload()
		ResizeTo 450,300: MoveTo (Screen.Width-450)/2,(Screen.Height - 300) / 2
	End Sub
	'----------------------------------------------------------------------------------------------------------------------
    Sub CartoucheAide_OnMouseover() 'la souris commence a passer au dessus de l'objet
		CartoucheAide.Style.Height = 250:CartoucheAide.Style.width = 400
		DivAide.style.display=""
	End Sub
	'----------------------------------------------------------------------------------------------------------------------
    Sub CartoucheAide_OnMouseout() 'la souris quitte l'objet
		DivAide.style.display="none"
		CartoucheAide.Style.Height = 15:CartoucheAide.Style.width = 24
	End Sub
	'----------------------------------------------------------------------------------------------------------------------
	</SCRIPT>
 
	<Body>
		<fieldset Name="CartoucheAide" id="CartoucheAide" style="position:absolute; left:2px; top:2px; height:15px; width:24px; background-color:#52B3F7">
			<Div> -?- </Div>
			<Div Name="DivAide" id="DivAide" style=" display:none">
			Là j'y met tout le texte utile <BR>
			pour apporter l'aide voulue <BR>
			C'est juste une proposition, car il y a d'autres solutions possibles <BR>
			Chacun a ses petites habitudes
			</Div>
		</fieldset>
	</Body> 
</HTML>

**goro_830** · 16/06/2015, 13h01

Merci je teste ca !!

**goro_830** · 16/06/2015, 14h46

Alors c'est sympa ton système

Ca marche bien j'avais 4 parties sur mon script du coup j'ai fait 4 boutons d'aide

Merci à toi !!

.HTA Ouverture nouvelle fenêtre

VBScript

Discussions similaires

Partager

Partager