杭州交通信息网水井坊酒价格表官网:VB编程问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 05:12:32
（2）窗体form1下端显示“欢迎使用本系统，作者：你的姓名，学号：你的学号”，红色，隶书，5号字，文字左右来回匀速移动。（要求，所有的属性在程序中修改）（25分）
源代码
源代码
Dim a As Integer, b As Boolean
Private Sub Form_Load()
'窗体form1下端显示“”，红色，隶书，5号字，文字左右来回匀速移动。（要求，所有的属性在程序中修改
Label1 = "欢迎使用本系统，作者：你的姓名，学号：你的学号"
Label1.FontName = "隶书"
Label1.FontSize = 10.5 '五号字的大小
Label1.ForeColor = vbRed
Label1.AutoSize = True
Timer1.Interval = 200
Timer1.Enabled = True
a = 0
b = True
End Sub
Private Sub Timer1_Timer()
If Abs(a) > 10 Then b = Not b
If b Then
a = a + 1
Else
a = a - 1
End If
Label1.Left = Label1.Left + a * 50
End Sub