redimensionner une fenêtre

**papyxy** · 27/10/2012, 13h49

Bonjour
A partir d'un prog HTA, j' accède à une fenêtre modale; mais je n'arrive pas à redimensionner cette fenêtre. voila un extrait des codes :

Appelant

Code :

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

              zn=   ShowModalDialog("Créclé.hta",mdb)

Appelé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
<html>
	<HEAD>
		<TITLE>Application : MESCLES</TITLE>
		<HTA:Application ICON =
"C:\Documents and Settings\Admin\Mes documents\Mes images\Icones\clé.ico"
		                   ID = 'AppBonjour'
		                SCROLL= 'no'
		        MAXIMIZEBUTTON= 'no'
                 >
	<script language="VBScript">
Sub Window_onLoad
		      window.moveTo    50,10      
		      window.resizeTo 900,260

**hackoofr** · 27/10/2012, 15h08

un petit coup d’œil sur cet exemple de Menu en HTA : pour voir comment appeller cette fonction

Code :

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

1
2
3
4
5
SUB InnerWindowSize(intWidth,intHeight) 
 Self.ResizeTo intWidth,intHeight 
 Self.ResizeTo intWidth+(intWidth-Document.Body.OffsetWidth),intHeight+(intHeight-Document.Body.OffsetHeight) 
 Self.MoveTo (Screen.Width/2)-(intWidth/2),(Screen.Height/2)-(intHeight/2) 
 END SUB

**papyxy** · 27/10/2012, 16h55

j'ai essayé la routine, sans plus de succès.
Il semblerait que cet inconvénient se produise du fait qu'il soit dans une
sous-fenêtre, car lorsque j'exécute directement ce (sous) programme; la redimension se fait bien.

je rencontre pas mal de difficultés par manque de connaissance; notamment sur ce qui suit :

Code :

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

<BODY TOPMARGIN="1" LEFTMARGIN="1"><CENTER><DIV><SPAN ID="ONSCR"></SPAN></DIV></CENTER></BODY>

j'ai aussi essayé l'appli. mais elle m'envoie une erreur sur

Code :

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

sleep

**ProgElecT** · 27/10/2012, 18h21

Salut
Un exemple vite fait mais vérifié

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
<HEAD>
<TITLE>Un Bouton</TITLE>
<HTA:APPLICATION
      APPLICATION="htaBouton"
 
 >
 </HEAD>
 <script language="VBScript">
Sub FenetreModal1
	zn=   ShowModalDialog("C:\PersoFrancis\En VBScript et HTA\Essais HTAs\Dur.hta",,"dialogHeight:200px,dialogWidth:300px")
end sub
Sub FenetreModal2
	zn=   ShowModalDialog("C:\PersoFrancis\En VBScript et HTA\Essais HTAs\Dur.hta",,"dialogHeight:300px,dialogWidth:600px")
end sub
</SCRIPT>
<body>
<input type="button" value="Tester1" onClick="FenetreModal1">
<input type="button" value="Tester2" onClick="FenetreModal2">
</body>

**papyxy** · 27/10/2012, 19h02

Après prise en compte de votre exemple.
je ne comprends pas ; sur la hauteur, pas de problème. J' obtiens ce que je veux. Mais sur la largeur il n'y-a pas d'effet; malgré les différentes valeurs celle-ci reste invariablement de la même longueur.

**ProgElecT** · 27/10/2012, 19h13

http://msdn.microsoft.com/en-us/library/ms536759.aspx
Donc le problème est peut être dût à

Envoyé par showModalDialog method

Pour Windows Internet Explorer 7, dialogHeight et dialogWidth retourner la hauteur et la largeur de la zone de contenu et ne comprend plus la hauteur et la largeur du cadre.

Internet Explorer 7. Bien qu'un utilisateur peut régler manuellement la hauteur d'une boîte de dialogue à une valeur inférieure fournie par la boîte de dialogue est redimensionnable, le minimum dialogHeight vous pouvez spécifier est de 100 pixels, et le minimum dialogWidth vous pouvez définir est de 250 pixels. Dans les versions antérieures à Internet Explorer 7, la valeur minimale de la dialogWidth qui peut être spécifiée est de 100 pixels.

**papyxy** · 27/10/2012, 20h48

Effectivement je suis avec la version 8 d'explorer.
Donc cela explique cela

redimensionner une fenêtre

VBScript

Discussions similaires

Partager

Partager