实习4 绘图部分实习题.docVIP

/SHANGJIANFANG123 /SHANGJIANFANG123 实习4 绘图部分实习题 问题，设计一个绘图窗体界面，其界面如下图所示，上方的图片框用于绘制各种图形， 下方的框架用于选择绘制图形的参数。 要求： (1)可选择要绘制的图形，包括点、直线、矩形、圆。 (2)选择边线颜色，包括红色、绿色、蓝色、黄色。 (3)选择填充图案，包括实心、空心、横线、竖线、左斜线、右斜线、水平网格和斜 交网格。 (4)选择边线的粗细，包括1个像素、2个像素、3个像素和4个像素。 设计一个窗体，在该窗体中放置一个图片框Picture1和四个框架 (分别为Frame1， Frame2，Frame3和Frame4)。在每个框架中放置多个选项钮 (从左到右分别为Option1， Option2，Option3和Option4控件数组)，并在属性窗口设置各个控件的相应属性。在该窗 体上设计如下事件过程： Dim Xstart, YStart As single Dim xold, yold as sing Dim mshape as integer Private sub Form_Load() Picture1.scalemode=3 Picture1.drawidth=1 End Sub Private sub Option1 _Click(Index As Integer) Mshape= Index ‘ End Sub Private sub Option2 _Click(Index As Integer) Select Case Index Case 0 Picture1.ForeColor=vbred Case 1 Picture1.ForeColor=vbgreen Case 2 Picture1.ForeColor=vbblue Case 3 Picture1.ForeColor=vbyellow End Select End Sub Private sub Option3 _Click(Index As Integer) Select Case Index Case 0 Picture1.FillStyle=0 Case 1 Picture1. FillStyle=1 Case 2 Picture1. FillStyle=2 Case 3 Picture1. FillStyle=3 Case 4 Picture1.FillStyle=4 Case 5 Picture1. FillStyle=5 Case 6 Picture1. FillStyle=6 Case 7 Picture1. FillStyle=7 End Select End Sub Private sub Option4 _Click(Index As Integer) Select Case Index Case 0 Picture1.DrawWidth=1 Case 1 Picture1. DrawWidth=2 Case 2 Picture1. DrawWidth=3 Case 3 Picture1. DrawWidth=4 End Select End Sub Private sub Form_Load() End Sub Private sub Form_Load() End Sub Private sub Form_Load() End Sub Private sub Form_Load() End Sub Private sub Form_Load() End Sub Private sub Form_Load() End Sub