Centrer un form
Soyez le premier à donner votre avis sur cette source.
Vue 9 484 fois - Téléchargée 456 fois
Description
Codes Sources
A voir également
- Centre de form
- Centre form - Meilleures réponses
- Centrer une forme - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
- Centre une form par rapport à une autre - Codes sources - Visual Basic / VB.NET (Modules)
- Centrer une Form ✓ - Forum - Visual Basic 6
- Centrer un form en utilisant le code ✓ - Forum - Delphi / Pascal
- Centrer une form à l'écran ✓ - Forum - C# / .NET
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
68- Messages postés
-
53
- Date d'inscription
- mercredi 22 novembre 2006
- Statut
- Membre
- Dernière intervention
- 7 mars 2015
1"fCenterForm Me"
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.