重点难点和错分析 ——项目五 简易画图板.ppt

一、保存图片文件及打开 例子： 一、保存图片文件及打开 打开已存在的图形文件，在图形控件内显示图形内容。 格式： 图片框控件名.Picture=LoadPicture([filename]) 当filename为一个文件的路径＋文件名时，图片框控件加载了一个图形文件。 当filename为空时，清空（删除）图片框内的图形内容。 一、保存图片文件及打开 将图形按一定比例绘制在图片框控件内 格式： 图片框控件名.PaintPicture picture, x, y, width, height Picture：要绘制到 object 上的图形源 x, y：均为单精度值，指定在 object 上绘制 picture 的目标坐标 width, height：单精度值，指示 picture 的目标宽度 和高度 一、保存图片文件及打开 例子： 二、绘图方法 在应用程序中加进适当的图形和动画常常可以增加程序的魅力，使其多姿多彩。利用VB提供的绘图方法可以很容易地完成各种图形编程工作，Visual Basic的绘图方法如下： Print 显示字符串? Line 画直线和方框? Circle 画圆或椭圆 Point 取得点的颜色值? Pset 设置点的颜色值 1、Line方法 在对象上画直线或矩形 语法格式： 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方法绘制窗体坐标系 例 利用Line方法绘制直线或矩形 运用Line方法在窗体坐标系内绘制矩形 2、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]，[Aspet] [Start]：可选型，指定弧的起点位置。取值范围从-2π到2π，缺省值是0。若为负数，则在画弧的同时还要画出到弧的起点的连线。 [End]：可选项，指定弧的终点位置。取值范围从-2Π到2Π，缺省值是2Π。若为负数，则在画弧的同时还要画出圆心到弧的终点的连线。弧的画法是从起点逆时针画到终点。 2、Circle方法 语法格式 [对象名.] Circle [Step]（x，y），Radius， [Color] ，[Start]，[End]，[Aspet] [Aspet]：可选项，圆的纵轴和横轴的尺寸比。缺省值为1，表示画一个标准圆。当纵横比大于1时，椭圆的纵轴比横轴长；反之，则比横轴短。 例 在窗体上绘制圆、圆弧等 绘制圆 例 在窗体上绘制圆、圆弧等 绘制椭圆 例 在窗体上绘制圆、圆弧等 绘制圆弧和扇形 三、鼠标事件 MouseDown和MouseUp事件 语法格式： Private Sub 控件对象名_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) Private Sub 控件对象名_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single) MouseDown和MouseUp事件 语法格式： Private Sub 控件对象名_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) Button参数：可以用来区分当前鼠标的左、中、右按键，1表示用户按下了鼠标左按键，2表示右按键，4表示中间键。 Shift参数：