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

' Create three buttons and place them on a form using 
' several size and location related properties. 
Private Sub AddOKCancelButtons()
   ' Set the button size and location using 
      ' the Size and Location properties. 
   Dim buttonOK As New Button()
   buttonOK.Location = New Point(136, 248)
   buttonOK.Size = New Size(75, 25)
   ' Set the Text property and make the 
   ' button the form's default button. 
   buttonOK.Text = "&OK"
   Me.AcceptButton = buttonOK
   
   ' Set the button size and location using the Top, 
   ' Left, Width, and Height properties. 
   Dim buttonCancel As New Button()
   buttonCancel.Top = buttonOK.Top
   buttonCancel.Left = buttonOK.Right + 5
   buttonCancel.Width = buttonOK.Width
   buttonCancel.Height = buttonOK.Height
   ' Set the Text property and make the 
   ' button the form's cancel button. 
   buttonCancel.Text = "&Cancel"
   Me.CancelButton = buttonCancel
   
   ' Set the button size and location using 
   ' the Bounds property. 
   Dim buttonHelp As New Button()
   buttonHelp.Bounds = New Rectangle(10, 10, 75, 25)
   ' Set the Text property of the button.
   buttonHelp.Text = "&Help"
   
   ' Add the buttons to the form.
   Me.Controls.AddRange(New Control() {buttonOK, buttonCancel, buttonHelp})
End Sub

' 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