第九章-图形绘画.ppt

图片的保存方法一：利用filecopy命令复制图片文件，保存图片文件名拷贝文件语句(FileCopy)：FileCopy[路径1]源文件[,[路径2]目标文件示例：FileCopyC:\aaa.txt,D:\Temp\bbb.txt图片的保存点击“上传图片”，弹出打开文件对话框，图片文件显示在lmg1中点击“保存图片”对话框，弹出保存文件对话框，输入文件名保存图片点击“自动加载”按钮，在img2中自动显示刚保存的图片。图片的保存点击“上传图片”，弹出打开文件对话框，图片文件显示在lmg1中Dimfno,fnsAsStringPrivateSubCommand3_Click()Dlg1.Filter=“gif图片|*.gif|jpg图片|*.jpgDlg1.ShowOpenImg1.Picture=LoadPicture(Dlg1.FileName)fno=Dlg1.FileName’记录源图片文件名EndSub图片的保存点击“保存图片”对话框，弹出保存文件对话框，输入文件名保存图片PrivateSubCommand1_Click()IfRight(fno,3)=gifThenDlg1.Filter=*.gif|*.gifElseIfRight(fno,3)=jpgThenDlg1.Filter=*.jpg|*.jpgEndIfDlg1.ShowSaveFileCopyfno,Dlg1.FileName‘复制图片文件fns=Dlg1.FileName‘保存图片文件路径名称EndSub图片的保存点击“自动加载”按钮，在img2中自动显示刚保存的图片。Img2.Picture=LoadPicture(fns)图片的保存方法一：利用filecopy命令复制图片文件，保存图片文件名保存文件名方法一：将文件名写入一个txt文件方法二：定义的数据类型中，添加一个字符串数据成员，用于保存文件名方法三：在数据库中定义个字段，用于保存文件名图片的保存方法二：直接将图片数据保存到数据库中定义一个字段，为binary类型，直接将imge控件或picture控件中显示的图片存储到该字段即可案例实训腿部线段：ｘ１、ｙ１坐标不变，腿长度legl不变Ｘ２、ｙ２终点位置：X2与足球起始点left关系X2=foot.left+foot.widthY2=sqr(legl^2-x2^2)img2img1注意：

（1）[,B[F]]：B表示画矩形，F表示用画矩形的颜色来填充矩形。(x1,y1)和(x2,y2)为矩形的对角线坐标。（2）[Step]：在(x1,y1)前出现时，表示(x1,y1)是相对于由CurrentX和CurrentY指示的位置；在(x2,y2)前出现时，表示(x2,y2)是相对于图形起点的终点坐标。（3）[颜色]：若省略，则使用ForeColor属性值。（4）Line方法中的参数可根据需要选择取舍，如果舍去的是中间参数，参数的分隔符要保留。Line方法例：（8-10）设计一个简单的画图程序，以鼠标为画笔在窗体上画图，并提供橡皮擦功能，以便擦除不需要的内容。运行界面如图所示。Line方法例：（8-11）编写程序，实现图形处理中的“溶解”效果。运行界面如图所示。Line方法Circle方法可用于在指定容器对象内画圆、椭圆、圆弧、扇形等。格式：[对象名.]Circle[[Step]（X，Y）,半径[,颜色]

[,起始角][,终止角][,长短轴比率]]]功能：在由[对象名.]指定的容器内，在坐标系中以（X，Y）为圆心画圆、椭圆、圆弧或扇形。Circle方法注意：（1）（X，Y）：为圆心坐标。（2）半径：为圆的半径。（3）[,起始角]和[,终止角]：可控制画圆弧和扇形。当起始角、终止角取值在0～2π时为圆弧，当在起始角、终止角取值前加一负号时，画出扇形。（4）[,长短轴比率]：可控制画圆还是椭圆，默认值为1，画圆。若要填充椭圆、圆的区域，则设置FillStyle为0（实心）与FillColor属性值，边界宽度由DrawWidth属性值决定。Circle方法例如，利用Circle方法画圆弧、扇形、椭圆等,代码如下：Circle方法PrivateSubform_click()