Question

VB的image的tag属性是干什么的

Answer 1

Tag 属性

返回或设置一个表达式用来存储程序中需要的额外数据。与其它属性不同，Tag 属性值不被 Visual Basic 使用；可以用该属性来标识对象。

语法

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