Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
Calss for Positioning a form
Author:
Michel Renaud
E-mail:
Click to e-mail author
Submitted:
9/22/2007
Version:
VB 2005
Compatibility:
VB 2005, VB 2008
Category:
Forms
Views:
11043
Calss for Positioning a form.
Declarations:
'none
Code:
Public Class Position_Form Public Enum Position Top_Right = 1 Top_Centre = 2 Top_Left = 3 Middle_Right = 4 Middle_Center = 5 Middle_Left = 6 Bottom_Right = 7 Bottom_Center = 8 Bottom_Left = 9 End Enum Dim pos As Position Public Sub SelectPosition(ByVal frm As Form, ByVal pos As Position) If frm.WindowState = FormWindowState.Normal Or frm.WindowState = FormWindowState.Minimized Then Select Case pos Case Is = Position.Bottom_Left frm.Location = New Point(0, Screen.PrimaryScreen.WorkingArea.Height - frm.Height) Case Is = Position.Bottom_Center frm.Location = New Point((Screen.PrimaryScreen.WorkingArea.Width - frm.Width) / 2, Screen.PrimaryScreen.WorkingArea.Height - frm.Height) Case Is = Position.Bottom_Right frm.Location = New Point((Screen.PrimaryScreen.WorkingArea.Width - frm.Width), Screen.PrimaryScreen.WorkingArea.Height - frm.Height) Case Is = Position.Middle_Center frm.Location = New Point((Screen.PrimaryScreen.WorkingArea.Width - frm.Width) / 2, (Screen.PrimaryScreen.WorkingArea.Height - frm.Height) / 2) Case Is = Position.Middle_Left frm.Location = New Point((0), (Screen.PrimaryScreen.WorkingArea.Height - frm.Height) / 2) Case Is = Position.Middle_Right frm.Location = New Point(Screen.PrimaryScreen.WorkingArea.Width - frm.Width, (Screen.PrimaryScreen.WorkingArea.Height - frm.Height) / 2) Case Is = Position.Top_Centre frm.Location = New Point((Screen.PrimaryScreen.WorkingArea.Width - frm.Width) / 2, 0) Case Is = Position.Top_Left frm.Location = New Point(0, 0) Case Is = Position.Top_Right frm.Location = New Point((Screen.PrimaryScreen.WorkingArea.Width - frm.Width), 0) End Select End If End Sub End Class 'how to use in combobox Dim pf As New Position_Form Private Sub cboPosition_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboPosition.SelectedIndexChanged Select Case cboPosition.SelectedIndex Case Is = 0 'TopRight pf.SelectPosition(Me, Position_Form.Position.Top_Right) Case Is = 1 'TopLeft pf.SelectPosition(Me, Position_Form.Position.Top_Left) Case Is = 2 'TopCenter pf.SelectPosition(Me, Position_Form.Position.Top_Centre) Case Is = 3 'MiddleRight pf.SelectPosition(Me, Position_Form.Position.Middle_Right) Case Is = 4 'MiddleCenter pf.SelectPosition(Me, Position_Form.Position.Middle_Center) Case Is = 5 'MiddleLeft pf.SelectPosition(Me, Position_Form.Position.Middle_Left) Case Is = 6 'BottomRight pf.SelectPosition(Me, Position_Form.Position.Bottom_Right) Case Is = 7 'BottomCenter pf.SelectPosition(Me, Position_Form.Position.Bottom_Center) Case Is = 8 'BottomLeft pf.SelectPosition(Me, Position_Form.Position.Bottom_Left) End Select End Sub
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement