如何用vb中的shape控件实现字体的灯光照射效果
答案:1 悬赏:20 手机版
解决时间 2021-01-12 18:13
- 提问者网友：浩歌待明月
- 2021-01-11 19:49
如何用vb中的shape控件实现字体的灯光照射效果
最佳答案
- 五星知识达人网友：毛毛
- 2020-05-15 16:35
闪烁的Label
其实没有直接的方式可以如同在Dos环境中，有所谓"闪烁"字型的设定，那只有透过
Timer来设定字体的出现、消失模拟。
'在Form中放数个Label与一个timer
'如果我们设定Label的Tag属性为"1"，那该Label便会闪烁
Private Sub Form_Load()
Label1.Tag = "1"
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Dim ctl As Control
For Each ctl In Me
If TypeOf ctl Is Label And ctl.Tag = "1" Then
ctl.Visible = Not ctl.Visible
End If
Next
其实没有直接的方式可以如同在Dos环境中，有所谓"闪烁"字型的设定，那只有透过
Timer来设定字体的出现、消失模拟。
'在Form中放数个Label与一个timer
'如果我们设定Label的Tag属性为"1"，那该Label便会闪烁
Private Sub Form_Load()
Label1.Tag = "1"
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Dim ctl As Control
For Each ctl In Me
If TypeOf ctl Is Label And ctl.Tag = "1" Then
ctl.Visible = Not ctl.Visible
End If
Next
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯