结line控件和物体运动控制（结line控件和物体运动控制）

结line控件和物体运动控制（结line控件和物体运动控制）Line1.X2 = Line1.X2 1000If Line1.X2 <= Form1.ScaleWidth - 600 Then2.输入代码：Dim n As IntegerPrivate Sub Timer1_Timer()

今天学习了刘金玉老师零基础VB教程的第37期，学习的主要内容是界限的判定。一、line控件（一）index属性：可以将普通控件变成数组控件（二）borderstyle属性：可以设置line控件的线的类型

（三）X1，X2，Y1，Y2属性：X1属性控制水平方向的起始位置，X2属性控制水平方向的结束位置。，Y1属性设置垂直方向的起始位置（数值越小距离form顶端的距离越近），Y2属性设置垂直方向的结束位置。在VB中涉及宽度、高度、距离的单位为缇，大约150缇等于1像素。

二、物体运动界限的控制（一）思路：确定上下两条范围线，控制物体在上下两条线内运动，控制物体每秒都随机变化颜色

（二）案例：

1.如图新建控件

2.输入代码：

Dim n As Integer

Private Sub Timer1_Timer()

If Line1.X2 <= Form1.ScaleWidth - 600 Then

Line1.X2 = Line1.X2 1000

Else

Timer1.Enabled = False

End If

End Sub

Private Sub Timer2_Timer()

If Line2.X2 <= Form1.ScaleWidth - 600 Then

Line2.X2 = Line2.X2 1000

Else

Timer2.Enabled = False

End If

End Sub

Private Sub Timer3_Timer()

If n = 0 And Shape1.Top Shape1.Height >= Line2.Y1 Then

n = 1

ElseIf n = 1 And Shape1.Top <= Line1.Y1 Then

n = 0

End If

If n = 0 Then

Shape1.Top = Shape1.Top 100

ElseIf n = 1 Then

Shape1.Top = Shape1.Top - 100

End If

End Sub

3.生成程序运行，详见文章视频。