图片框控件PictureBox和图像框控件Image_hoc安全小组吧

hoc安全小组吧关注：7贴子：115

7回复贴，共1页

图片框控件PictureBox和图像框控件Image

在设计Windows应用程序的用户界面时，如果适当地加入一些图形，会使界面丰富多彩。人们往往事先制作好一些图形，并把它们以文件的形式存储在磁盘或光盘中。VB提供了图片框（PictureBox）工具和图像框(Image) 工具。它们都是VB工具箱中的控件。图片框图标为

，图像框图标为

。
图片框控件（PictureBox）和图像框控件（Image）主要支持以下格式的图形文件。
1、位图(bitmap)：位图通常以.bmp或.dib为文件扩展名。
2、图标(icon)：以.ico为文件扩展名。
3、元文件(metafile)：元文件的类型有两种，分别是标准型（.wmf）和增强型（.emf）。4、JPEG文件：JPEG是一种支持 8 位和 24 位颜色的压缩位图格式。它是 Internet 上一种流行的文件格式。 5、GIF文件：GIF是一种压缩位图格式。它可支持多达 256 种的颜色，是 Internet 上一种流行的文件格式。
一、图片框控件PictureBox
（一）图形文件的加载
1、在设计阶段加载
◆ 可以用属性窗口中的Picture属性装入图形文件。
◆ 利用剪贴板把图形粘贴到图片框中。
2、在运行期间加载
在运行期间，可以用LoadPicture函数把图形文件装入图片框中。
格式：
对象名.Picture=LoadPicture（[filename]）
其中：
◆ filename为包含全路径名或有效路径名的图片文件名。
例如：
Picture1.Picture=LoadPicture("c:\ProgramFiles\MicrosoftOffice\ Clipart \ Popular\ clock.wmf")
可以把一个图元文件加载到名为Picture1的图片框中。如果图片框中已有图形，则被新装入的图形覆盖。图片框中的图形也可以用 LoadPicture函数删除，只要用一个“空”图形覆盖原来的图形就能实现。

送TA礼物

1楼2011-09-14 14:40回复

（二）图形文件的保存
图形文件的保存，可以使用SavePicture语句。
格式：
SavePicture [对象名.]Picture|Image, FileName
一般以BMP格式保的文件进行保存。但若图片框或图像框原来的格式为ICON或Meta格式，则保存时以原格式进行保存。
二、图像框控件Image
图像框（Image）也可以用来装入图形文件，具体的使用方法与图片框类似。既可以在设计阶段给Image控件的Picture属性赋值（赋以一个图形文件的名字），也可以在运行阶段通过LoadPicture函数装入图形文件。
图像框控件与图片框控件的用法基本一致，但有以下区别：
（一）图片框控件可以作为其它控件的容器，例如可以在图片框内画一个命令按钮。如果移动图片框，则命令按钮随之一起移动（命令按钮成为图片框的一个组成部分）。如果单独移动命令按钮，只能在图片框范围内移动，不能移到图片框外去。而图像框控件不行。
（二）图片框可以通过Print方法接收文本，而图像框则不能接收用Print方法输入的信息。
（三）图像框比图片框占用的内存少，显示速度快。在用图像框控件与图片框控件都能满足需要的情况下，应优先考虑使用图像框控件。

2楼2011-09-14 14:43

三、两个重要属性
（一）AutoSize属性
该属性用于图片框。决定控件是否自动改变大小以显示图像全部内容。缺省值为False，此时保持控件大小不变，超出控件区域的内容被裁减掉；若值为True时，自动改变控件大小以显示图片全部内容（注意：不是图形改变大小）。
（二）stretch 属性
用于图像框。当该属性的取值为False时，图像控件将自动改变大小以与图形的大小相适应；当其值为True时，显示在控件中的图像的大小将完全适合于控件的大小，这时，图片可能会变形。
【例】将一个图形文件放到图像框中，改变图像框的大小，观察图形是否随之改变大小。用户设计界面如图所示。

3楼2011-09-14 14:44

4楼2011-09-14 14:44

源程序代码： Private Sub Command1_Click()
Image1.Left = Image1.Left - Image1.Width / 2
Image1.Width = Image1.Width * 2
End Sub
Private Sub Command2_Click()
Image1.Left = 2325
Image1.Top = 600
Image1.Height = 1515
Image1.Width = 1515
End Sub
Private Sub Command3_Click()
Image1.Left = Image1.Left - Image1.Width / 2
Image1.Height = Image1.Height * 2
Image1.Width = Image1.Width * 2
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Image1.Picture = LoadPicture("D:\baofenga\tupian\4.JPG")
End Sub

5楼2011-09-14 14:46