VB.Net by API/System.Windows.Forms/AnchorStyles — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
(нет различий)

Текущая версия на 12:52, 26 мая 2010

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