vb图形操作.pptVIP

第8章 图形操作 使用VB可以画图形（如圆、矩形等），也可以显示并处理图像 8.1 图形控件 图形有关的控件： PictureBox, Image ,Shape,Line PictureBox , Image 可以显示图像 PictureBox和窗体都可以绘图，如点、线、矩形、圆等，这时它们是绘图的容器。 Shape,Line是图形控件，直接在窗体存在，通过修改属性改变其形状。 8.2 图像加载和显示 用PictureBox, Image 控件都可以加载图像 由于Image控件不能用于绘图，所以如果仅仅加载图像，Image控件比PictureBox更快。如果不考虑速度， 可用PictureBox，功能更全面。 PictureBox PictureBox通过picture属性设置图片，也可以通过如下语句设置： picture1.picture=LoadPicture(文件路径) 以下语句可以清除图片 picture1.picture=LoadPicture() 例1：在窗体显示图片，用按钮“切换”换窗体中的图片，用按钮“清除”清除图片 8.3 绘图 PictureBox和窗体都可以绘图，这时它们是绘图的容器。 绘图通过以下方法：pset画点、line画线或矩形、circle画圆。 绘图涉及坐标、位置、颜色、粗细等 8.3.1 坐标系统 默认坐标系统：原点（0，0）在左上角，x轴向右，y轴向下。刻度单位为twips。 twips缇,等于1/1440英寸或1/567厘米 每个容器都有自己的坐标系统，如窗体、框架、PictureBox等 用户可以修改默认坐标系统。用ScaleMode修改刻度单位。下面用像素作为表单坐标的刻度单位。form1.ScaleMode=vbPixels 表单坐标的刻度单位将决定表单scaleWidth ,ScaleHeight,表单中控件的Width,Height等值 ScaleWidth,ScaleHeight表示容器的大小，不包括边框的宽与高 修改坐标刻度单位演示 课堂提问 form1.ScaleMode=vbPixels是什么意思？ LoadPicture是针对picturebox控件还是shape控件？ 默认坐标系统的原点（0，0）在左上角还是在左下角？ 8.3.2 绘图方法 Line方法：画直线或矩形（重点） [对象.]Line [ (x1,y1)]-(x2,y2)[,color][,B[F]](x1,y1)表示起点，省略表示当前位置。B表示画矩形，F表示用画矩形的颜色填充 circle方法：画圆、椭圆、圆弧等 Point(x,y)获取(x,y)处的颜色 Pset(x,y)[,颜色] 在(x,y)处画一个点 上述方法如果不是针对窗体，则需加对象名。如pic1.point(x,y) 图像的保存：SavePicture 对象.Image,文件路径（注意将AutoDraw属性设为True) 8.3.3 绘图属性 DrawWidth、DrawStyle、forecolor线宽/线型/颜色 FillStyle、FillColor填充形式和填充颜色 AutoRedraw自动重绘，用于保存画面。 颜色：系统颜色：如vbBlack,vbRed等 RGB(red,green,blue) ‘每种颜色0~255QBColor(n) ’n为0~15 CurrentX、CurrentY表示当前位置的坐标 例2：用代码产生若干线条。 从（0，0）画线到（30，50） 设置当前点为（60，90） 设置线宽为4px 设置颜色为红色 从当前点画线到（100，50） 8.3.4 兴趣拓展 利用CurrentX、CurrentY表示当前位置的坐标 例：点击窗体时在窗体的当前位置显示字母A Private Sub Form_Click() Print A End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.CurrentX = X Form1.CurrentY = Y End Sub 例：简单实现让鼠标在picturebox中画线条 Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.Line -(X, Y) End Sub 例：用鼠标在PictureBox中随便画，然后把结果保存起来。 Dim drawflag As Integer