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 Your Forms

Add a method in VB 4.0 to center your forms against the screen or a parent form. Create a new project with two forms. Add this code to Form2:
 Public Sub ShowCentered(Optional vParent, _
	Optional vShowMode)
Dim oParent As Object
Dim iMode%, iLeft%, iTop%

	If IsMissing(vParent) Then 'default is Screen object
		Set oParent = Screen
	ElseIf TypeOf vParent Is Screen Or _
		TypeOf vParent Is Form Then
		Set oParent = vParent 
		'can add MDIForm to this condition
	Else
		Exit Sub
	End If

	If IsMissing(vShowMode) Then iMode = vbModeless Else _
		iMode = Abs(vShowMode) Mod 2
	'default is Modeless

	If TypeOf oParent Is Form Then iLeft = oParent.Left: _
		iTop = oParent.Top
	'cannot use Left and Top for Screen

	Move iLeft + (oParent.Width - Width) / 2, _
		iTop + (oParent.Height - Height) / 2

	Show iMode
End Sub
Put this code in Form1's Form_Load event:
 Show

Form2.ShowCentered Me, vbModal
Ian Carter
 
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