1 / 23

本章内容

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

milt
Download Presentation

本章内容

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 本章内容 第七章　图形图象处理技术 • 图片框控件及其属性和使用方法 • 图象框控件及其属性和使用方法 • 图片框控件与图象框控件的区别 • 其他图片控件的使用 制作：黄传禄

  2. 7.1.1图片框控件 • 图片框控件主要用于显示图片，或作为其他控件的容器，可以把图片框看作窗中窗。可以在属性中通过picture设置，或在程序中使用LoadPicture函数装载图片文件。 • 图片框可以显示下列图形文件： 位图（bmp、dib文件） 图标（.ico,.cur文件32*32 16*16） JPEG:8位或24位颜色。 GIF:压缩位图，支持256色。 制作：黄传禄

  3. 图片框控件的主要属性 • Align: 决定图片框在窗体中的位置， • 0：任意位置 • 1、2、3、4分别为顶、底、左、右对齐。宽，高取窗体的宽，高。 • AutoRedraw:可以通过调用PRINT方法向图片框中输出文本，也可以调用画图函数(Cricle,Line,Pset)画图，通过DrawWith,FillColor,FillStyle等属性对图片着色、填充图案。为了不让上层图形盖住下层图，要使用自动重画功能。 制作：黄传禄

  4. 图片框属性（2） • AutoSize 属性用于决定所设图片框是否要根据图片大小来自动调整其寸，（默认为False不调整，自动去掉多出的部分)要设计为TRUE。 • 图片控件功能全，但是要消耗大量的系统资源，如果只打算显示图片，那么最好使用图象控件，但在图象控件上不能显示文字，不能利用Pset,Line,Circle等方法在其上画图。 制作：黄传禄

  5. (1) 图片框(PictureBox)和图像控件(Image)的异同 都能用来显示图形或图片：位图(.bmp)、图标(.ico)、图元(.wmf)、 JPEG或GIF等 主要区别： 图片框中可以包含其它控件，而图像框不能。 图片框可支持各种图形方法和打印方法，而图像框不能。 图像框比图片框占用的内存少，显示速度快。 图片框和图像框的操作 制作：黄传禄

  6. (2) 将图片加载到窗体、图片框或图像框中的操作 窗体设计时 设置Picture属性 或 “复制”/“剪切”图像→“粘贴” 如果要取消图片，将Picture属性重新设置为(None) 主要程序设计方法为 用LoadPicture函数，例如： Form1.Picture = LoadPicture("C:\windows\backgrnd.gif") Form1.Picture = LoadPicture( ) '清除图片 复制其它对象的图片，例如： Picture1.Picture = Image1.Picture 制作：黄传禄

  7. (3) 调整图片大小 图片框：AutoSize属性设置控件是否按装入的图片大小自动调整尺寸，缺省值False。但图元文件(.wmf)例外，AutoSize为TRUE时，装入的图形会自动调整大小以适应图片框。 图像框：Stretch属性为False(缺省值)，控件自动调整大小以适应装载的图形的尺寸；Stretch属性为True，则加载的图形自动调整大小以适应控件，即，调整图像框可实现图形的放大和缩小 。 窗体：不随装载的图片大小而自动改变，图片大于窗体的部分将被裁剪掉。 制作：黄传禄

  8. (4) 控件的边框样式 BordeStyle属性：0(无边框)、1(有边框) 图片框：BordeStyle属性缺省值为1 图像框： BordeStyle属性缺省值为0 制作：黄传禄

  9. 例7 图片框和图像框应用示例 Image1的属性设置： Stretch为True BordeStyle为1 Height和Width均为1800 '在窗体的通用段声明模块变量： Dim n As Integer 'n记录图片框中的输出项数 Private Sub Form_Load() n = 0 'n赋初值 End Sub 制作：黄传禄

  10. 图片框和图像框应用示例 制作：黄传禄

  11. '单击“放大”按钮 Private Sub Command1_Click() Image1.Width = Image1.Width * 1.25 Image1.Height = Image1.Height * 1.25 Picture1.Print "放大图片" : n = n + 1 If n = 10 Then Picture1.Cls: n = 0 End 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 = 0 End Sub 制作：黄传禄

  12. Private Sub Command3_Click() '单击“还原”按钮 Picture1.Cls Image1.Height = 1800 Image1.Width = 1800 End Sub 制作：黄传禄

  13. 直线控件 功能：在窗体、框架或图片框中绘制线条 移动和调整线条大小 设置X1、X2、Y1、Y2属性 其中，X1、Y1－左端点坐标，X2、Y2－右端点坐标 设置线条的颜色和样式 设置BoderColor和BordeStyle属性 注意：若BorderStyle=0，BorderColor属性不起作用（Borderstyle=0时，表示透明） 设置线条的宽度 设置BorderWidth属性 2. 直线及其他控件 制作：黄传禄

  14. 形状控件 功能：在窗体上绘制有规则的图形 Shape属性设置控件的具体形状 制作：黄传禄

  15. 形状控件的应用实例 例：利用形状控件和定时器控件来制作简单动画，设计界面如下： 制作：黄传禄

  16. 代码分析与演示 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub 制作：黄传禄

  17. 代码分析与演示 Private Sub Form_Load() Picture1.Left = ScaleWidth End Sub Private Sub Timer1_Timer() With Picture1 .Left = .Left - 100 If .Left + .Width < 0 Then .Left = ScaleWidth End If End With End Sub 制作：黄传禄

  18. 7.4 pset、Line、Circle方法 １画点(Pset) pset方法可以用于在指定的位置(x,y),用指定的颜色画点．语法格式为： ［object.］Pset [step] (x,y)[,color] 例：在picture1 中画一红色的点 picture1.pset(200,200),vbred 制作：黄传禄

  19. 7.4 pset、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 制作：黄传禄

  20. 7.4 pset、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 制作：黄传禄

  21. 7.4 pset、Line、Circle方法 4 画椭圆语法格式： [object.]Ｃircle[step](x,y),radius [,color]，［start］,［end］,aspect aspect为圆的纵横比（垂直半径／水平半径） 若大于１，aspect为垂直半径，相当于标准的圆被水平压缩 若小于１，aspect为水平半径，相当于标准的圆被垂直压缩 制作：黄传禄

  22. 7.4 pset、Line、Circle方法 例：当单击窗体的时，显示纵横比为２和0.5的两个椭圆 private sub Form_Click() Scale(0,0)-(5,5) cls circle(2,3),0.5, , , ,2 circle(4,3),0.5, , , ,0.5 end sub 制作：黄传禄

  23. 本章小结 1图片框控件Picture和图象控件Image 2 坐标系统和颜色 3 线条控件Ｌine和形状控件Shape绘制简单图形 ４pset、Line、Circle方法 课后习题 制作：黄传禄

More Related