懂vb帮个忙把！！

来源：百度知道 编辑：UC知道 时间：2024/07/07 19:09:58
本人是大一菜鸟，刚学vb者有老师布置的两个程序，麻烦帮个忙把
1在窗体上放置一个计时器，每隔500ms改变一次窗体背景颜色，如果窗体的背景颜色为红色，就变为蓝色，否则就变为红色
2在窗体上绘制一个计时器和一个标签，适当设置计时器和标签的属性，当程序运行时，标签文本从左到右滚动显示
小事一幢，麻烦了

Dim L As Integer

Private Sub Form_Load()
L = Len(Label1.Caption)
End Sub

Private Sub Timer1_Timer()
Static T As Integer
T = T + 1
Static RB As Boolean
RB = Not RB
If RB Then
Me.BackColor = RGB(250, 0, 0) '显示红色
Else
Me.BackColor = RGB(0, 0, 250) '显示兰色
End If

Label1.Caption = Label1.Caption + " "
If T > L Then Label1.Caption = Trim$(Label1.Caption): T = 0

End Sub

1、

Private Sub Form_Load()
BackColor = vbRed
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
BackColor = BackColor Xor &HFF00FF
End Sub

2、

Private Sub Form_Load()
Label1.AutoSize = True
Label1.Caption = "滚动是这个意思吗"
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Label1.Left = IIf(Label1.Left < Me.ScaleWidth, Label1.Left + 60, -Label1.Width)
End Sub