VB编程:利用控件数组设置控件状态-38
2023-09-14 09:07:16 时间
运行效果:
程序代码:
Private Sub Form_Load()
For i = 0 To Label1.Count - 1
Label1(i).Caption = "移动鼠标"
Next i
End Sub
Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim mouseover As Boolean
mouseover = (0 <= X) And (X <= Label1(Index).Width)
If mouseover Then
For i = 0 To Label1.Count - 1
Label1(i).ForeColor = &H0&
Next i
Label1(Index).ForeColor = &HFF&
End If
End Sub
学习总结:
1、Count 返回 Long(长整数),包含集合中的对象数目。
相关文章
- 泛函编程(34)-泛函变量:处理状态转变-ST Monad
- C#设计模式——状态模式(State Pattern)
- Centos7 防火墙查看状态,查看开放端口,开放端口,
- 【问题解决方案】从 Anaconda Prompt 或 Jupyter Notebook 终端进入Python后重新退出到命令状态
- Home键状态保存运用场景
- IntelliJ IDEA出现Search for无法进入编辑状态
- Flutter 陈航 10-状态 State 编程范式 构建过程
- Hibernate持久化对象三种状态
- Kubernetes pod状态出现CrashLoopBackOff 的原因
- uni——点击同一个按钮,赋予不同状态(来回切换)
- 状态估计|基于 MMSE 的分析估计器的不确定电力系统分析(Matlab代码实现)
- 为了减少代码复杂度,我将if-else升级为面向状态编程
- HDU 3001 Travelling (三进制状态压缩 DP)
- 高并发必备篇(四):线程的状态、调度和操作方法(下)
- 响应状态码
- 防火墙状态检测及会话表技术