- 注册时间
- 2011-3-6
- 最后登录
- 1970-1-1
该用户从未签到
|
发表于 2014-7-22 09:01:02
|
显示全部楼层
Private Sub Command1_Click() '开始
Timer1.Enabled = True
End Sub
Private Sub Command2_Click() '停止
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Label1.Caption = "欢迎学习Visual Basic"
Label1.AutoSize = True
Timer1.Interval = 100
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.Move IIf(Label1.Left <= Me.ScaleLeft - Label1.Width, Me.ScaleWidth, Label1.Left - 100)
End Sub |
|