Salut

Un petit rappel sur les propriétés du positionnement et dimensions d'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 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.
Nom : DemoImg.jpg Affichages : 981 Taille : 128,1 Ko
Pour faire fonctionner le HTA, vous devez récupérer cette image et la placer dans le même répertoire que le HTA