2011年度计算机等级考试二级VB复习指导(39)

会计考友

　5.7.1 图片框控件　　设计包含有图片的窗体的方法是：首先，在窗体上要显示图片的位置放置一个图片框控件。然后，将所要的图片加载到图片框控件中即可。
　　可以加载到图片框控件中的图形格式有以下几种：
% ^8 a2 H/ |; N$ q8 s　　位图(bitmap),文件后缀为。bmp.
　　图标(icon),文件后缀为，ico.
　　Windows图元文件，文件后缀为。wmf.
" |/ S" e) V8 i- a* F　　JPEG或GIF文件，文件后缀分别为。jPg和。gif.
　　既可以在程序设计阶段向图片框加载图片，也可以在程序运行阶段加载图片。为图片框加载图片的方法有：
　　在程序设计时，通过在【属性】窗口中设置Picture属性来加载图片，加载方法与为窗体加载背景图片的方法相同。
　　在程序设计时，利用剪贴板加载图片。例如，有时可能希望添加由Windows画图板创建的位图图像，可以直接把图像复制到剪贴板上，选定图片框或图像框控件，然后使用键盘快捷方式Ctrl+V或使用【编辑】菜单的【粘贴】命令即可。
　　在程序运行时，使用LoadPicture()函数加载图片。加载语句如下：
% w% Q7 n$ d; Q0 h. s　　图片框名，Pirture= LoadPicture(文件名)
* x2 |+ ~5 }- C- d　　注意：在程序运行时，不能直接将文件名赋予控件的Picture属性，语句如下：
$ @/ S/ |( \, Q; Q　　要清除图形框控件中的图形，应使用不指定文件名的LoadPicture函数，详句如下：
　　Picturel.Picture=LoadPicture.
7 `6 d) a- t2 o! Y3 V. w# k! T　　实例5.14加载图片。

会计考友

　　在该实例中，程序运行后，用户可以更改图片框中的图片，也可以清除图片框中的图片，在更改或清除图片后，用户还可以恢复图片框中原有的图片。
　　在窗体中放置一个图片框控件和三个按钮控件，如图5.43所示。其中各对象的属性设置如表5.23所示。




　　双击【更换图片】按钮，打开【代码】窗口，将下列代码添加到ComGhangeClick事件过程中：
! b# c/ [$ t) N1 W　　Private sub comchangle_click()
+ h" c* D9 {, D　　Picture1.picture=LoadPirture(“d：programs\office97\Clipart\Popular\Agree2.wmf”)
　　End sub
5 G# h% G2 p3 m/ O, U　　双击【清除图片】按钮，将下列代码添加到ComClear_Chick事件过程中：
, U+ U4 u2 m0 x1 l( N& W* l　　Private sub comchangle_click()
5 w# T  Y2 c- \& X# Y( B2 `　　Picture1.picture=LoadPirture
5 Q; T9 k4 k* A　　End sub
　　双击[恢复图片]按钮，将下列代码添加到ComUndo_Click事件过程中：
　　Private Sub ComUndo_Click()
　　Picture.oricture=LoadPricture(“d：programs\office97\Clipart\Popular\Agree.wmf”)
　　End Sub
4 y; D; S' }1 l! k　　运行该程序，单击【更换图片】按钮，则图片框中的图片就被更换为另一副图片，如图5.44所示。单击【清除图片】按钮，则图片框中的图片被清除，如图5.45所示口单击【恢复图片】按钮，则图片框中又出现初始的图片。


& Q6 x8 _: t* x' l* s8 s* Z　　在将工程保存后，VB为每个包含有图片的窗体生成一个扩展名为FRS的文件，这是应用程序存放图片的地方。
, f# O# n4 Z# b+ t" B! p* i　　在默认情况下，图片框控件的大小不随其中加载图片的大小而变化，并且图片框控件不提供滚动条，因此，如果加载的图片比图片框控件大，则超过的部分显示不出来(除。wmg格式的文件外，该格式的文件会自动调整大小以填满图片框).要使图片框控件自动调整大小以显示完整图形，应将其AutoSize属性设置为True.这样，图片框控件将自动调整大小以适应加载的图形。
　　图片框控件可以作为其他控件的容器，在分组单选项时，可以使用图片框控件替代框架控件。
　　与窗体一样，图片框控件也可以使用Print方法来输出文本，使用Cls方法清除文本。例如，下列语句将在图片框Pictures中显示"在图片框中显示文本"几个字：
　　Picture1.Print "在图片框中显示文本"