Label
Label控件代表标准Windows标签。 它通常用于在GUI上显示一些信息性文本,这些文本在运行时不会更改。
让我们通过从工具箱中拖动Label控件并将其放在表单上来创建标签。
标签控件的属性
以下是Label控件的一些常用属性 -
Sr.No. | 财产和描述 |
---|---|
1 | Autosize 获取或设置一个值,指定是否应自动调整控件的大小以显示其所有内容。 |
2 | BorderStyle 获取或设置控件的边框样式。 |
3 | FlatStyle 获取或设置Label控件的平面样式外观 |
4 | Font 获取或设置控件显示的文本的字体。 |
5 | FontHeight 获取或设置控件字体的高度。 |
6 | ForeColor 获取或设置控件的前景色。 |
7 | PreferredHeight 获取控件的首选高度。 |
8 | PreferredWidth 获取控件的首选宽度。 |
9 | TabStop 获取或设置一个值,该值指示用户是否可以选项卡到Label。 此类不使用此属性。 |
10 | Text 获取或设置与此控件关联的文本。 |
11 | TextAlign 获取或设置标签中文本的对齐方式。 |
标签控制的方法
以下是Label控件的一些常用方法 -
Sr.No. | 方法名称和描述 |
---|---|
1 | GetPreferredSize 检索可以安装控件的矩形区域的大小。 |
2 | Refresh 强制控件使其客户区无效并立即重绘自身和任何子控件。 |
3 | Select 激活控件。 |
4 | Show 向用户显示控件。 |
5 | ToString 返回包含控件名称的String。 |
标签控制的事件
以下是Label控件的一些常用事件 -
Sr.No. | 活动和描述 |
---|---|
1 | AutoSizeChanged AutoSize属性的值更改时发生。 |
2 | Click 单击控件时发生。 |
3 | DoubleClick 双击控件时发生。 |
4 | GotFocus 在控件获得焦点时发生。 |
5 | Leave 在输入焦点离开控件时发生。 |
6 | LostFocus 控件失去焦点时发生。 |
7 | TabIndexChanged TabIndex属性值更改时发生。 |
8 | TabStopChanged TabStop属性更改时发生。 |
9 | TextChanged Text属性值更改时发生。 |
有关Label控件的属性,方法和事件的详细列表,请参阅Microsoft文档。
例子 (Example)
以下是一个示例,其中显示了我们如何创建两个标签。 让我们从设计器视图选项卡创建第一个标签,并从属性窗口设置其属性。 我们将使用标签的Click和DoubleClick事件移动第一个标签并更改其文本并创建第二个标签并将其分别添加到表单中。
采取以下步骤 -
在表单上拖放Label控件。
设置Text属性以提供标题“This is a Label Control”。
从属性窗口设置Font属性。
单击标签以在代码窗口中添加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
当使用Microsoft Visual Studio工具栏上的“ Start按钮执行并运行上述代码时,它将显示以下窗口 -
单击并双击标签将产生以下效果 -