多媒体软件设计内容技术.docx

《多媒体软件设计内容技术.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、《多媒体软件设计技术》考试报告书一，实验设计实验要求：设计电子相册浏览器。要求：利用DriveListBox、DirListBox、FileListBox控件或者CommonDialog控件完成文件的打开；能够对然后相片进行缩小或放大。实验设计界面:二，实验运行试验运行界面：1，图片装载；2，图片的缩小3，图片的放大4，图片的上一张5，图片的下一张6，图片的清除三，控件的属性设置控件名称属性名称属性值DriveListBoxNameDrive1VisibleTrueDirListBoxNameDir1VisibleTrueFilelistBoxNameFile1Vis

2、ibleTrue命令按钮1NameCommand1命令按钮2NameCommand2命令按钮3NameCommand3Caption上一张命令按钮4NameCommand4Caption下一张命令按钮5NameCommand5Caption清除窗体NameFrom1Caption照片浏览器BackColor&H0000FF00&(绿色)ImageNameImage1StretchTureVisibleTure三，代码编写1，放大按钮代码：PrivateSubCommand1_Click(IndexAsInteger)Image1.Stretch=TrueImage1.

3、Width=Image1.Width*1.5Image1.Height=Image1.Height*1.5IfImage1.Width>=10000ThenMsgBox"不能再放大了！！",vbCritical,"已经够大了"'则弹出警告框EndIfEndSub2，缩小按钮代码PrivateSubCommand2_Click(IndexAsInteger)Image1.Stretch=TrueImage1.Width=Image1.Width/1.5Image1.Height=Image1.Height/1.5IfImage1.Width<=600ThenMsgBox

4、"不能再缩小了！！",vbCritical,"已经够小了"'则弹出警告框EndIfEndSub1，下一张代码PrivateSubCommand3_Click()n=File1.ListIndexn=((File1.ListCount+(n-1))ModFile1.ListCount)File1.ListIndex=nImage1.Left=2500Image1.Stretch=TrueImage1.Picture=LoadPicture(File1.Path&""&File1.List(n))EndSub2，上一张代码PrivateSubCommand4_Click

5、()n=File1.ListIndexn=((n+1)ModFile1.ListCount)File1.ListIndex=nImage1.Left=2500Image1.Stretch=TrueImage1.Picture=LoadPicture(File1.Path&""&File1.List(n))EndSub3，清除代码PrivateSubCommond5_Click(IndexAsInteger)Image1.Visible=FauseDrive1.Visible=TrueDir1.Visible=TrueFile1.Visible=TrueEndSub1

6、，驱动器代码PrivateSubDir1_Change()File1.Path=Dir1.PathEndSub2，目录列表代码PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSub3，文件列表框代码PrivateSubFile1_Click()Image1.Picture=LoadPicture(File1.Path&""&File1.FileName)Drive1.Visible=TrueDir1.Visible=TrueFile1.Visible=TrueImage1.Visible=TrueImage1.To

7、p=1000Image1.Left=2500EndSub1，窗体代码PrivateSubForm_Load()Image1.Visible=FalseFile1.Pattern="*.jpg;*.gif;*.bmp"EndSub三，考试总结本次考试是通过多次尝试才最终完成的，期间出现了许多我自己都没有预料的错误，通过网上查找和仔细的查阅书本上的知识才使得许多问题最终得以解决，例如，在image的属性设置中，visible的选取一直没有引起我的注意，后来才发现，如果它的值设置为false的话，image控件就会隐藏，导致图片无法显示，所以在需要显示图片