Discussion :

[patricktoulon]

bonjour a tous
toujour dans un souci de 'alegement de code de code

voila une autre façon de mettre le userform en plein écran au démarrage de celui ci

j'ai simplement utilisé le findWindowA pour le handle et le showWindow pour l'affichage de l'api user32.dll de windows
pour le handle 1 ligne de code

pour le plein écran 1 ligne de code

pour le redimensionnement automatiques des controls 5 lignes de codes

je joins le fichier en exemple

[patricktoulon]

bonjour
j ajoute une petite correction pour gérer le redimensionnement de tout type de controls

en effet les image ,les scrollbars,et autres controls n'ont pas de caption donc des que l'on arrivait au redimensionnement de s caractères BUG!!!!!

alors en ajoutant un tag au élément qui n'ont pas de caption

et en modifiant la macro "redimensionnement" le problème est réglé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub redimentionnement()
     largeur = maform.Width / largeur_initiale: hauteur = maform.Height / hauteur_initiale 'trouve l'operateur qui donne la diference entre la form initiale et la form actuelle
 
       For Each Ctl In maform.Controls
        'on a mis un tag pour les contrôles que l'on ne veut pas redimensionner
                Ctl.Move Ctl.left * largeur, Ctl.Top * hauteur, Ctl.Width * largeur, Ctl.Height * hauteur
        If Ctl.Tag = "" Then
        Ctl.Font.Size = Round(Ctl.Font.Size * hauteur)   'redim des polices
        End If
    Next
End Sub