POWERPOINT 演示文稿(15).ppt

2020 2 25 制作 黄传禄 本章内容 图片框控件及其属性和使用方法图象框控件及其属性和使用方法图片框控件与图象框控件的区别其他图片控件的使用 第七章图形图象处理技术 2020 2 25 制作 黄传禄 7 1 1图片框控件 图片框控件主要用于显示图片 或作为其他控件的容器 可以把图片框看作窗中窗 可以在属性中通过picture设置 或在程序中使用LoadPicture函数装载图片文件 图片框可以显示下列图形文件 位图 bmp dib文件 图标 ico cur文件32 3216 16 JPEG 8位或24位颜色 GIF 压缩位图 支持256色 2020 2 25 制作 黄传禄 图片框控件的主要属性 Align 决定图片框在窗体中的位置 0 任意位置1 2 3 4分别为顶 底 左 右对齐 宽 高取窗体的宽 高 AutoRedraw 可以通过调用PRINT方法向图片框中输出文本 也可以调用画图函数 Cricle Line Pset 画图 通过DrawWith FillColor FillStyle等属性对图片着色 填充图案 为了不让上层图形盖住下层图 要使用自动重画功能 2020 2 25 制作 黄传禄 图片框属性 2 AutoSize属性用于决定所设图片框是否要根据图片大小来自动调整其寸 默认为False不调整 自动去掉多出的部分 要设计为TRUE 图片控件功能全 但是要消耗大量的系统资源 如果只打算显示图片 那么最好使用图象控件 但在图象控件上不能显示文字 不能利用Pset Line Circle等方法在其上画图 2020 2 25 制作 黄传禄 图片框和图像框的操作 1 图片框 PictureBox 和图像控件 Image 的异同都能用来显示图形或图片 位图 bmp 图标 ico 图元 wmf JPEG或GIF等主要区别 图片框中可以包含其它控件 而图像框不能 图片框可支持各种图形方法和打印方法 而图像框不能 图像框比图片框占用的内存少 显示速度快 2020 2 25 制作 黄传禄 2 将图片加载到窗体 图片框或图像框中的操作窗体设计时设置Picture属性或 复制 剪切 图像 粘贴 如果要取消图片 将Picture属性重新设置为 None 主要程序设计方法为用LoadPicture函数 例如 Form1 Picture LoadPicture C windows backgrnd gif Form1 Picture LoadPicture 清除图片复制其它对象的图片 例如 Picture1 Picture Image1 Picture 2020 2 25 制作 黄传禄 3 调整图片大小图片框 AutoSize属性设置控件是否按装入的图片大小自动调整尺寸 缺省值False 但图元文件 wmf 例外 AutoSize为TRUE时 装入的图形会自动调整大小以适应图片框 图像框 Stretch属性为False 缺省值 控件自动调整大小以适应装载的图形的尺寸 Stretch属性为True 则加载的图形自动调整大小以适应控件 即 调整图像框可实现图形的放大和缩小 窗体 不随装载的图片大小而自动改变 图片大于窗体的部分将被裁剪掉 2020 2 25 制作 黄传禄 4 控件的边框样式BordeStyle属性 0 无边框 1 有边框 图片框 BordeStyle属性缺省值为1图像框 BordeStyle属性缺省值为0 2020 2 25 制作 黄传禄 例7图片框和图像框应用示例Image1的属性设置 Stretch为TrueBordeStyle为1Height和Width均为1800 在窗体的通用段声明模块变量 DimnAsInteger n记录图片框中的输出项数PrivateSubForm Load n 0 n赋初值EndSub 2020 2 25 制作 黄传禄 图片框和图像框应用示例 2020 2 25 制作 黄传禄 单击 放大 按钮PrivateSubCommand1 Click Image1 Width Image1 Width 1 25Image1 Height Image1 Height 1 25Picture1 Print 放大图片 n n 1Ifn 10ThenPicture1 Cls n 0EndSub 单击 缩小 按钮PrivateSubCommand2 Click Image1 Width Image1 Width 0 75Image1 Height Image1 Height 0 75Picture1 Print 缩小图片 n n 1Ifn 10ThenPicture1 Cls n 0EndSub 2020 2 25 制作 黄传禄 PrivateSubCommand3 Click 单击 还原 按钮Picture1 ClsImage1 Height 1800Image1 Width 1800EndSub 2020 2 25 制作 黄传禄 2 直线及其他控件 直线控件功能 在窗体 框架或图片框中绘制线条移动和调整线条大小设置X1 X2 Y1 Y2属性其中 X1 Y1 左端点坐标 X2 Y2 右端点坐标设置线条的颜色和样式设置BoderColor和BordeStyle属性注意 若BorderStyle 0 BorderColor属性不起作用 Borderstyle 0时 表示透明 设置线条的宽度设置BorderWidth属性 2020 2 25 制作 黄传禄 形状控件功能 在窗体上绘制有规则的图形Shape属性设置控件的具体形状 2020 2 25 制作 黄传禄 形状控件的应用实例 例 利用形状控件和定时器控件来制作简单动画 设计界面如下 2020 2 25 制作 黄传禄 代码分析与演示PrivateSubCommand1 Click Timer1 Enabled TrueEndSubPrivateSubCommand2 Click Timer1 Enabled FalseEndSub 2020 2 25 制作 黄传禄 代码分析与演示PrivateSubForm Load Picture1 Left ScaleWidthEndSubPrivateSubTimer1 Timer WithPicture1 Left Left 100If Left Width 0Then Left ScaleWidthEndIfEndWithEndSub 2020 2 25 制作 黄传禄 7 4pset Line Circle方法 画点 Pset pset方法可以用于在指定的位置 x y 用指定的颜色画点 语法格式为 object Pset step x y color 例 在picture1中画一红色的点picture1 pset 200 200 vbred 2020 2 25 制作 黄传禄 7 4pset Line Circle方法 画线或矩形 Line Line方法可用于画直线或矩形 语法格式为 object Line step x1 y1 step x2 y2 color B F 例 在picture1中以当前坐标位置为起点 以坐标位置 200 200 为终点 以前景色画一矩形picture1 Line 200 200 B例 以绿色画一矩形并用绿色填充Line 100 100 1000 1000 RGB 0 255 0 BF 2020 2 25 制作 黄传禄 7 4pset Line Circle方法 3画圆 椭圆 扇形和弧线 ircle ircle方法可用于画圆 椭圆 扇形和弧线等 1 画圆语法格式 object ircle step x y radius color 例 在坐标100 100处用红色画半径为50的圆 ircle 100 100 50 vbRed 2 画圆弧或扇形语法格式 object ircle step x y radius color start end 2020 2 25 制作 黄传禄 7 4pset Line Circle方法 4画椭圆语法格式 object ircle step x y radius color start end aspectaspect为圆的纵横比 垂直半径 水平半径 若大于 aspect为垂直半径 相当于标准的圆被水平压缩若小于 aspect为水平半径 相当于标准的圆被垂直压缩 2020 2 25 制作 黄传禄 7 4pset Line Circle方法 例 当单击窗体的时 显示纵横比为 和0 5