早教吧 育儿知识 作业答案 考试题库 百科 知识分享

VB加一个timer1,标签显示当前系统时间,并且label1以每秒100个单位向右移动,当Left=1119停止运动和时间VB程序设计,控件:timer1,label1,label1的left初始值为600.要求label1显示当前系统时间,并且以每秒1

题目详情
VB 加一个timer1,标签显示当前系统时间,并且label1以每秒100个单位向右移动,当Left=1119停止运动和时间
VB程序设计,控件:timer1,label1,label1的left初始值为600 .要求label1显示当前系统时间,并且以每秒100个单位的速度向右移动,当label1的left值为1119时停止运动并且同时time1停止计时.
▼优质解答
答案和解析
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
If Label1.Left > 1119 Then Timer1.Interval = 0
End Sub