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

btdi 17 Messages postés jeudi 6 décembre 2007Date d'inscription 13 mai 2012 Dernière intervention - 2 mai 2010 à 03:26 - Dernière réponse : Whismeril 12023 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 19 septembre 2018 Dernière intervention
- 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

6 réponses

Meilleure réponse
cs_christoni 140 Messages postés mardi 25 novembre 2003Date d'inscription 1 novembre 2010 Dernière intervention - 2 mai 2010 à 16:34
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)

Merci cs_christoni 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

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

Merci cs_christoni 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Commenter la réponse de cs_christoni
grosbill2004 10 Messages postés mercredi 31 mars 2010Date d'inscription 6 septembre 2010 Dernière intervention - 2 mai 2010 à 14:01
-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 12023 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 19 septembre 2018 Dernière intervention - 10 févr. 2018 à 14:22
Bonjour, ici c’est du vb.net, ça n’est pas compatible avec vb6
Commenter la réponse de grosbill2004
btdi 17 Messages postés jeudi 6 décembre 2007Date d'inscription 13 mai 2012 Dernière intervention - 2 mai 2010 à 14:30
-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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.