Question

在名称为form1的窗体上添加一个名称为shape1的形状控件，通过设置参数使其形状为圆形

添加一个名称为label1的标签，标题为“形状”，标签的大小能够根据标签内容的字数，大小而定，添加一个名称为text1的文本框，文本框最多能够显示五个字符，文本框中初始内容为“圆形，”如图所示

求高手帮忙谢谢了。。。

Answer 1

添加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属性的常数与图形形状对应如下：

常数 设置值 形状描述
VbShapeRectangle 0（缺省值） 矩形
VbShapeSquare 1 正方形
VbShapeOval 2 椭圆形
VbShapeOval 3 圆形
VbShapeRoundedRectangle 4 圆角矩形
VbShapeRoundedSquare 5 圆角正方形