VB.Net - 標籤控制元件

標籤控制元件代表標準的Windows標籤。它通常用於在GUI上顯示一些在執行時不會更改的資訊文字。

讓我們透過從工具箱拖動標籤控制元件並將其放到窗體上來建立一個標籤。

標籤控制元件的屬性

以下是標籤控制元件的一些常用屬性：

序號	屬性及說明
1	Autosize 獲取或設定一個值，該值指定控制元件是否應自動調整大小以顯示其所有內容。
2	BorderStyle 獲取或設定控制元件的邊框樣式。
3	FlatStyle 獲取或設定標籤控制元件的扁平樣式外觀。
4	Font 獲取或設定控制元件顯示的文字的字型。
5	FontHeight 獲取或設定控制元件字型的字高。
6	ForeColor 獲取或設定控制元件的前景色。
7	PreferredHeight 獲取控制元件的首選高度。
8	PreferredWidth 獲取控制元件的首選寬度。
9	TabStop 獲取或設定一個值，該值指示使用者是否可以切換到標籤。此屬性不被此類使用。
10	Text 獲取或設定與此控制元件關聯的文字。
11	TextAlign 獲取或設定標籤中文字的對齊方式。

標籤控制元件的方法

以下是標籤控制元件的一些常用方法：

序號	方法名稱及說明
1	GetPreferredSize 檢索控制元件可以放入其中的矩形區域的大小。
2	Refresh 強制控制元件使其客戶區無效，並立即重繪自身和任何子控制元件。
3	Select 啟用控制元件。
4	Show 向用戶顯示控制元件。
5	ToString 返回包含控制元件名稱的字串。

標籤控制元件的事件

以下是標籤控制元件的一些常用事件：

序號	事件及說明
1	AutoSizeChanged 當AutoSize屬性的值更改時發生。
2	Click 單擊控制元件時發生。
3	DoubleClick 雙擊控制元件時發生。
4	GotFocus 控制元件獲得焦點時發生。
5	Leave 輸入焦點離開控制元件時發生。
6	LostFocus 控制元件失去焦點時發生。
7	TabIndexChanged TabIndex屬性值更改時發生。
8	TabStopChanged TabStop屬性更改時發生。
9	TextChanged Text屬性值更改時發生。

請查閱Microsoft文件以獲取標籤控制元件屬性、方法和事件的詳細列表。

示例

以下是一個示例，它展示瞭如何建立兩個標籤。讓我們從設計器檢視選項卡建立第一個標籤，並從屬性視窗設定其屬性。我們將使用標籤的Click和DoubleClick事件來移動第一個標籤並更改其文字，並建立第二個標籤並將其新增到窗體中。

請按照以下步驟操作：

將標籤控制元件拖放到窗體上。
設定Text屬性以提供標題“這是一個標籤控制元件”。
從屬性視窗設定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工具欄中提供的**啟動**按鈕執行和執行上述程式碼時，它將顯示以下視窗：

單擊和雙擊標籤將產生以下效果：

vb.net_basic_controls.htm

列印頁面