Discussion :

[oscar.cesar]

bonjjour
j'ai faisqql recherche sur le forum mais en vain.
mon application doit tourner sur plusieurs ordinateurs dont la definition( taille de l'ecran)sous OS windowsXP varie.
certainssont en 1024/768, 800/600 voir 1280/1280 .
je souhaiterai à l'ouverture du userform (dans la procedure l'initialisation)que la taille de ce dernier se configure automatique en fonction de la definition de l'ecran .


actuellement ma procedure contient le code pour l'affichage en plein ecran

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub UserForm_initialize()
'affichage en pleine ecran
With Me
.StartUpPosition = 3 ' position en haut à gauche de l'ecran l'affichage du userform
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
..............

Merci pour votre aide

[edelweisseric]

Bonjour à tous
Bonjour oscar.cesar

Tu souhaites que l'USF ne soit plein écran ? mais adaptée à la résolution.
J'ai récupéré ce code de FJPT, mais je ne l'ai jamais testé :

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
40
41
Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Public L As Integer
Public H As Integer
Sub Res()
L = GetSystemMetrics(0)
H = GetSystemMetrics(1)
End Sub
 
'Je l'utilise pour tester la hauteur d'affichage et modifie ainsi la taille de l'USF :
 
Private Sub UserForm_Initialize()
Res
Select Case H
Case 1024
With A_USF1
.Zoom = 100: .Height = 672: .Width = 350: .Label3.Font.Size = 10
End With
Case 960
With A_USF1
.Zoom = 92: .Height = 625: .Width = 325: .Label3.Font.Size = 9
End With
Case 864
With A_USF1
.Zoom = 82: .Height = 555: .Width = 290: .Label3.Font.Size = 10
End With
Case 768
With A_USF1
.Zoom = 70: .Height = 480: .Width = 250: .Label3.Font.Size = 9: .TreeView1.Font.Size = 8
End With
Case 720
With A_USF1
.Zoom = 65: .Height = 445: .Width = 230: .Label3.Font.Size = 9: .TreeView1.Font.Size = 7
End With
Case 600
With A_USF1
.Zoom = 53: .Height = 370: .Width = 190: .Label3.Font.Size = 9: .TreeView1.Font.Size = 6
End With
Case Else
MsgBox "Résolution de : " & L & " x " & H & " : non paramétrée."
End Select
End Sub

Est ce que tu recherches ?
Eric

[oscar.cesar]

bonsoir
Super effectivement.
Apres qql adaptation

Code :

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

1
2
 
 private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long

Code :

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

1
2
 
A_USF1 par userform1 pour mon cas

ainsi que les reglage adapte à l'affichage souhaite )

voila