简易图片浏览软件设计

《简易图片浏览软件设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、简易图片浏览软件设计20目录内容1选题背景………………………………………………………………………………22方案论证………………………………………………………………………………23软件设计………………………………………………………………………………34程序代码………………………………………………………………………………55结果分析………………………………………………………………………………186总结……………………………………………………………………………………19参考文献………………………………………………………………………

2、……………20201选题背景基于MicrosoftVisualBasic6.0环境的图片浏览器。对MicrosoftVisualBasic6.0软件的进一步了解，运用所学知识解决实际问题。本课题解决的主要问题及技术要求有：1)多个图片的添加与编号。2)对已打开图片的文件名以及文件路径的记录并与原图片相对应。3)已添加图片的单个选择查看。4)实现图片的上一张，下一张切换。5)可以自动播放已经添加的图片。6)对大图片的适应窗口缩放。7)图片的任意放大缩小，与放大或缩小以后的图片移动（可以通过鼠标拖动与点击按钮两种方式进行）。8)

3、可以将正在查看的图片在windows系统的画图板中打开编辑。9)将选择的图片另存为。2方案论证程序设计原理:1)使用菜单栏、工具栏以及按钮操作程序。2)使用commondialog控件来添加文件。3)使用imagelist控件来对添加的图片标号，记录。4)使用数组记录所添加图片的文件名、以及文件路径，并在状态栏显示。5)使用picture控件和image控件来显示图片。6)使用timer控件控件自动播放的时间。程序采用方案图片使用imagelist编号并加载。文件名与路径使用两个字符数组Names（）与Lu()分别记录。20

4、1软件设计流程界面设计→功能设计→程序编写→运行调试控件对象属性列表表1控件属性表默认名称NameCaptionEnableCommand1Command1上一个TrueCommand2Command2自动播放TrueCommand3Command3下一个TrueCommand4Command4适应窗口TrueCommand5Command5上移EnableCommand6Command6左移EnableCommand7Command7下移EnableCommand8Command8右移EnableCommand9Comma

5、nd9缩小EnableCommand10Command10放大EnableCombo1Combo1TrueTimer1Timer1EnableTimer2Timer2Enable菜单栏属性图3-1菜单栏“文件”图3-2菜单栏“编辑”20图3-3菜单栏“设置”图3-4菜单栏“帮助”图3-5菜单栏属性工具栏属性图3-6工具栏状态栏属性图3-7状态栏20程序运行截图图3-8程序运行界面1程序设计代码PublicTimeAsInteger,aAsIntegerDimNames(100)AsString,Lu(100)AsString

6、'定义文件名和文件路径的数组Publicx1AsSingle,y1AsSinglePublicpAsInteger20Constbegin_drag=1'开始拖动*************************************************************************PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)'图片缩小后拖动的重画Image1.Picture=SourceForm1.Image1.Pi

7、cture=LoadPicture(StatusBar1.Panels(4))'拖动后重画picture中的图片Image1.Move(X-x1),(Y-y1)Label2.Caption="图片当前位置("&Image1.Left&","&Image1.Top&")"EndSub*************************************************************************PrivateSubImage1_MouseDown(ButtonAsInteger,ShiftAsI

8、nteger,XAsSingle,YAsSingle)'拖动x1=X'确定重画的坐标y1=YImage1.Dragbegin_dragLabel2.Caption="图片当前位置("&Image1.Left&","&Image1.Top&")"EndSub*****************