picture1添加形状shape1

添加3个控件后，复制以下代码：

Option Explicit

Private Sub Form_Load()

Label1.Caption = "参数："

Label1.AutoSize = True

Text1.MaxLength = 5

Text1.Text = "圆形"

End Sub

Private Sub Text1_Change()

Select Case Text1.Text

Case "矩形"

Shape1.Shape = 0

Case "正方形"

Shape1.Shape = 1

Case "椭圆形"

Shape1.Shape = 2

Case "圆形"

Shape1.Shape = 3

Case "圆角矩形"

Shape1.Shape = 4

Case "圆角正方形"

Shape1.Shape = 5

End Select

End Sub

说明：

改变Shape控件的Shape属性，可以使得Shape绘制不同图形：

Opject.Shape = 常数

Shape属性的常数与图形形状对应如下：

常数 设置值 形状描述

VbShapeRectangle0（缺省值） 矩形

VbShapeSquare 1 正方形

VbShapeOval 2 椭圆形

VbShapeOval 3圆形

VbShapeRoundedRectangle 4 圆角矩形

VbShapeRoundedSquare 5 圆角正方形

1.在表单设计中添加一个“形状”控件，命名为“形状控件”，定义高度和宽度一样，即正方形

2.添加一个“计时器”控件，定义Interval这200，即200毫秒=0.2秒

3.在“Timer”事件中添加更改值的命令

(1)形状改变

添加一个“文本框”控件，命名为“形状”，赋值为1

do case

case thisform.形状控件.Curvature=1

thisform.形状.value=1

case thisform.形状控件.Curvature=99

thisform.形状.value=-1

endcase

thisform.形状控件.Curvature=thisform.形状控件.Curvature+thisform.形状.value

Curvature是指形状控件的角的曲率，取值范围是0～99（0是直角，表现为正方形或长方形，99是圆角；如果高度和宽度相同则为正圆形，其它为椭圆形；其它值为直线边、圆孤角，效果可以自己试验）

(2)位置改变命令

添加一个“文本框”控件，命名为“位置”，赋值为1

do case

case thisform.形状控件.left=1

thisform.位置.value=1

case thisform.形状控件.left=thisform.width-thisform.形状控件.width

thisform.位置.value=-1

endcase

thisform.形状控件.left=thisform.形状控件.left+thisform.位置.value

left是指形状控件的最左边的位置，width是指控件的宽度

thisform.width-thisform.形状控件.width是指表单的宽度减去形状控件的宽度，也就计算出了形状控件可以移动到表单的最右边的位置，例如，表单宽度为700，形状控件宽度为100，当形状控件向右(left+1)移动到600时，形状控件的右边正好撞到表单的边缘，然后开始向左(left+(-1))移动

打开vb编程，创建标准exe。

在窗体上添加不同形状的图形。在属性share中选择你想要的形状。

在属性borderwidth中可以改变图形边框的粗细，例如我改为5.

我们还可以改变图形边框的颜色，就把头部改为黑色，在属性bordercolor。

在属性fillcolor中，可以选择要填充的颜色。

在fillstyle中可以选择填充的类型。

---