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 11408 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 21 avril 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 

6 réponses

Répondre au sujet
cs_christoni 140 Messages postés mardi 25 novembre 2003Date d'inscription 1 novembre 2010 Dernière intervention - 2 mai 2010 à 16:34
+1
Utile
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)
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_christoni
cs_christoni 140 Messages postés mardi 25 novembre 2003Date d'inscription 1 novembre 2010 Dernière intervention - 2 mai 2010 à 17:16
+1
Utile
Il faut aussi ajouter :
        '*** Location du formulaire.
        Me.Location = New System.Drawing.Point(0, 0)
Cette réponse vous a-t-elle aidé ?  
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
Utile
2
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 11408 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 21 avril 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
Utile
ç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.