vb程序编写语言学习.ppt

vb程序编写语言学****br/>20
图12.2
用Visual Basic提供的形状控件（Shape）可以方便地画出矩形、正方形、圆、椭圆等简单的几何图形。
使用形状控件的方法是，单击工具箱中的“形状控件”图标，然后按下鼠标左键并在窗体上拖动，在适当的位置释放鼠标，窗体上出现一个矩形框，就是形状控件。
为该控件设置不同的Shape属性，可以得到不同的形状。
12.2 用形状控件画出几何图形
在属性窗口选择Shape属性，
并单击该属性右端向下的箭头，
显示一个下拉列表，其含义如下： 
0——Rectangle，矩形。
1——Square，正方形。
2——Oval，椭圆形。
3——Circle，圆形。
4——Rounded Rectangle，圆角矩形。
5——Rounded Square，圆角正方形。
Shape属性的默认值为0（矩形）。若选择3，则在刚才用形状控件画出的矩形中画出一个圆，圆的直径是矩形的短边，也就是说，圆内切于矩形。
【例2】设计如图所示的窗体。
窗体上有6个Shape控件、6个标签以及
“设置形状”、“设置颜色”、“填充线条”、“退出”等4个命令按钮。运行时，如单击“设置形状”命令按钮，将为形状控件设置Shape属性；单击“设置颜色”按钮，用不同的颜色填充各形状控件；单击“填充线条”按钮，以不同的线条填充图形。
为便于程序处理，形状控件和标签控件均使用控件数组。
图12.3
（1） 单击“设置形状”按钮，
执行cmdShape_Click事件过程。
通过For循环设置Shape属性的值。
Private Sub cmdShape_Click()
′为各Shape控件设置形状参数
For i = 0 To 5
Shape1(i).Shape = i
Label1(i).Caption = "i=" & Str(i)
Next
End Sub
如图4所示表示执行cmdShape_Click()事件过程后的结果。
图12.4
（2） 单击“设置颜色”按钮，执行cmdColor_Click
事件过程。
Private Sub cmdColor_Click()
′ 用不同的颜色填充
For i = 0 To 5
Shape1(i).FillStyle = 1 ' 设置FillStyle为透明
Shape1(i).BackStyle = 1 ' 设置BackStyle为不透明
Shape1(i).BackColor = QBColor(i) ' 设置颜色
Label1(i).Caption = "i=" & Str(i)
Next
End Sub
（3） 单击“填充线条”按钮，执行cmdFill_Click()事件过程。
Private Sub cmdFill_Click()
′用不同的线形填充图形
For i = 0 To 5
Shape1(i).FillStyle = i+2
Label1(i).Caption = ″i=″ & Str(i + 2)
Next
End Sub
上述事件过程的执行效果如图5所示。