Browse DevX
Sign up for e-mail newsletters from DevX

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



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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
		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:

Form2.ShowCentered Me, vbModal
Ian Carter
Comment and Contribute






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



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