VB的简单问题啊

显示全部楼层 · 2006-3-22 22:19:35

在Timer1中设置随机颜色就可以了Private Sub Timer1_Timer() Timer1.Enabled = false If Label1.Left < Label1.Width Then Label1.Left = Label1.Left + 100 Else Label1.Left = 0 End If Label1.ForeColor=Ran(1)*256*256*256End Sub

千问 · 2006-3-22 22:19:35

你用一个循环，隔一定的时间改变的FORECOLER 属性！