1 pièce(s) jointe(s)
[HTA] Dimensions et positionnement
Salut
Un petit rappel sur les propriétés du positionnement et dimensions d'un HTA.
Code:
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.
Pièce jointe 138734
Pour faire fonctionner le HTA, vous devez récupérer cette image et la placer dans le même répertoire que le HTA
