高考问答贪婪洞窟全boss:VB的简单问题啊
来源：百度文库 编辑：高考问答 时间：2024/05/05 15:40:02
在以下的一段代码中 怎么样才可以使 “VISUAL BASIC 6.0” 这几个字边走边变色啊
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Label1_Click()
Label1.Caption = "VISUAL BASIC 6.0"
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = false
If Label1.Left < Label1.Width Then
Label1.Left = Label1.Left + 100
Else
Label1.Left = 0
End If
End Sub
啊 你可以说一下吗 把代码打给我一下啦 谢谢你啊 我真的想不出来啊 呵呵
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Label1_Click()
Label1.Caption = "VISUAL BASIC 6.0"
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = false
If Label1.Left < Label1.Width Then
Label1.Left = Label1.Left + 100
Else
Label1.Left = 0
End If
End Sub
啊 你可以说一下吗 把代码打给我一下啦 谢谢你啊 我真的想不出来啊 呵呵
Private Sub Timer1_Timer()
Timer1.Enabled = false
If Label1.Left < Label1.Width Then
Label1.Left = Label1.Left + 100
dim a,b ,c as integer
a=int(rnd(1)*256)
b=int(rnd(1)*256)
c=int(rnd(1)*256)
label1.forcolor=rgb(a,b,c)
'这是个随机的颜色,你可以根据需要改变为固定的几种
Else
Label1.Left = 0
End If
在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*256
End Sub
你用一个循环，隔一定的时间改变的FORECOLER 属性！