新Visual Basic.NET程序设计实验实训指导 教学课件 邱炳城 实验7 浏览图片.pptVIP

Visual Basic.NET程序设计实验实验7 浏览图片 【功能描述】 根据用户选择的文件夹，程序自动搜索该文件夹下的图片文件，并在窗口中显示图片及其文件名，用户可以用鼠标或键盘进行循环翻图。 【实验内容】 1．PictureBox控件、FolderBrowserDialog组件、ToolTip组件的应用。 2．自定义过程及函数的运用。 3．鼠标事件及键盘事件的应用。 4．Image类及其应用。 【实验目的】 1．掌握Try-Catch-End Try语句的运用。 2．掌握鼠标事件及键盘事件的基本处理方法。 3．熟悉Image类的基本应用。 4．熟悉PictureBox控件处理图像的基本方法。 【预备知识】 1．Image类 2．PictureBox控件 3．FolderBrowserDialog组件 4．ToolTip组件 5．捕获鼠标 6．捕获键盘 7．DoEvents()方法 8．Dir()函数 【实验步骤】 1．创建及保存项目 2．“即时”窗口的使用 3．窗体设计 4．程序设计 5．程序调试 6．程序改进 【问题与思考】 1．如果需要检索一个文件夹下的所有子文件夹，使用Dir()函数如何实现？ 2．通过联机帮助了解My.Computer.FileSystem对象、FileSystemInfo类所提供的功能及相关的属性与方法。 3．通过联机帮助学习SendKeys类、Clipboard类及ImageFormat类的功能及应用，读懂例7-1程序。 4．本实验在浏览图像时，如果用户按键盘的空格键或B键，会打开浏览文件夹对话框。试修改过程Form1_KeyDown的代码，使用户只有按Alt+B及回车键时才打开浏览文件夹对话框，而按空格键或B键则会浏览下一幅图像。 5．在本实验中，使用数组fImage()来保存图像，这样能提高图片的载入速度。但是，当文件夹中有大量图片文件时，程序会占用大量内存。请按下面要求对程序进行改进： （1）去掉数组fImage()和变量p。检索文件时直接用Load()方法将文件装入控件PictureBox1中，如果成功，则将文件的完整路径保存在数组fName()中。 （2）将过程ShowImage的图像装入语句修改为用PictureBox1的Load()方法，即：PictureBox1.Load(fName(n))。 6．按下面要求改写程序： 当用户选择文件夹后，程序自动循环播放该文件夹中的图片文件，每3秒播放1幅图像。可考虑使用Timer组件，或使用System.Threading.Thread.Sleep()方法。 7．按下面要求改写程序： 当用户选择文件夹后，程序检索出该文件夹中的图片文件，将文件名添加到列表框控件ListBox中（参考实验3），用户单击列表框中的文件名时，程序显示相应的图像。 8．使用My.Computer.FileSystem.GetFiles()方法代替Dir()函数改写程序。 Image类 Image类 Image类提供对图像进行操作的方法和属性。如，图像的大小（Size）、宽度（Width）、高度（Height）、从文件创建图像（FromFile）、保存图像（Save）等。 下面代码声明变量p是一幅图像，并将图像文件c:\rose.jpg装入到变量p中。 Dim p As Image p = Image.FromFile(c:\rose.jpg) 当要将磁盘的图像文件保存在一个变量中时，不能使用这样的赋值语句： p = c:\rose.jpg“ 因为c:\rose.jpg只是字符串而已，变量p的类型是Image不是String。通常使用Image类的FromFile()方法将图像文件保存在一个变量中，或用Bitmap类通过现有图像创建新实例。例如，上面代码可写成： Dim p As Image p = New Bitmap(c:\rose.jpg) 当需要将图像写入磁盘时，可使用Image类的Save()方法。 例7-1 抓图程序 将当前窗口作为一幅图像以jpeg格式保存在文件c:\win.jpg中（通常称为“截屏”或“抓屏”）。 Dim p As Image SendKeys.SendWait(%{PRTSC}) p = Clipboard.GetImage() Clipboard.Clear() p.Save(c:\win.jpg, Imaging.ImageFormat.Jpeg) PictureBox控件 PictureBox控件用于显示各种格式的图像，包括：BMP、GIF、JPEG、PNG、EMF、ICON等格式。 显示图像的方法有两种： （1）设置Image属性。该属