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
|