Ajuster la taille d' un form en fonction de la resolution de l'ecran

Question

Salut tout le monde

je veux savoir si il y a une possibilité de redimensionner un form et son contenu en fonction de la résolution et de ça taille(en pouce) de l'écran 
Merci d'avance

grosbill2004 · Answer

Gros Bill 2004 

Salut BtDi

place dans l'initialisation de ton UserForm

Private Sub UserForm_Initialize()
Dim W As Double
Dim h As Double
Dim CoefH As Double
Dim CoefW As Double
Dim zFactor As Single

W = Application.UsableWidth
h = Application.UsableHeight

CoefW = (W / Me.Width)
CoefH = (h / Me.Height)


Me.Width = Me.Width * CoefW
Me.Height = Me.Height * CoefH

zFactor = (Application.Width / Me.Width)
zFactor = Round(zFactor * 100, 0) - 2
If zFactor > 400 Then zFactor = 400
Me.Width = Application.Width
Me.Height = Application.Height
Me.Zoom = zFactor

End Sub

btdi · Answer

ça marche pas !!!
il génère cette erreur 'UsableHeight' n'est pas un membre de 'System.Windows.Forms.Application'.
     je travail sous visuel studio 2008

cs_christoni · Answer

Bonsoir, code à tester :        
        '*** Adapte le formulaire à l'espace de travail de l'écran. L'espace de travail est 
        '    la zone d'affichage du bureau, à l'exception des barres des tâches, 
        '    des fenêtres et barres d'outils ancrées.
        Me.Size = New System.Drawing.Size(Screen.PrimaryScreen.WorkingArea.Width, _
            Screen.PrimaryScreen.WorkingArea.Height)

cs_christoni · Answer

Il faut aussi ajouter :
        '*** Location du formulaire.
        Me.Location = New System.Drawing.Point(0, 0)

Ajuster la taille d' un form en fonction de la resolution de l'ecran

4 réponses

Votre réponse

Discussions similaires