怎样制作VB闪烁文字？

答案:4 悬赏:20 手机版

解决时间 2021-01-27 01:35

提问者网友：温旧梦泪无声
2021-01-26 02:56

怎样制作VB闪烁文字？

最佳答案

五星知识达人网友：迷人又混蛋
2021-01-26 04:29

闪烁字，实际上就是字体颜色随着时间不断变化
以下示例：
模型：窗体Form1，定时器Timer1
Private Sub Form_Load()
Timer1.Interval = 100'设置定时器为0.1s触发以此
End Sub

Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then'如果Label字体颜色为红色
Label1.ForeColor = vbblue'则改为蓝色
Else
Label1.ForeColor = vbRed'如果不是红色，则改为红色，从而实现字体颜色红蓝交替变化，达到闪烁效果。
End If
End Sub

全部回答

1楼网友：想偏头吻你
2021-01-26 07:14

'添加一个timer控件设置interval=1000 添加一个label控件示例代码如下： private sub timer1_timer() static b as integer b = b + 1 if b > 3 then b = 1 if b = 1 then label1.forecolor = vbred elseif b = 2 then label1.forecolor = vbgreen elseif b = 3 then label1.forecolor = vbyellow end if end sub

2楼网友：千夜
2021-01-26 06:56

用 imgae 加 timer 时钟控制两张图片文字,不断切换既可.

3楼网友：拜訪者
2021-01-26 05:35

在窗体上加入Timer控件,设置Interval（间隔）属性，用来确定Timer控件多久触发一次，其单位为毫秒，当该值为500时，表示一秒钟会触发两次。 Private Sub Timer1_Timer() If Label1.ForeColor = vbRed Then Label1.ForeColor = vbGreen '颜色 Else Label1.ForeColor = vbRed '颜色 End If End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息