本文整理汇总了VB.NET中System.Windows.Forms.Control.Top属性的典型用法代码示例。如果您正苦于以下问题:VB.NET Control.Top属性的具体用法?VB.NET Control.Top怎么用?VB.NET Control.Top使用的例子?那么, 这里精选的属性代码示例或许可以为您提供帮助。
在下文中一共展示了Control.Top属性的2个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: AddOKCancelButtons
' 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
示例2: New
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