Maximiser un userform à l'initialisation

Version imprimable

j'ai déjà déclaré les fonctions API et une fonction "InitMaxMin" dans un module standard, aussi j'ai définie la fonction resize et fini de mon userform
les petites icones de réduction et d'agrandissement marchent très bien, bref Max Min Resize fonctionnent bien.
je voulais seulement maximiser mon userfom à l'initialisation

dans un module standard ( mon code ):

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
Option Explicit
 
' declaration API pour réduire, agrandir,resize
Public Declare Function FindWindowA& Lib "user32" (ByVal lpClassName$, ByVal lpWindowName$)
Public Declare Function GetWindowLongA& Lib "user32" (ByVal hwnd&, ByVal nIndex&)
Public Declare Function SetWindowLongA& Lib "user32" (ByVal hwnd&, ByVal nIndex&, ByVal dwNewLong&)
 
' Déclaration des constantes
Public Const GWL_STYLE As Long = -16
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_FULLSIZING = &H70000
 
'Attention, envoyer après changement du caption de l'UF
Public Sub InitMaxMin(mCaption As String, Optional Max As Boolean = True, Optional Min As Boolean = True _
        , Optional Sizing As Boolean = True)
Dim hwnd As Long
    hwnd = FindWindowA(vbNullString, mCaption)
    If Min Then SetWindowLongA hwnd, GWL_STYLE, GetWindowLongA(hwnd, GWL_STYLE) Or WS_MINIMIZEBOX
    If Max Then SetWindowLongA hwnd, GWL_STYLE, GetWindowLongA(hwnd, GWL_STYLE) Or WS_MAXIMIZEBOX
    If Sizing Then SetWindowLongA hwnd, GWL_STYLE, GetWindowLongA(hwnd, GWL_STYLE) Or WS_FULLSIZING
End Sub
 
'Application.DisplayFullScreen = True

Bonsoir,

Peut être pas parfait mais très court!

Code:

1
2
3
4
5
6
 
Private Sub UserForm_Initialize()
    Application.WindowState = xlMaximized
    Me.Height = Application.Height
    Me.Width = Application.Width
End Sub

maximiser un userform à l'initialisation

@arosec

ça marche pas, parce que dans userform-resize() j'ai déclaré des variables qui sont fonction de Me.Height et Me.Width, donc j'avais un débogage dans ces deux lignes.

voici mon code:
Code:

1 2 3 4 5 6 7 8 Private Sub UserForm_Resize() Dim RtL As Single, RtH As Single If Me.Width < 300 Or Me.Height < 200 Or Fini Then Exit Sub RtL = Me.Width / Lg RtH = Me.Height / Ht Me.Zoom = IIf(RtL < RtH, RtL, RtH) * 100 End Sub

heu

Bonjour

mais non! il y a les apis pour ca

si tu avais fait une recherche dans les contributions et même dans ce forum tu aurais trouvé tres facilement

c'est un sujet assez récurent

version 32 bits
colle ca dans un module standard

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
 
 Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   Public Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
   Public Declare Function SWLg Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public HANDLE
Public old_largeur
Public old_hauteur
Function trois_boutons(uf As Object)    'on va ajouter les deux boutons manquants et l'élasticité a l'userform
'*****************************************************************
'*ici on memorise les dimention de depart de l'userform          *
    old_largeur = uf.InsideWidth: old_hauteur = uf.InsideHeight    '*
'*****************************************************************
'***************************************************************************************************************
' ici on determine le handle                                                                                   *
    HANDLE = FindWindow(vbNullString, uf.Caption)    '                                                         *
' ici on applique les changement (&H84CF0080= les trois bouton et l'elasticité)                                *
    SWLg HANDLE, -16, &H84CF0080                                                                              '*
'***************************************************************************************************************
'***********************************************************************************************************************************************************
'on memorise a l'interieur du tag du control ses propriétés ainsi que son son font size                                                                   '*
    For Each ctrl In uf.Controls                                                                                                                          '*
        ctrl.Tag = ctrl.Left & ";" & ctrl.Top & ";" & ctrl.Width & ";" & ctrl.Height                                                                      '*
        If TypeName(ctrl) <> "SpinButton" And TypeName(ctrl) <> "Image" And TypeName(ctrl) <> "ScrollBar" Then ctrl.Tag = ctrl.Tag & ";" & ctrl.Font.Size '*
    Next                                                                                                                                                  '*
'***********************************************************************************************************************************************************
End Function
Function plein_ecran()
' on affiche le userform en plein ecran avec l'api showwindowa de la user32.dll  bien moins lourd que mes versions precedente de maximisation de l'userform et plus rapide et plus propre
'1= mode normal:3 =maximiser:6 =minimiser
'le handle du userform a été declaré en public au debut du module et  identifié dans la routine des trois boutons il n'est donc plus necessaire de l'identifier
ShowWindow HANDLE, 3
End Function
 
Function maForm_Resize(usf As UserForm)
'ici on determine le multiplicateur qui differenci la dimention de base a celle actuelle de l'userform
    newlargeur = usf.InsideWidth / old_largeur: newhauteur = usf.InsideHeight / old_hauteur
    'ici on boucle sur tout les controls
    For Each Ctl In usf.Controls
        ppe = Split(Ctl.Tag, ";")    'on coupe le tag par les ";"
        'et on applique le multiplicateur au controls pour la largeur et la hauteur en une seule ligne
        Ctl.Move ppe(0) * newlargeur, ppe(1) * newhauteur, ppe(2) * newlargeur, ppe(3) * newhauteur
        'l'element(4) de ppe contient le font size du controls
        If UBound(ppe) = 4 Then Ctl.Font.Size = ppe(4) * newlargeur
    Next
End Function

et ca dans le module du userform

Code:

1
2
3
4
5
6
7
8
Private Sub UserForm_Activate()
 
trois_boutons Me 'on ajoute les 2 boutons de la captions qui manque 'FACULTATIF
plein_ecran 'on met en plein écran des le départ
End Sub
Private Sub UserForm_Resize()
maForm_Resize Me 'on va redimensionner les contrôles proportionnellement
End Sub

teste ca tu m'en diras des nouvelles
si tu travaille en 64 bits il te faudra modifier la déclaration des 3 apis en 64 bits
dis moi si tu n'y arrive pas et ou est l'erreur si il y a

Au plaisir

11/05/2014, 01h00
seeker1

résolu

@ patricktoulon
votre suggestion fonctionne très bien.
Merci