VB.Net by API/System.Windows.Forms/AnchorStyles
AnchorStyles.Bottom
imports System
imports System.Drawing
imports System.Windows.Forms
public class ControlAnchorBottomLeft : inherits Form
public sub New()
Size = new Size(350,400)
dim xButtonSize as integer = 120
dim xMargin, yMargin as integer
xMargin = Font.Height * 2
yMargin = Font.Height * 2
dim btn as new Button()
btn.Parent = me
btn.Text = "Upper Left"
btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(xMargin, yMargin)
btn = new Button()
btn.Parent = me
btn.Text = "Lower Left"
btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(xMargin, me.ClientSize.Height - yMargin - 26)
btn.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left
end sub
public shared sub Main()
Application.Run(new ControlAnchorBottomLeft())
end sub
end class
AnchorStyles.Left
imports System
imports System.Drawing
imports System.Windows.Forms
public class ControlAnchorBottomLeft : inherits Form
public sub New()
Size = new Size(350,400)
dim xButtonSize as integer = 120
dim xMargin, yMargin as integer
xMargin = Font.Height * 2
yMargin = Font.Height * 2
dim btn as new Button()
btn.Parent = me
btn.Text = "Upper Left"
btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(xMargin, yMargin)
btn = new Button()
btn.Parent = me
btn.Text = "Lower Left"
btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(xMargin, me.ClientSize.Height - yMargin - 26)
btn.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left
end sub
public shared sub Main()
Application.Run(new ControlAnchorBottomLeft())
end sub
end class
AnchorStyles.Right
imports System
imports System.Drawing
imports System.Windows.Forms
public class ControlAnchorLeftRight : inherits Form
public sub New()
Size = new Size(350,400)
dim xButtonSize as integer = 120
dim xMargin, yMargin as integer
xMargin = Font.Height * 2
yMargin = Font.Height * 2
dim btn as new Button()
btn.Parent = me
btn.Text = "Upper Left"
btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(xMargin, yMargin)
btn = new Button()
btn.Parent = me
btn.Text = "Middle Span"
btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(xMargin,Cint(me.ClientSize.Height / 2) - 26)
btn.Anchor = AnchorStyles.Left Or AnchorStyles.Right
end sub
public shared sub Main()
Application.Run(new ControlAnchorLeftRight())
end sub
end class
AnchorStyles.Top
imports System
imports System.Drawing
imports System.Windows.Forms
public class ControlAnchorTopRight : inherits Form
public sub New()
Size = new Size(350,400)
dim xButtonSize as integer = 120
dim xMargin, yMargin as integer
xMargin = Font.Height * 2
yMargin = Font.Height * 2
dim btn as new Button()
btn.Parent = me
btn.Text = "Upper Left"
btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(xMargin, yMargin)
btn = new Button()
btn.Parent = me
btn.Text = "Upper Right"
btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(me.ClientSize.Width - xMargin - xButtonSize, yMargin)
btn.Anchor = AnchorStyles.Top Or AnchorStyles.Right
end sub
public shared sub Main()
Application.Run(new ControlAnchorTopRight())
end sub
end class