Centrer un form

Soyez le premier à donner votre avis sur cette source.

Vue 9 338 fois - Téléchargée 455 fois

Description


Source / Exemple :


form1.Left = (Screen.Width - form1.Width) / 2
form1.Top = (Screen.Height - form1.Height) / 2

Conclusion :


Code pour centre la form selon la resolution de l'ecran, C'est tout simple et ça peut rendre service...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
130
Date d'inscription
dimanche 16 décembre 2007
Statut
Membre
Dernière intervention
28 janvier 2013

En faite c'est très bien, car on ne peut pas changer "StartUpPosition " une fois le projet exécuté !
j'en ais même améliorer le concept sur les FORM, picture, et Fram :

dans un module, au niveau des déclaration mettre cela :

Public Enum alignment_align_picture_
Left_justify = 0
right_justify = 1
center_justify = 2
up_justify = 3
down_justify = 4
center_height_justify = 5
the_center_justify = 6
End Enum

Public Sub align_form(la_form As Form, alignment As alignment_align_picture_)
la_form.Refresh
Select Case alignment
Case 0
la_form.Left = 0
Case 1
la_form.Left = Screen.Width - la_form.Width
Case 2
la_form.Left = (Screen.Width - la_form.Width) \ 2
Case 3
la_form.Top = 0
Case 4
la_form.Top = Screen.Height - la_form.Height
Case 5
la_form.Top = (Screen.Height - la_form.Height) \ 2
Case 6
la_form.Left = (Screen.Width - la_form.Width) \ 2
la_form.Top = (Screen.Height - la_form.Height) \ 2
End Select
la_form.Refresh
End Sub

Public Sub align_picture(la_picture As PictureBox, dans_la_form As Form, alignment As alignment_align_picture_)
la_picture.Refresh
rx12! = dans_la_form.Width / dans_la_form.ScaleWidth
ry12! = dans_la_form.Height / dans_la_form.ScaleHeight
Select Case alignment
Case 0
la_picture.Left = 0
Case 1
la_picture.Left = (dans_la_form.Width - (la_picture.Width * rx12!)) / rx12!
Case 2
la_picture.Left = ((dans_la_form.Width - (la_picture.Width * rx12!)) \ 2) / rx12!
Case 3
la_picture.Top = 0
Case 4
la_picture.Top = (dans_la_form.Height - (la_picture.Height * ry12!)) / ry12!
Case 5
la_picture.Top = ((dans_la_form.Height - (la_picture.Height * ry12!)) \ 2) / ry12!
Case 6
la_picture.Left = ((dans_la_form.Width - (la_picture.Width * rx12!)) \ 2) / rx12!
la_picture.Top = ((dans_la_form.Height - (la_picture.Height * ry12!)) \ 2) / ry12!
End Select
la_picture.Refresh
End Sub

Public Sub align_frame(la_frame As Frame, dans_la_form As Form, alignment As alignment_align_picture_)
la_frame.Refresh
rx12! = dans_la_form.Width / dans_la_form.ScaleWidth
ry12! = dans_la_form.Height / dans_la_form.ScaleHeight
Select Case alignment
Case 0
la_frame.Left = 0
Case 1
la_frame.Left = (dans_la_form.Width - (la_frame.Width * rx12!)) / rx12!
Case 2
la_frame.Left = ((dans_la_form.Width - (la_frame.Width * rx12!)) \ 2) / rx12!
Case 3
la_frame.Top = 0
Case 4
la_frame.Top = (dans_la_form.Height - (la_frame.Height * ry12!)) / ry12!
Case 5
la_frame.Top = ((dans_la_form.Height - (la_frame.Height * ry12!)) \ 2) / ry12!
Case 6
la_frame.Left = ((dans_la_form.Width - (la_frame.Width * rx12!)) \ 2) / rx12!
la_frame.Top = ((dans_la_form.Height - (la_frame.Height * ry12!)) \ 2) / ry12!
End Select
la_frame.Refresh
End Sub

...

Et voilà amusez vous bien !

Au faite comment on fait pour déposer comme là un fichier ZIP pour partager nos projet sur le SITE VBFRANCE.FR ?
merci de me répondre, please :)
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
bien d'accord avec EuroLolo, la propriété StartUpPosition sur CenterScreen, emballé c'est pesé ^^
Messages postés
53
Date d'inscription
mercredi 22 novembre 2006
Statut
Membre
Dernière intervention
7 mars 2015
1
ce code est tres bien inutile de compliquer la procedure par un
"fCenterForm Me"
Messages postés
36
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
7 décembre 2007

Ce code est très simple et fonctionne très bien, moi je m'est 10 !!!!
Messages postés
8
Date d'inscription
lundi 9 octobre 2000
Statut
Membre
Dernière intervention
4 janvier 2004

Il y a bcp plus simple : il suffit de modifier la propriété StartUpPosition
Afficher les 6 commentaires

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.