当前位置: 首页 > 文档资料 > VB.Net 中文教程 >

Label

优质
小牛编辑
131浏览
2023-12-01

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

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

VB.Net标签控制

标签控件的属性

以下是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按钮执行并运行上述代码时,它将显示以下窗口 -

结果表格

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

结果表格