Visual Basic 标签 Label 您所在的位置:网站首页 app下载软件侧边按两下安装怎么弄 Visual Basic 标签 Label

Visual Basic 标签 Label

2023-10-01 20:28| 来源: 网络整理| 查看: 265

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 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 = "cankaoshouce.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 SubEnd Class

当使用 Microsoft Visual Studio 工具栏上的 "开始" 按钮执行并运行上述代码时,它将显示以下窗口:

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



【本文地址】

公司简介

联系我们

今日新闻

    推荐新闻

    专题文章
      CopyRight 2018-2019 实验室设备网 版权所有