vb中如何覆盖lable中的文字
答案:4 悬赏:70 手机版
解决时间 2021-03-11 12:46
- 提问者网友：留有余香
- 2021-03-10 17:28
vb中如何覆盖lable中的文字
最佳答案
- 五星知识达人网友：旧脸谱
- 2021-03-10 18:41
添加一个标签框,一个计时器,运行后,每秒钟变化两次,一直变化
Private Sub Form_Load()
Timer1.Interval=500
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
Randomize
Label1.BackColor=Rgb(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
End Sub
Private Sub Form_Load()
Timer1.Interval=500
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
Randomize
Label1.BackColor=Rgb(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
End Sub
全部回答
- 1楼网友：轮獄道
- 2021-03-10 21:36
将
lable 设置成黑色
timer 控件 一个 设置运行时间 10
lable= 白色
运行的时候 黑白切换 就会闪烁了！！楼上说的没错！！
- 2楼网友：长青诗
- 2021-03-10 20:50
label1=""
- 3楼网友：执傲
- 2021-03-10 20:06
添加一个标签框,一个计时器,运行后,每秒钟变化两次,一直变化
Private Sub Form_Load()
Timer1.Interval=500
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
Randomize
Label1.BackColor=Rgb(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
End Sub
另外,虚机团上产品团购,超级便宜
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯