在vb中 Label1(I).Tag = Rnd * 11 - 5 & | & Rnd * 5 + 1是什么意思

在vb中 Label1(I).Tag = Rnd * 11 - 5 & | & Rnd * 5 + 1是什么意思

把 Rnd * 11 - 5 & | & Rnd * 5 + 1 的结果赋值给 label1(1)的tag
但是 “Rnd * 11 - 5 & | & Rnd * 5 + 1”这是个错误的
| 不能做变量，所以必须用引号起来：
Rnd * 11 - 5 & "|" & Rnd * 5 + 1
就是两个随机数用 "|"连接起来。比如： 2.761023|3.66712

tag属性赋值。

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