Visual Basic 标签 Label
Label 控件表示标准 Windows 标签。它通常用于在 GUI 上显示一些在运行时不会更改的信息性文本。
让我们通过从工具箱中拖动 Label 控件并将其放到表单上来创建标签。

Label 控件的属性
下面列表是 Label 控件的常用属性:
| 编号 | 属性 & 描述 |
|---|---|
| 1 | Autosize 获取或设置一个值,该值表示是否应自动调整控件的大小以显示其所有内容。 |
| 2 | BorderStyle 获取或设置控件的边框样式。 |
| 3 | FlatStyle 获取或设置 Label 控件的平面样式外观。 |
| 4 | Font 获取或设置控件显示的文本的字体。 |
| 5 | FontHeight 获取或设置控件字体的高度。 |
| 6 | ForeColor 获取或设置控件的前景色。 |
| 7 | PreferredHeight 获取控件的首选高度。 |
| 8 | PreferredWidth 获取控件的首选宽度。 |
| 9 | TabStop 获取或设置一个值,该值表示用户是否可以标记标签此类未使用此属性。 |
| 10 | Text 获取或设置与此控件关联的文本。 |
| 11 | TextAlign 获取或设置标签中文本的对齐方式。 |
Label 控件的方法
下面列表是 Label 控件的常用方法:
| 编号 | 方法名称 & 描述 |
|---|---|
| 1 | GetPreferredSize 检索可显示控件的矩形区域的大小。 |
| 2 | Refresh 强制控件使其客户端区域无效,并立即重新绘制自身和所有子控件。 |
| 3 | Select 激活控件。 |
| 4 | Show 向用户显示控件。 |
| 5 | ToString 返回包含控件名称的字符串。 |
Label 控件的事件
下面列表是 Label 控件的常用事件:
| 编号 | 事件 & 描述 |
|---|---|
| 1 | AutoSizeChanged 当 AutoSize 属性的值更改时发生。 |
| 2 | Click 单击控件时发生。 |
| 3 | DoubleClick 双击控件时发生。 |
| 4 | GotFocus 控件接收焦点时发生。 |
| 5 | Leave 当输入焦点离开控件时发生。 |
| 6 | LostFocus 控件失去焦点时发生。 |
| 7 | TabIndexChanged 在 TabIndex 属性值更改时发生。 |
| 8 | TabStopChanged TabStop 属性更改时发生。 |
| 9 | TextChanged 在文本属性值更改时发生。 |
有关 Label 控件的属性、方法和事件的详细列表,请参考 Microsoft 文档。
实例
下面是一个实例,它显示了如何创建两个标签。让我们从 designer 视图选项卡创建第一个标签,并从属性窗口设置其属性。我们将使用标签的 Click 和 DoubleClick 事件分别移动第一个标签并更改其文本,创建第二个标签并将其添加到表单中。
使用以下步骤:
- 在窗体上拖放标签控件。
- 设置 Text 属性以提供标题 "This is a Label Control"。
- 从 "属性" 窗口设置字体属性。
- 单击标签以在代码窗口中添加
Click事件,并添加以下代码。
Public Class Form1Private 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 heightMe.Height = 300Me.Width = 560' Set the caption bar text of the form.Me.Text = "cankaoshouce.com"' Display a help button on the form.Me.HelpButton = TrueEnd SubPrivate Sub Label1_Click(sender As Object, e As EventArgs) _Handles Label1.ClickLabel1.Location = New Point(50, 50)Label1.Text = "You have just moved the label"End SubPrivate Sub Label1_DoubleClick(sender As Object, e As EventArgs)Handles Label1.DoubleClickDim Label2 As New LabelLabel2.Text = "New Label"Label2.Location = New Point(Label1.Left, Label1.Height + _Label1.Top + 25)Me.Controls.Add(Label2)End SubEnd Class
当使用 Microsoft Visual Studio 工具栏上的 "开始" 按钮执行并运行上述代码时,它将显示以下窗口:

单击并双击标签将产生以下效果:
