Centrer un form

Soyez le premier à donner votre avis sur cette source.

Vue 9 835 fois - Téléchargée 469 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
rebixav Messages postés 130 Date d'inscription dimanche 16 décembre 2007 Statut Membre Dernière intervention 28 janvier 2013
17 août 2012 à 08:47
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 :)
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
1 juin 2007 à 06:50
bien d'accord avec EuroLolo, la propriété StartUpPosition sur CenterScreen, emballé c'est pesé ^^
Le Papa de Thibaut Messages postés 53 Date d'inscription mercredi 22 novembre 2006 Statut Membre Dernière intervention 7 mars 2015 1
1 juin 2007 à 06:33
ce code est tres bien inutile de compliquer la procedure par un
"fCenterForm Me"
Osiris6880 Messages postés 36 Date d'inscription vendredi 29 octobre 2004 Statut Membre Dernière intervention 7 décembre 2007
11 févr. 2006 à 15:05
Ce code est très simple et fonctionne très bien, moi je m'est 10 !!!!
MasterGone Messages postés 8 Date d'inscription lundi 9 octobre 2000 Statut Membre Dernière intervention 4 janvier 2004
25 mars 2002 à 09:59
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.