AnchorStyles.Top : AnchorStyles « System.Windows.Forms « VB.Net by API

1. VB.Net by API
2. System.Windows.Forms
3. AnchorStyles

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

   
    
  

Related examples in the same category