资源描述:
《重点难点和错误分析 ——项目五 简易画图板》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、重点难点和错误分析——项目五简易画图板主讲:浙江广播电视大学郑炜一、保存图片文件及打开将图形保存到文件的语句:SavePicture语法格式:SavePicturepicture,stringexpressionPicture:产生图形文件的PictureBox控件或Image控件的图片内容Stringexpression:欲保存的图形文件名一、保存图片文件及打开例子:PrivateSubsave_Click()dlgFile.Filter="BMPILES(*.BMP)
2、*.BMP
3、_JPGFILES(*.JPG)
4、*.JPG"dlgFile.ShowSa
5、veFn=dlgFile.FileNameIfFn<>""ThenSavePicturepicPaintzone.Image,FnEndIfEndSub一、保存图片文件及打开打开已存在的图形文件,在图形控件内显示图形内容。格式:图片框控件名.Picture=LoadPicture([filename])当filename为一个文件的路径+文件名时,图片框控件加载了一个图形文件。当filename为空时,清空(删除)图片框内的图形内容。一、保存图片文件及打开将图形按一定比例绘制在图片框控件内格式:图片框控件名.PaintPicturepicture,x,y,w
6、idth,heightPicture:要绘制到object上的图形源x,y:均为单精度值,指定在object上绘制picture的目标坐标width,height:单精度值,指示picture的目标宽度和高度一、保存图片文件及打开例子:dlgFile.Filter="BMPFILES(*.BMP)
7、*.BMP
8、JPGFILES(*.JPG)"dlgFile.ShowOpenIfdlgFile.FileName<>""ThenpicPaintzone.Picture=LoadPicture(dlgFile.FileName)Fn=dlgFile.FileNam
9、epicPaintzone.PaintPicturepicPaintzone.Picture,0,0,_picPaintzone.ScaleWidth,picPaintzone.ScaleHeightEndIfpicPaintzone是“绘图区”,图片框控件二、绘图方法在应用程序中加进适当的图形和动画常常可以增加程序的魅力,使其多姿多彩。利用VB提供的绘图方法可以很容易地完成各种图形编程工作,VisualBasic的绘图方法如下:Print显示字符串Line画直线和方框Circle画圆或椭圆Point取得点的颜色值Pset设置点的颜色值1、Line方法在对象
10、上画直线或矩形语法格式:object.Line[Step](x1,y1)[Step](x2,y2),[color],[B][F]Object:所绘直线的控件对象,例如Form、PictureBox等(x1,y1):所画线段的起点坐标(x2,y2):所画线段的终点坐标Color:可选的颜色参数[B][F]:B参数可选参数,利用对角坐标画出矩形;如果使用了B参数,则F参数规定矩形以矩形边框的颜色填充。例利用Line方法绘制直线或矩形运用Line方法绘制窗体坐标系PrivateSubForm_Click()ClsForm1.Scale(-110,110)-(110
11、,-110)'定义坐标系Line(-105,0)-(105,0)'画X轴Line(0,105)-(0,-105)'画Y轴EndSub例利用Line方法绘制直线或矩形运用Line方法在窗体坐标系内绘制矩形PrivateSubForm_Click()ClsForm1.Scale(-110,110)-(110,-110)'定义坐标系Line(-105,0)-(105,0)'画X轴Line(0,105)-(0,-105)‘画Y轴Line(-40,40)-(40,-40),,B'画矩形Line(-70,40)-(-50,-40),vbRed,BF'画实心矩形EndSu
12、b2、Circle方法Circle方法用来绘制圆、椭圆、圆弧等图形语法格式[对象名.]Circle[Step](x,y),Radius,[Color],[Start],[End],[Aspet][对象名]:要绘制图形的容器对象名称,如窗体、图片框等,缺省时为当前窗体。(x,y):圆、椭圆、弧或扇形的圆心坐标。Radius:圆、椭圆、弧或扇形的半径,若为椭圆,则为最长轴的尺寸。2、Circle方法Circle方法用来绘制圆、椭圆、圆弧等图形语法格式[对象名.]Circle[Step](x,y),Radius,[Color],[Start],[End],[Asp
13、et][Start]:可选型,指定弧的起点位置。取值