語法
object.Tag [= expression]
Tag 屬性語法包含下面部分:
部分 描述
object 對象表達式,其值是“應用於”列表中的壹個對象。
expression 字符串表達式用來標識對象,缺省值為零長度字符串 ("")。
說明
利用該屬性可以給對象賦予壹個標識字符串,而不會影響其任何其它屬性設置值或引起副作用。當需要檢查控件或作為變量傳遞給過程的 MDIForm 對象的標識時,Tag 屬性是有用的。
提示 創建壹個新的窗口實例時,給 Tag 屬性賦予唯壹值。
Tag 屬性示例
這個例子為每個被拖動的控件顯示壹個單獨的圖標。要嘗試這個例子,請將代碼粘貼到包含三個 PictureBox 控件的窗體的聲明部分。將 Picture1 和 Picture2 的 DragMode 屬性設置為壹,然後按 F5 鍵。使用鼠標在 Picture3 上面拖曳 Picture1 和 Picture2。
Private Sub Form_Load ()
Picture1.Tag = "ICONS\ARROWS\POINT03.ICO"
Picture2.Tag = "ICONS\ARROWS\POINT04.ICO"
End Sub
Private Sub Picture3_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
If State = vbEnter Then
' 根據每個圖片框的 Name 屬性選擇。
Select Case Source.Name
Case "Picture1"
' 加載 Picture1 的圖標。
Source.DragIcon = LoadPicture(Picture1.Tag) Case "Picture2"
' 加載 Picture2 的圖標。
Source.DragIcon = LoadPicture(Picture2.Tag)
End Select
ElseIf State = vbLeave Then
' 當 Source 不在 Picture3 之上時,卸載圖標。
Source.DragIcon = LoadPicture ()
End If
End Sub