Salut
Un petit rappel sur les propriétés du positionnement et dimensions d'un HTA.
Pour vérifier le screenTop et le screenLeft, redimensionnez avec la souris le HTA, l'événement OnMove n'étant pas implémenté pour un HTA.
Code HTML : 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 <HTML> <HEAD> <TITLE> Un HTA </TITLE> <HTA:APPLICATION ApplicationName = "DemPosiDims" Id="DemPosiDims" BorderStyle="normal" > </HEAD> <SCRIPT language="VBScript" type="text/VBScript" > '------------------------------------------------------------------------------------------------------------------ '*** variables public *** Dim BarT, Cadr '------------------------------------------------------------------------------------------------------------------ Sub Window_Onload() MoveTo -Screen.availWidth,-Screen.availHeight 'place la page HTA hors de l'écran ResizeTo Screen.availWidth,Screen.availHeight ' Agrandi la page HTA au maximum de la grandeur disponnible du burreau Cadr = screenLeft + Screen.availWidth ' Calcul de l'épaisseur du cadre de la fenêtre HTA BarT = (screenTop + Screen.availHeight) - Cadr ' Calcule de l'hauteur de la barre de titre de la fenêtre HTA ResizeTo 870,700 ' dimensionnement de la fenêtre HTA (largeur, hauteur) MoveTo (Screen.availWidth-870)/2,(Screen.availHeight - 700) / 2 ' Centrage de la fenêtre HTA sur le burreeau 'autre centrage possible 'MoveTo (Screen.Width-870)/2,(Screen.Height - 700) / 2 ' Centrage de la fenêtre HTA sur l'écran txtInfosBis.value = "Borderstyle Ep. du cadre barre titre" & vbCrlf _ & "normal 8 22" & vbCrlf _ & "complex 10 22" & vbCrlf _ & "raised 8 22" & vbCrlf _ & "static 7 22" & vbCrlf _ & "sunken 10 22" & vbCrlf _ End Sub '------------------------------------------------------------------------------------------------------------------ Sub Window_OnResize() txtInfos.Value = "Résolution écran " & Screen.Width & "x" & Screen.Height & vbCrlf _ & "Positionnements et dimensions:" & vbCrlf _ & "HTA: Epaisseur du cadre (Bord)= " & Cadr & vbCrlf _ & " Hauteur barre de titre (BarT) = " & BarT & vbCrlf _ & " Left = " & screenLeft - Cadr & vbCrlf _ & " Top = " & screenTop - (BarT + Cadr) & vbCrlf _ & "screenTop = " & screenTop & vbCrlf _ & "screenLeft = " & screenLeft & vbCrlf _ & "document.body.offsetHeight = " & document.body.offsetHeight & vbCrlf _ & "document.body.offsetWidth = " & document.body.offsetWidth End Sub '------------------------------------------------------------------------------------------------------------------ </SCRIPT> <Body> <TEXTAREA name="txtInfos" id="txtInfos" style="background-color: powderblue; border-style: solid; position: absolute; left:12px; top: 12px; height:170px; width:400px"> </TEXTAREA> <TEXTAREA name="txtInfosBis" id="txtInfosBis" style="background-color: #DDFFA8; border-style: solid; position: absolute; left:424px; top: 12px; height:170px; width:400px"> </TEXTAREA> <img src="DemoImg.jpg" style="position: absolute; Left:96px; Top:190px" /> </Body> </HTML>
Pour faire fonctionner le HTA, vous devez récupérer cette image et la placer dans le même répertoire que le HTA
Partager