在vb中 Label1(I).Tag = Rnd * 11 - 5 & | & Rnd * 5 + 1是什么意思
答案:3 悬赏:80 手机版
解决时间 2021-02-05 01:42
- 提问者网友：沉默菋噵
- 2021-02-04 13:05
在vb中 Label1(I).Tag = Rnd * 11 - 5 & | & Rnd * 5 + 1是什么意思
最佳答案
- 五星知识达人网友：拜訪者
- 2021-02-04 13:25
把 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
但是 “Rnd * 11 - 5 & | & Rnd * 5 + 1”这是个错误的
| 不能做变量，所以必须用引号起来：
Rnd * 11 - 5 & "|" & Rnd * 5 + 1
就是两个随机数用 "|"连接起来。比如： 2.761023|3.66712
全部回答
- 1楼网友：詩光轨車
- 2021-02-04 14:50
tag属性赋值。
- 2楼网友：雾月
- 2021-02-04 13:31
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
返回或设置一个表达式用来存储程序中需要的额外数据。与其它属性不同，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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯