vb程序编写语言学习

《vb程序编写语言学习》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第8章：图形12.1用直线控件画线12.2用形状控件画出几何图形12.3用Pset方法画点12.4用Line方法画线和矩形12.5用Circle方法画圆、椭圆、圆弧及扇形12.6使用PaintPicture方法12.7窗体和控件的图形属性习题12.1用直线控件画线直线控件常用的属性有下述4个。（1）BorderStyle：用来指定直线的类型。在属性窗口的属性表中，找到BorderStyle，单击右端箭头，有一个下拉菜单，列出下列7种类型。0——Transparent，透明的，即不显示出线来。1——Solid，实线。2

2、——Dash，虚线。3——Dot，点线。4——Dash-Dot，点画线。5——Dash-Dot-Dot，双点画线。6——InsideSolid，内实线。只有当BorderWidth为1时才可以用以上7种类型的线，如果BorderWidth不为1，则上述7种类型中只有0和6有效。（2）BorderWidth：设置线宽。（3）BorderColor：设置颜色。（4）x1、x2、y1、y2：指定直线起点和终点的x坐标及y坐标。可以通过改变x1、x2、y1、y2的值改变线的位置。【例1】在窗体上使用直线控件画7条实线

3、，编写一个事件过程，改变它们的颜色及类型。窗体设计如图所示。单击工具箱中的“直线控件”图标，在窗体上画出最上面一条直线，将其“名称”属性定为Lline。再画第二条直线，将其“名称”属性也定为LLine，这时会弹出一个消息框，问“你已有一个名为LLine的控件，你是否想建立一个控件数组”。选择“是”时，则系统会将该控件作为控件数组LLine中的一个元素LLine(1)，而将第一条直线定为数组元素LLine(0)。下面以同样的方法再画出5条直线，分别定名为LLine(2)～LLine(6)。在窗体上加两个命令按钮。将一个按钮

4、的Caption属性设置为“画直线”，另一个设置为“退出”。按题目要求，单击“画直线”命令按钮，应画出不同颜色、不同类型的7条线。编写相应的过程代码：图12.1PrivateSubcmdLine_Click()Line1(2).BorderWidth=1Fori=0To6LLine(i).BorderColor=QBColor(i)LLine(i).BorderStyle=iNextiEndSubQBColor是颜色函数，当参数i为不同值时，给出不同的颜色。运行程序时，单击“画直线”命令按钮，即将窗体上的7条直线

5、分别改变为不同颜色和不同类型的直线，如图下所示。QBColor函数返回一个Long，用来表示所对应颜色值的RGB颜色码。语法：QBColor(color)必要的color参数是一个界于0到15的整型。设置值color参数有以下这些设置。值颜色0黑色8灰色1兰色9亮兰色2绿色10亮绿色3青色11亮青色4红色12亮红色5洋红色13亮洋红色6黄色14亮黄色7白色15亮白色图12.2用VisualBasic提供的形状控件（Shape）可以方便地画出矩形、正方形、圆、椭圆等简单的几何图形。使用形状控件的方法是，单击工具箱中的“形状控

6、件”图标，然后按下鼠标左键并在窗体上拖动，在适当的位置释放鼠标，窗体上出现一个矩形框，就是形状控件。为该控件设置不同的Shape属性，可以得到不同的形状。12.2用形状控件画出几何图形在属性窗口选择Shape属性，并单击该属性右端向下的箭头，显示一个下拉列表，其含义如下：0——Rectangle，矩形。1——Square，正方形。2——Oval，椭圆形。3——Circle，圆形。4——RoundedRectangle，圆角矩形。5——RoundedSquare，圆角正方形。Shape属性的默认值为0（矩形）。

7、若选择3，则在刚才用形状控件画出的矩形中画出一个圆，圆的直径是矩形的短边，也就是说，圆内切于矩形。【例2】设计如图所示的窗体。窗体上有6个Shape控件、6个标签以及“设置形状”、“设置颜色”、“填充线条”、“退出”等4个命令按钮。运行时，如单击“设置形状”命令按钮，将为形状控件设置Shape属性；单击“设置颜色”按钮，用不同的颜色填充各形状控件；单击“填充线条”按钮，以不同的线条填充图形。为便于程序处理，形状控件和标签控件均使用控件数组。图12.3（1）单击“设置形状”按钮，执行cmdShape_Click事件过程。通

8、过For循环设置Shape属性的值。PrivateSubcmdShape_Click()′为各Shape控件设置形状参数Fori=0To5Shape1(i).Shape=iLabel1(i).Caption="i="&Str(i)NextEndSub如图4所示表示执行cmdShape_Click()