图片浏览器vb课设报告doc.docVIP

图片浏览器设计报告 学院 土木工程 班级 交通运输111 学号 111391 姓名 刁化尧 成绩 一、设计思路 1.要达到的目的 培养学生综合利用语言进行程序设计的能。使用 Loadpicture 方法在图片框里加载符合格式要求的图片。使用 FileListBox 方法来显示图片。 使用 PaintPicture 方法和改变滚动条的 Value 属性，使图片能够缩放。 使用 Timer 事件更改 FileListBox 的 ListCount 属性，使图片能自动浏览。使用 MouseMove 事件，在图片过大时，通过鼠标移动使图片显示 三、部分程序关键源代码及注释 1、文件夹和文件列表的确定 Private Sub Dir1_Click() Form1.Text1.Text = Dir1.Path End Sub Private Sub Drive1_Change() On Error Resume Next Dir1.Refresh Dir1.Path = Drive1.Drive If Err.Number = 68 Then Err.Clear MsgBox 请您先将光盘插入，谢谢。 , , 提示 Exit Sub End If Form1.Text1.Text = Drive1.Drive End Sub Private Sub File1_Click() n = File1.Path \ File1.FileName 装入选定的文件。 Picture1.Enabled = True Picture2.Picture = LoadPicture(n) Picture1.PaintPicture Picture2.Picture _ , 0, 0, Picture1.Width, Picture1.Height, _ 0, 0, Picture2.Width, Picture2.Height 设定图片的初始状态 Picture2.Visible = False mysize = FileLen(Form2.Dir1.Path \ File1.FileName) Picture2.ScaleMode = 3 Text1.Text = File1.Path + \ + File1 显示图片途径 Text2.Text = 共 File1.ListCount 张 第 File1.ListIndex + 1 张 显示图片总数和当前图片的序号 End Sub 2、图片转换到上一张和下一张的确定 Private Sub Command3_Click() n = File1.ListIndex n = ((File1.ListCount + (n - 1)) Mod File1.ListCount) File1.ListIndex = n Picture2.Picture = LoadPicture(File1.Path \ File1.List(n)) Picture1.Enabled = True Picture1.PaintPicture Picture2.Picture _ , 0, 0, Picture1.Width, Picture1.Height, _ 0, 0, Picture2.Width, Picture2.Height 设定图片的初始状态 Picture2.Visible = False mysize = FileLen(Form2.Dir1.Path \ File1.FileName) Picture2.ScaleMode = 3 翻到上一页 End Sub Private Sub Command4_Click() n = File1.ListIndex n = ((File1.ListCount + (n + 1)) Mod File1.ListCount) File1.ListIndex = n Picture2.Picture = LoadPicture(File1.Path \ File1.List(n)) Picture1.Enabled = True Picture2.Picture = LoadPicture