• / 18
  • 下载费用:10 金币  

第十单元 程序.ppt

关 键 词:
第十单元 程序.ppt
资源描述:
第十单元 图形操作,第一节 图形控件1、直线空间Line2、形状控件shape 第二节 图形方法1、Pset方法画点,1、直线控件 (P102 5.11)直线(Line)控件主要用于在窗体、框架和图片框上画直线。设计时可通过属性BorderWidth、BorderStyle的值确定线的宽度和形状,运行时直线两个端点的位置由位置属性(x1,y1)指定起点坐标,(x2,y2)指定终点坐标确定。,第一节 图形控件,5.11.1 直线的属性,1)X1、Y1、X2、Y2属性 设置(或返回)该直线的起点和终点的x坐标及y坐标。直线起点坐标的属性为x1、y1,直线终点坐标的属性为x2、y2。 2)BorderWidth、BorderStyle、BorderColor属性 (1) BorderStyle: 用来指定直线的类型。在属性窗口的属性表中,找到BorderStyle,单击右端箭头,有一个下拉菜单,列出下列7种类型。 0——Transparent,透明的,即不显示出线来。 1——Solid,实线。 2——Dash,虚线。 3——Dot,点线。 4——Dash-Dot,点画线。 5——Dash-Dot-Dot,双点画线。 6——Inside Solid,内实线。,注意:只有当BorderWidth为1时才可以用以上7种类型的线,如果BorderWidth不为1,则上述7种类型中只有0和6有效。 (2) BorderWidth: 设置线宽。 (3) BorderColor: 设置颜色。 (4) x1、x2、y1、y2: 指定直线起点和终点的x坐标及y坐标。可以通过改变x1、x2、y1、y2的值改变线的位置。,例5.14 在窗体上画一系列不同的直线。在窗体上添加1个Line1控件数组Line1(0)~Line1(4),再添加3个命令按钮Command1~ Command3(标题分别为“设置线宽”、“设置线型”、“设置线色”)。运行时单击某一命令按钮,分别将直线设置成不同的线宽运行界面如图5.23所示,线型运行界面如图5.24所示和线色运行界面如图5.25所示。,单击“设置线宽”命令按钮,事件过程代码如下: Private Sub Command1_Click() For i = 0 To 4Line1(i).BorderWidth = i + 3 Next i End Sub单击“设置线型”命令按钮,事件过程代码如下: Private Sub Command2_Click() For i = 0 To 4Line1(i).BorderStyle = i + 1 Next i End Sub,单击“设置线色”命令按钮,事件过程代码如下: Private Sub Command3_Click() For i = 0 To 4Line1(i).BorderColor = QBColor(i + 8) Next i End Sub 其中:QBColor是颜色函数,当参数i为不同值时,给出不同的颜色。,形状(Shape)控件主要用于在窗体、框架或图片框上绘制常见预定义的几何图形。 1)Shape属性通过设置图形(Shape)控件的Shape属性,可以画出矩形、正方形、椭圆形、圆形、圆角矩形或圆角正方形等多种图形。该属性值有6种情况: (1)0--表示vbShapeRectangle,即矩形(缺省值) (2)1--表示vbShapeSquare,即正方形 (3)2--表示vbShapeOval,即椭圆形,2、形状控件 (书上P100),(4)3--表示vbShapeCircle,即圆形 (5)4--表示vbShapeRoundedRectangle,即圆角矩形 (6)5--表示vbShapeRoundedSquare,即圆角正方形 2)BorderWidth属性设置图形边界的宽度。 3)BorderStyle属性设置图形控件画线的样式,该属性值有7种情况: (1)0--表示vbTransparent,即透明线,忽略BorderWidth属性。 (2)1--表示vbBSSolid,即实线(缺省),边框处于形状边缘的中心。,(3)2--表示vbBSDash,即虚线,当BorderWidth为1时有效。 (4)3--表示vbBSDot,即点线,当BorderWidth为1时有效。 (5)4--表示vbBSDashDot,即点划线,当BorderWidth为1时有效。 (6)5--表示vbBSDashDotDot,即双点划线,当BorderWidth为1时有效。 (7)6--表示vbBSInsideSolid,即内收实线,边框的外边界就是形状的外边缘。 4)BorderColor属性设置Shape控件的边界颜色。 5)FillColor属性设置Shape控件的内部填充颜色。缺省值为0(黑色)。,6)FillStyle属性该属性用于设置Shape控件的内部填充图案样式。该属性值有8种情况: (1)0—表示vbFSSolid,即实心 (2)1—表示vbFSTransparent,即透明(缺省值) (3)2—表示vbHorizontalLine,即水平直线 (4)3—表示vbVerticalLine,即垂直直线 (5)4—表示vbUpwardDiagonal,即正对角线 (6)5—表示vbDownwardDiagonal,即反对角线 (7)6—表示vbCross,即十字交叉线 (8)7—表示vbDiagonalCross,即对角交叉线。,例 5.13 在窗体上画一系列不同的形状。在窗体上添加1个Label控件数组Label 1(0)~Label(7),1个Shape控件数组Shape1(0)~Shape(7),再添加4个命令按钮Command1~ Command4(标题分别为“设置形状”、“设置颜色”、“填充线条”和“退出”)。运行的效果界面如图5.22所示,单击“设置形状”命令按钮,事件过程代码如下: Private Sub command1_Click() For i = 0 To 7 shape1(i).Shape = i Label1(i).Caption = “i=“ & Str(i) Next i End Sub,单击“设置颜色”命令按钮,事件过程代码如下: Private Sub command2_Click() For i = 0 To 5 shape1(i).FillStyle = 1 shape1(i).BackStyle = 1 shape1(i).BackColor = QBColor(i) Label1(i).Caption = “i=“ & Str(i) Next i End Sub,单击“填充线条”命令按钮,事件过程代码如下: Private Sub command3_Click() For i = 0 To 7 shape1(i).FillStyle = i Label1(i).Caption = “i=“ & Str(i) Next i End Sub 单击“退出”命令按钮,事件过程代码如下: Private Sub command4_Click() End End Sub,1、Pset方法画点 (书上P96) 用于画点。其中,参数(x,y)为所画点的坐标,关键字Step表示采用当前作图位置的相对值。采用背景颜色可清除某个位置上的点。 格式:[对象名称.]Pset[Step](x,y)[,颜色] (1)参数(X,Y)为所画点的坐标。 (2)Step是可选项,选择该项则表示该坐标(X,Y)是相对坐标,否则是绝对坐标。 (3)颜色也是可选项,省略该项则采用容器的前景色画点;如果使用背景颜色则可清除某个位置上的点。,第二节 图形方法,例 5.8 在窗体中从坐标原点处开始连续画10个红色的点,每个点距离上一个点的相对位置为水平、垂直方向各10个像素。画笔的宽度为5个像素。窗口运行效果界面如图5.17所示。 单击“画点”命令按钮,事件过程代码如下:,Private Sub Command1_Click() Cls DrawWidth = 5 For i = 1 To 10 Form1.PSet Step(100, 100), RGB(255, 0, 0) Next End Sub,
展开阅读全文
  微传网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
0条评论

还可以输入200字符

暂无评论,赶快抢占沙发吧。

关于本文
本文标题:第十单元 程序.ppt
链接地址:https://www.weizhuannet.com/p-10071142.html
微传网是一个办公文档、学习资料下载的在线文档分享平台!

网站资源均来自网络,如有侵权,请联系客服删除!

 网站客服QQ:80879498  会员QQ群:727456886

copyright@ 2018-2028 微传网络工作室版权所有

     经营许可证编号:冀ICP备18006529号-1 ,公安局备案号:13028102000124

收起
展开