POWERPOINT 演示文稿(15).ppt

《POWERPOINT 演示文稿(15).ppt》由会员分享，可在线阅读，更多相关《POWERPOINT 演示文稿(15).ppt（23页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2023/1/5制作：黄传禄本章内容图片框控件及其属性和使用方法图象框控件及其属性和使用方法图片框控件与图象框控件的区别其他图片控件的使用第七章图形图象处理技术第七章图形图象处理技术2023/1/5制作：黄传禄7.1.1图片框控件 图片框控件主要用于显示图片，或作为其他控件的容器，可以把图片框看作窗中窗。可以在属性中通过picture设置，或在程序中使用LoadPicture函数装载图片文件。图片框可以显示下列图形文件：位图（bmp、dib文件）图标（.ico,.cur文件32*32 16*16）JPEG:8位或24位颜色。GIF:压缩位图，支持256色。2023/1/5制作：黄传禄图片框控件

2、的图片框控件的主要属性主要属性Align:决定图片框在窗体中的位置，0：任意位置1、2、3、4分别为顶、底、左、右对齐。宽，高取窗体的宽，高。AutoRedraw:可以通过调用PRINT方法向图片框中输出文本，也可以调用画图函数(Cricle,Line,Pset)画图，通过DrawWith,FillColor,FillStyle等属性对图片着色、填充图案。为了不让上层图形盖住下层图，要使用自动重画功能。2023/1/5制作：黄传禄图片框属性（图片框属性（2）AutoSize 属性用于决定所设图片框是否要根据图片大小来自动调整其寸，（默认为False不调整，自动去掉多出的部分)要设计为TRUE。

3、图片控件功能全，但是要消耗大量的系统资源，如果只打算显示图片，那么最好使用图象控件，但在图象控件上不能显示文字，不能利用Pset,Line,Circle等方法在其上画图。2023/1/5制作：黄传禄图片框和图像框的操作(1)图片框(PictureBox)和图像控件(Image)的异同 都能用来显示图形或图片：位图(.bmp)、图标(.ico)、图元(.wmf)、JPEG或GIF等 主要区别：图片框中可以包含其它控件，而图像框不能。图片框可支持各种图形方法和打印方法，而图像框不能。图像框比图片框占用的内存少，显示速度快。2023/1/5制作：黄传禄(2)将图片加载到窗体、图片框或图像框中的操作

4、窗体设计时设置Picture属性 或 “复制”/“剪切”图像“粘贴”如果要取消图片，将Picture属性重新设置为(None)主要程序设计方法为 用LoadPicture函数，例如：Form1.Picture=LoadPicture(C:windowsbackgrnd.gif)Form1.Picture=LoadPicture()清除图片复制其它对象的图片，例如：Picture1.Picture=Image1.Picture 2023/1/5制作：黄传禄(3)调整图片大小图片框：AutoSize属性设置控件是否按装入的图片大小自动调整尺寸，缺省值False。但图元文件(.wmf)例外，Auto

5、Size为TRUETRUE时，装入的图形会自动调整大小以适应图片框。图像框：Stretch属性为False(缺省值)，控件自动调整大小以适应装载的图形的尺寸；Stretch属性为True，则加载的图形自动调整大小以适应控件，即，调整图像框可实现图形的放大和缩小。窗体：不随装载的图片大小而自动改变，图片大于窗体的部分将被裁剪掉。2023/1/5制作：黄传禄(4)控件的边框样式 BordeStyle属性：0(无边框)、1(有边框)图片框：BordeStyle属性缺省值为1 图像框：BordeStyle属性缺省值为02023/1/5制作：黄传禄例7 图片框和图像框应用示例 Image1的属性设置：S

6、tretch为TrueBordeStyle为1Height和Width均为1800 在窗体的通用段声明模块变量：Dim n As Integer n记录图片框中的输出项数 Private Sub Form_Load()n=0 n赋初值 End Sub2023/1/5制作：黄传禄图片框和图像框应用示例2023/1/5制作：黄传禄单击“放大”按钮Private Sub Command1_Click()Image1.Width=Image1.Width*1.25 Image1.Height=Image1.Height*1.25 Picture1.Print 放大图片 :n=n+1 If n=10 T

7、hen Picture1.Cls:n=0End Sub单击“缩小”按钮Private Sub Command2_Click()Image1.Width=Image1.Width*0.75 Image1.Height=Image1.Height*0.75 Picture1.Print 缩小图片:n=n+1 If n=10 Then Picture1.Cls:n=0End Sub 2023/1/5制作：黄传禄Private Sub Command3_Click()单击“还原”按钮 Picture1.Cls Image1.Height=1800 Image1.Width=1800End Sub202

8、3/1/5制作：黄传禄2.直线及其他控件直线控件 功能：在窗体、框架或图片框中绘制线条 移动和调整线条大小 设置X1、X2、Y1、Y2属性 其中，X1、Y1左端点坐标，X2、Y2右端点坐标 设置线条的颜色和样式 设置BoderColor和BordeStyle属性 注意：若BorderStyle=0，BorderColor属性不起作用（Borderstyle=0时，表示透明）设置线条的宽度 设置BorderWidth属性 2023/1/5制作：黄传禄形状控件 功能：在窗体上绘制有规则的图形 Shape属性设置控件的具体形状 2023/1/5制作：黄传禄形状控件的应用实例例：利用形状控件和定时器控

9、件来制作简单动画，设计界面如下：2023/1/5制作：黄传禄代码分析与演示Private Sub Command1_Click()Timer1.Enabled=TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled=FalseEnd Sub2023/1/5制作：黄传禄代码分析与演示Private Sub Form_Load()Picture1.Left=ScaleWidthEnd SubPrivate Sub Timer1_Timer()With Picture1.Left=.Left-100If.Left+.Width 0 Then.Lef

10、t=ScaleWidthEnd IfEnd WithEnd Sub2023/1/5制作：黄传禄7.4 pset、Line、Circle方法画点(Pset)pset方法可以用于在指定的位置(x,y),用指定的颜色画点语法格式为：object.Pset step(x,y),color例：在picture1中画一红色的点picture1.pset(200,200),vbred2023/1/5制作：黄传禄7.4 pset、Line、Circle方法画线或矩形(Line)Line方法可用于画直线或矩形语法格式为：object.Linestep(x1,y1)-step(x2,y2),color,BF例：在

11、picture1中以当前坐标位置为起点，以坐标位置(200,200)为终点，以前景色画一矩形 picture1.Line-(200,200),B例：以绿色画一矩形并用绿色填充Line(100,100)-(1000,1000),RGB(0,255,0),BF2023/1/5制作：黄传禄7.4 pset、Line、Circle方法3 画圆、椭圆、扇形和弧线(ircle)ircle方法可用于画圆、椭圆、扇形和弧线等(1)画圆语法格式：object.irclestep(x,y),radius,color例：在坐标100,100处用红色画半径为50的圆ircle(100,100),50,vbRed(2)

12、画圆弧或扇形语法格式：object.irclestep(x,y),radius,color，start,end2023/1/5制作：黄传禄7.4 pset、Line、Circle方法4 画椭圆语法格式：object.irclestep(x,y),radius,color，start,end,aspectaspect为圆的纵横比（垂直半径水平半径）若大于，aspect为垂直半径，相当于标准的圆被水平压缩若小于，aspect为水平半径，相当于标准的圆被垂直压缩2023/1/5制作：黄传禄7.4 pset、Line、Circle方法例：当单击窗体的时，显示纵横比为和0.5的两个椭圆private sub Form_Click()Scale(0,0)-(5,5)clscircle(2,3),0.5,2circle(4,3),0.5,0.5end sub2023/1/5制作：黄传禄本章小结1图片框控件Picture和图象控件Image2 坐标系统和颜色3 线条控件ine和形状控件Shape绘制简单图形pset、Line、Circle方法课后习题