1、图片浏览器课程设计报告（VB） 编号：14 图片浏览器课程设计报告（VB） 编号：14 图片浏览器设计报告图片浏览器设计报告 一、设计思路一、设计思路 1.要达到的目的要达到的目的 培养学生综合利用 VB语言进行程序设计的能力，主要是利用 VB的标准控件进行设计。 能够打开常见类型的图片，自动进行缩放，适应 PictureBox 的大小。 在 FileListBox 中只列出图片文件。 使用 StatusBar 控件状态条显示图片文件相关信息，包括图片尺寸(单位：象素)、文件大小和日期等。 使用 HscrollBar 控件对图片进行缩放。 可以轮流显示 FileListBox 中列出图片文件。
2、 当图片放大超过窗口大小后，可以提供鼠标移动图片显示。 2.关键问题的解决关键问题的解决 使用 Loadpicture 方法在图片框里加载符合格式要求的图片。 使用 FileListBox 方法来显示图片。 使用 PaintPicture 方法和改变滚动条的 V alue 属性，使图片能够缩放。 使用 Timer 事件更改 FileListBox 的 ListCount 属性，使图片能自动浏览。 使用 MouseMove 事件，在图片过大时，通过鼠标移动使图片显示。 二、模块之间的调用关系，或程序流程图二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释三、部分程序关键源代码及注
3、释 Private Sub Form_Load() Drive1.Drive = App.Path Dir1.Path = App.Path App 是当前的应用程序对象 File1.Pattern = “*.bmp;*.jpg;*.ico;*.wmf“ 在 FileListBox 中只列出图片文件。 Picture1.AutoSize = True 调用 调用 调用 调用 Gamestart 模块 Singleplayer 模块 doubleplayers 模块 Singlehelp 模块 doublehelp 模块 图片浏览器课程设计报告（VB） 编号：14 图片浏览器课程设计报告（VB）
4、 编号：14 Picture2.AutoSize = True 设定自动缩放，适应 PictureBox 的大小。 StatusBar1.Panels.Add StatusBar1.Panels.Add StatusBar1.Panels.Add StatusBar1.Panels.Item(1).MinWidth = 2000 StatusBar1.Panels.Item(1).Alignment = sbrCenter StatusBar1.Panels.Item(2).MinWidth = 1800 StatusBar1.Panels.Item(2).Alignment = sbrCenter StatusBar1.Panels.Item(3).MinWidth = 2400 StatusBar1.Panels.Item(3).Alignment = sbrCenter StatusBar1.Panels.Item(
