用vb怎样实现label在移动时其文字随机变色（即是在闪）？最好有代码。
1个回答
展开全部
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 50
End SubPrivate Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
If Label1.Left >= Me.ScaleWidth Then Label1.Left = -Label1.Width
Label1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Sub
Timer1.Enabled = True
Timer1.Interval = 50
End SubPrivate Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
If Label1.Left >= Me.ScaleWidth Then Label1.Left = -Label1.Width
Label1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
