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

Messages postés
17
Date d'inscription
jeudi 6 décembre 2007
Statut
Membre
Dernière intervention
13 mai 2012
- - Dernière réponse : Whismeril
Messages postés
13295
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
23 mai 2019
- 10 févr. 2018 à 14:22
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
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
Messages postés
140
Date d'inscription
mardi 25 novembre 2003
Statut
Membre
Dernière intervention
1 novembre 2010
5
1
Merci
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)

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 153 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_christoni
Messages postés
140
Date d'inscription
mardi 25 novembre 2003
Statut
Membre
Dernière intervention
1 novembre 2010
5
1
Merci
Il faut aussi ajouter :
        '*** Location du formulaire.
        Me.Location = New System.Drawing.Point(0, 0)

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 153 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_christoni
Messages postés
10
Date d'inscription
mercredi 31 mars 2010
Statut
Membre
Dernière intervention
6 septembre 2010
-1
Merci
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
Bon jour
j'ai essay ce code mais s'amarche pas , je vous informe que je mon logiciel et programé en vb 6.
j'ai changer Application par le nom de la feuille d'execution , mais s'marche pas.
j'ai changer Me par le nom de lafeuille d'execution , mais toujr le meme probleme .
aide moi s'il vous plais .
Merci !!
Whismeril
Messages postés
13295
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
23 mai 2019
273 -
Bonjour, ici c’est du vb.net, ça n’est pas compatible avec vb6
Commenter la réponse de grosbill2004
Messages postés
17
Date d'inscription
jeudi 6 décembre 2007
Statut
Membre
Dernière intervention
13 mai 2012
-1
Merci
ç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
Commenter la réponse de btdi