VB.Net - 标签控件

• 

  简述

  Label 控件代表一个标准的 Windows 标签。它通常用于在 GUI 上显示一些在运行时不会更改的信息性文本。

  让我们通过从工具箱中拖动一个 Label 控件并将其放在窗体上来创建一个标签。

  
• 

  标签控件的属性

  以下是 Label 控件的一些常用属性 -

  序号	属性和描述
  1	Autosize 获取或设置一个值，该值指定是否应自动调整控件大小以显示其所有内容。
  2	BorderStyle 获取或设置控件的边框样式。
  3	FlatStyle 获取或设置 Label 控件的平面样式外观
  4	Font 获取或设置控件显示的文本字体。
  5	FontHeight 获取或设置控件字体的高度。
  6	ForeColor 获取或设置控件的前景色。
  7	PreferredHeight 获取控件的首选高度。
  8	PreferredWidth 获取控件的首选宽度。
  9	TabStop 获取或设置一个值，该值指示用户是否可以使用 Tab 键切换到 Label。此类不使用此属性。
  10	Text 获取或设置与此控件关联的文本。
  11	TextMoogn 获取或设置标签中文本的对齐方式。

• 

  标签控件的方法

  以下是 Label 控件的一些常用方法 -

  序号	方法名称和描述
  1	GetPreferredSize 检索可以安装控件的矩形区域的大小。
  2	Refresh 强制控件使其客户区无效并立即重绘自身和任何子控件。
  3	Select 激活控制。
  4	Show 向用户显示控件。
  5	ToString 返回一个包含控件名称的字符串。

• 

  标签控件的事件

  以下是 Label 控件的一些常用事件 -

  序号	事件和描述
  1	AutoSizeChanged 当 AutoSize 属性的值更改时发生。
  2	Click 单击控件时发生。
  3	DoubleClick 双击控件时发生。
  4	GotFocus 当控件获得焦点时发生。
  5	Leave 当输入焦点离开控件时发生。
  6	LostFocus 当控件失去焦点时发生。
  7	TabIndexChanged 在 TabIndex 属性值更改时发生。
  8	TabStopChanged 在 TabStop 属性更改时发生。
  9	TextChanged 当 Text 属性值更改时发生。

  有关 Label 控件的属性、方法和事件的详细列表，请参阅 Microsoft 文档。
• 

  例子

  以下是一个示例，展示了我们如何创建两个标签。让我们从设计器视图选项卡创建第一个标签，并从属性窗口设置其属性。我们将分别使用标签的 Click 和 DoubleClick 事件来移动第一个标签并更改其文本并创建第二个标签并将其添加到表单中。

  采取以下步骤 -

  • 将 Label 控件拖放到窗体上。
  • 设置 Text 属性以提供标题“这是一个标签控件”。
  • 从属性窗口设置字体属性。
  • 在代码窗口点击标签添加Click事件，添加如下代码。

  
  Public Class Form1
     Private Sub Form1_Load(sender As Object, e As EventArgs) _
        Handles MyBase.Load
        
        ' Create two buttons to use as the accept and cancel buttons. 
        ' Set window width and height
        Me.Height = 300
        Me.Width = 560
        ' Set the caption bar text of the form.  
        Me.Text = "tutorialspont.com"
        ' Display a help button on the form.
        Me.HelpButton = True
     End Sub
     Private Sub Label1_Click(sender As Object, e As EventArgs) _
        Handles Label1.Click
        Label1.Location = New Point(50, 50)
        Label1.Text = "You have just moved the label"
     End Sub
     Private Sub Label1_DoubleClick(sender As Object, e As EventArgs) 
        Handles Label1.DoubleClick
        Dim Label2 As New Label
        Label2.Text = "New Label"
        Label2.Location = New Point(Label1.Left, Label1.Height + _ 
        Label1.Top + 25)
        Me.Controls.Add(Label2)
     End Sub
  End Class
  

  当上面的代码被执行并运行时使用 Start Microsoft Visual Studio 工具栏上可用的按钮，它将显示以下窗口 -

  

  单击并双击标签会产生以下效果 -