Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Aug 6, 1997

Center Forms Onscreen

I use this procedure to center my forms. With frmParent, the last loaded form is centered against the parent form. Otherwise, it's centered against the screen. I always center forms in the Load event and often forget to put Me as the parameter. To center any form, put CenterForm in the Form_Load event:

 
Public Sub CenterForm(Optional _
        frmParent)
If Forms.Count = 0 Then Exit Sub
If IsMissing(frmParent) Or Not TypeOf _
        frmParent Is Form Then 
        Forms(Forms.Count - 1).Move _
                (Screen.Width - _
                Forms(Forms.Count - _
                1).Width) / 2, _
                (Screen.Height - Forms(Forms. _
                Count - 1).Height) / 2
Else
        Forms(Forms.Count - 1).Move _
                (frmParent.Width - Forms(Forms. _
                Count - 1).Width) / 2, _
                (frmParent.Height - _
                Forms(Forms.Count - _
                1).Height) / 2
End If
End Sub

Denis Basaric
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date