VB.NET Control.Bottom属性代码示例

' This example demonstrates how to use the KeyUp event with the Help class to display
' pop-up style help to the user of the application. When the user presses F1, the Help
' class displays a pop-up window, similar to a ToolTip, near the control. This example assumes
' that a TextBox control, named textBox1, has been added to the form and its KeyUp
' event has been contected to this event handler method.
Private Sub textBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles textBox1.KeyUp
    ' Determine whether the key entered is the F1 key. Display help if it is.
    If e.KeyCode = Keys.F1 Then
        ' Display a pop-up help topic to assist the user.
        Help.ShowPopup(textBox1, "Enter your first name", New Point(textBox1.Right, Me.textBox1.Bottom))
    End If
End Sub

imports System
imports System.Drawing
imports System.Windows.Forms

public class ControlSizeLocation : inherits Form
  Private WithEvents btnShow as Button
  Private WithEvents btnChange as Button

  public sub New()
    BackColor = Color.LightBlue
    ForeColor = Color.DarkBlue
    Size = new Size(350,200)

    btnShow = new Button()
    btnShow.Location = new Point(50,50)
    btnShow.Size = new Size(100,23)
    btnShow.Text = "Show"
    btnShow.Parent = me

    btnChange = new Button()
    btnChange.Location = new Point(200,50)
    btnChange.Size = new Size(100,23)
    btnChange.Text = "Change"
    btnChange.Parent = me
  end sub

  public shared sub Main() 
    Application.Run(new ControlSizeLocation())
  end sub

  private sub btnShow_Click(ByVal sender as object,ByVal e as EventArgs) Handles btnShow.Click
    Console.WriteLine("Button Bottom:  " + btnShow.Bottom.ToString())
    Console.WriteLine("Button Top:  " + btnShow.Top.ToString())
    Console.WriteLine("Button Left:  " + btnShow.Left.ToString())
    Console.WriteLine("Button Right:  " + btnShow.Right.ToString())
    Console.WriteLine("Button Location: " + btnShow.Location.ToString())
    Console.WriteLine("Button Width:  " + btnShow.Width.ToString())
    Console.WriteLine("Button Height:  " + btnShow.Height.ToString())
    Console.WriteLine("Button Size:  " + btnShow.Size.ToString())
    Console.WriteLine("Button ClientSize:  " + btnShow.ClientSize.ToString())
    Console.WriteLine("Form Size:  " + me.Size.ToString())
    Console.WriteLine("Form ClientSize: " + me.ClientSize.ToString())
  end sub

  private sub btnChange_Click(ByVal sender as object,ByVal e as EventArgs)Handles btnChange.Click
    me.Size = new Size(800,200)
  end sub
end class