学习VB编程第11天   滴水穿石，需要坚持

今天学习了刘金玉老师VB编程教程的第18期，学习的主要内容是shape控件的运用。

一、shape控件

1.shape是形状的意思，默认为矩形。

2.有哪些形状：长方形、正方形、椭圆形、圆形、圆角长方形、圆角正方形

3.将形状设置为红色的实心球形：首先将backstyle属性设置为opaque，将shape属性设置为circle，将backcolor设置为红色。

二、实例：制作一个左右来回运动的红色实心球。

1.新建一个shape控件和一个时钟控件。首先将shape控件的backstyle属性设置为opaque，再将shape属性设置为circle，最后将backcolor设置为红色。将时钟控件的interval属性设置为100。

2.输入代码：

Dim n As Integer '定义一个全局变量n

Private Sub Timer1_Timer()

If Shape1.Left + Shape1.Width > Form1.ScaleWidth Then '如果(小球的左边距离+小球的'宽度)大于窗体的宽度（也就是小球走到右边的时候）那么n就等于1

n = 1

End If

If Shape1.Left < 0 Then

n = 0 '如果小球的左边距小于0（也就是小球走到左边时候），那么n=1

End If

If n = 0 Then

Shape1.Left = Shape1.Left + 100 '如果小球在左边，那么小球就向右移动100个单位

Else

Shape1.Left = Shape1.Left - 100 '否则，小球向左移动100个单位

End If

End Sub

3.点击运行，我们可以看到小球运动的效果：

视频加载中...