当前位置: 首页>>代码示例>>VB.NET>>正文


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

本文整理汇总了VB.NET中System.Windows.Forms.Control.Right属性的典型用法代码示例。如果您正苦于以下问题:VB.NET Control.Right属性的具体用法?VB.NET Control.Right怎么用?VB.NET Control.Right使用的例子?那么恭喜您, 这里精选的属性代码示例或许可以为您提供帮助。


在下文中一共展示了Control.Right属性的3个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的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
开发者ID:VB.NET开发者,项目名称:System.Windows.Forms,代码行数:35,代码来源:Control.Right

示例2: Point

' 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
开发者ID:VB.NET开发者,项目名称:System.Windows.Forms,代码行数:12,代码来源:Control.Right

示例3: 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
开发者ID:VB程序员,项目名称:System.Windows.Forms,代码行数:48,代码来源:Control.Right


注:本文中的System.Windows.Forms.Control.Right属性示例由纯净天空整理自Github/MSDocs等开源代码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。