面向对象程序设计实用第4章

1、本章学习目标应知：图片文件的几种类型的特点Windows组织文件的方法应会：使用图片框和映像框控件显示图像使用文件相关的控件来选择图片文件添加 ActiveX 控件到工程了解工具栏控件和状态栏控件的基本功能项目1 制作简单的图片浏览器程序 在程序里面添加适当的图片，不但可以美化程序的界面，还可以起到了引导用户操作的作用，增强程序的可操作性。在ViauslBasic里，可以通过使用图片框控件（PictureBox） 和映像框控件（Image）来显示一幅图片。本项目是要制作一个简单的图片浏览器程序 。任务1 用PictureBox控件显示一幅图片 单击工具箱里面的图片框控件按钮（PictuerBo

2、x），然后在窗体靠近左上角的地方按下鼠标左键以拖画出一个图片框控件Picture1 加载图片设置picture属性，加载图片设置AutoSize属性 设置图片框控件的AutoSize属性为 True ，图片框控件的大小会自动调整 任务2 用Image控件显示一幅图片 跟图片框控件（PictureBox）一样，映象框控件（Image）也可以显示图片图片框控件占用系统资源要比映像框控件占用的多另外映像框控件还支持透明的gif格式图片还能够对图像的大小进行伸缩添加Image控件 单击工具箱里面的映像框控件按钮（Image），然后在窗体上Picture1控件旁边拖画出一个映像框控件Image1 加载图

3、片设置picture属性，加载图片到映像框控件设置Stretch（伸缩）属性 位图和矢量图及其特点 位图放大后会看到方块 矢量图放大后仍然清晰 位图 Bitmap矢量图任务3 动态加载图片 VisualBasic 6.0提供了LoadPicture 方法可以从程序外部加载图片文件，使用的语法：Set Object = LoadPicture(图片文件名) 如：Set Picture1.Picture = LoadPicture(c:img1.jpg) 任务4 使用控件选择图片 跟文件的相关控件 驱动器列表框控件DriveListBox，用来查看当前计算机中有哪些盘。 目录列表框控件DirLis

4、tBox，用来查看某个盘中有哪些文件夹，或者某个文件夹中有哪些子文件夹。 文件列表框控件FileListBox，用来列出某个文件夹中所有的文件。 程序界面让三个控件协同工作项目2 使用工具栏和状态栏控件 向程序添加工具栏控件和状态栏控件，使程序的界面充实起来。 任务1 添加工具栏 单击菜单“工程”“部件”，在弹出的“部件”对话框中找到“Microsoft Windows Common Controls 6.0”，并将该项打上勾。 单击工具箱中的工具栏控件（ToolBar）按钮，向Form1添加一个“工具栏控件”Toolbar1 单击工具箱中的映像列表控件按钮 ，在Form1添加一个映像列表控件

5、ImageList1 在工具栏上添加按钮 加载图片到ImageList1 在ToolBar1的属性对话框中添加按钮任务2 添加状态栏 双击“工具箱”里的“状态栏控件”按钮 ，在窗体Form1中添加一个状态栏控件StatusBar1，新添加进来的StatusBar1是紧靠在窗体的底部的 设置状态栏添加一个窗口将用户所选中的文件名显示在状态栏的第一个窗体里 Private Sub File1_Click() Dim s As String s = File1.Path If Right(s, 1) Then s = s & s = s & File1.FileName Set Picture1.P

6、icture = LoadPicture(s) StatusBar1.Panels(1).Text = s 新增的一行 End Sub 小结 PictureBox控件和Image控件的使用方法、特点以及一些重要的属性。一般的图片可以分为位图和矢量图两种，我们可以根据实际的需要选择使用哪一种。同时考虑到将所有的图片都加到程序会是程序文件的容量变大，这时可以使用LoadPicture语句实现动态加载图片，即在需要使用图片时才从程序外部加载图片。还学习了Windows系统按驱动器和文件夹层次地组织文件的方法以及使用DriveListBox、DirListBox和FileListBox 三个控件来浏览存放在计算机任意文件夹里的文件。最后通过一个例子学习了如何在程序中添加工具栏和状态栏，使得程序的界面更具专业感。 思考与练习题 做一个动画程序。准