Question

vb课设图片浏览器

一、目的与要求
1.目的
培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的图像控件进行界面设计，用VB的鼠标事件进行控件的拖拽处理以及利用数组进行数据处理的能力。
2.基本要求
 有菜单和工具条以方便使用。
 在工具栏中要设有这些常用功能的按钮，通过单击工具栏中的相应按钮执行其功能。
 窗口可以最大化和最小化。当窗体缩放时，窗体上的各个控件要做相应的变化
3.创新要求
在基本要求达到后，进行创新设计，创新点可以自己选择（也可以自己拟订）：
图片很大，即使将窗口最大化也不能完全显示而又不希望缩小图片。增强程序，可以使用滚动条平移大图片进行观察。
二、设计方法和基本原理
1．问题描述
程序界面见下图1。程序启动后，单击左上角按钮 ，弹出“指定文件夹”对话框，从中选择文件夹。单击“确定”后，程序自动搜索图片文件，将图片文件名显示在主窗口左边的列表框中，并将当前的图片文件夹名显示在主窗口底部（如图2）

图1

图2
（1）指定了图片文件夹后，程序在主窗口右部的显示区显示第一副图片。这时，使用鼠标单击列表中的文件名、使用键盘上的方向箭头键、使用工具栏上的 和 都可以显示不同的图片。使用“第一幅图片” 和“最后一幅” 按钮可以显示列表中的第一幅和最后一幅图片。浏览图片时，窗口左下角显示图片总数以及当前显示图片的序号。
（2）单击自动播放按钮 ，程序自动以每秒一幅的速度以幻灯片形式循环播放所有图片。自动播放时，自动播放按钮变为 ，单击停止播放。单击“退出” 按钮关闭本程序。
（3）要求程序主窗口可以通过拖动边框、单击“最大化”、“最小化”和“还原”按钮改变其大小。
（4）工具栏上的按钮根据程序的运行状态自动变为有效或无效。例如，在程序未指定文件夹时，中间五个按钮全为灰色无效状态；如果显示的是最后一张图片，则“下一幅图片”和“最后一幅图片”按钮应为无效。
2. 问题的解决方案
（1）可参见第10章的图片浏览例子编写本程序。对工具栏上的按钮分别编写程序实现功能。
（2）需要在图像中加载图片应使用LoadPicture函数，参数为图片所在路径。把函数的值赋给Image的Picture属性。
（3）此程序含两个窗体，注意使用其它窗体参数的方法。
（4）自动播放按钮有效时，需要使用时钟控件来设置两幅图片显示时间间隔。
三、主要技术问题的描述：
①“指定文件夹”对话框中使用了Visual Basic的内部控件“驱动器列表框”和“目录列表框”，能够显示计算机中所有的驱动器和文件夹。
②显示图片可以用图像（Image）或图片框（PictureBox）控件。因为图片框控件所占用的系统资源比图像控件大，故不宜使用图片框。
③搜索某个文件夹中的图片文件，可以用Dir函数

求大神帮忙！！！！！！！

Answer 1

计力匆渥幽有雪稹赵硅斐鹏双孟名毗廿婷劬佩菲

Caption属性为“图片浏览器”，BorderStyle属性为3，即窗体大小不能改变。
2.设置Label1的属性为“当前驱动器”，Label2的属性为“当前目录”，Label3的属性为“当前文件”；Label4的属性为“当前图像”，Label5的属性为“当前文件路径”。
3.设置Text1的Text属性为空。
4.设置Image1的Stretch属性为True，即所装入的图形能够缩放以适应图像框大小。
5.设置Command1的Caption属性为“确定”，Command2的Caption属性为“退出”。
具体的程序源代码如下：
Private Sub Command1_Click（）
Image1.Picture=LoadPicture（Text1.Text）’当单击“确定”时，文本框中的文件在图像框中显示出来
End Sub
－－－－－－
Private Sub Command2_Click（）’当单击“退出”时，弹出是否退出系统对话框
Dim exi As String
exi=MsgBox（“您真的想退出吗？”，vbYesNo＋vbQuestion＋vbDefaultButton1，“退出”）
If exi=vbYes Then
End
End If
End Sub
－－－－－－
Private Sub Dir1_Change（）
File1.Path=Dir1’当目录发生变化时，文件列表框中的文件也相应变化
End Sub
－－－－－－
Private Sub Drive1_Change（）
Dir1.Path=Drive1’当驱动器变化时，目录列表也相应变化
End Sub
－－－－－－
Private Sub File1_Click（）
Text1.Text=File1.Path＋“\”＋File1’用来在文本框中显示被选中的图形名
End Sub
－－－－－－
Private Sub File1_DblClick（）
Image1.Picture=LoadPicture（File1.Path＋“\”＋File1）’当双击文件列表中的文件时，文件在图像框中显示出来
End Sub
－－－－－－
Private Sub Form_Load（）
Command1.Enabled=False’在未选择图形文件时“确定”按钮不可用
File1.Pattern=“＊.bmp；＊.jpg；＊.ico；＊.cur”’在文件列表框中显示扩展名为.BMP、.JPG、.ICO、.CUR的文件
End Sub
－－－－－－
Private Sub Text1_Change（）
Command1.Enabled=True’当文本框中的内容变化时使“确定”按钮可用
End Sub

孙科骏茼戚风褚咸尼炷酌廉祗康仗罡诒胡沄渭宾

Answer 2

不想毁了你。