多媒体软件设计技术

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

1、《多媒体软件设计技术》课程设计报告课程名称：多媒体软件设计技术班级：学号：姓名：指导教师：一、设计说明该电子相册的设计依据常用图片浏览器的模板，利用visualbasic的强大编程功能和可视化效果，具有常用图片浏览器的各种功能：1）打开图片本工程有两个窗体，一个主窗体显示图片和常用命令按钮，副窗体在点击“打开文件”按钮时弹出，显示驱动器名和文件夹名，从中找到需要打开的文件，点击“确认”或“取消”后隐藏副窗体，在主窗体左的列表框中显示所有文件名，双击任意一个即可打开图片。并在图片上方的label框中显示总图片数当前图片的张数及文件的位置。2）跳至第一张点击后跳到第

2、一张图片3）浏览上一张单击该按钮实现打开文件夹内的上一张图片。4）浏览下一张单击该按钮实现打开文件夹内的下一张图片。5）图片放大对当前图片应用放大功能，以每次1.2倍的速度变大图片，并实现左右对齐的功能。6）图片缩小对当前片图片应用缩小功能，以每次1.2倍的速度缩小图片，并实现左右对齐的功能。7）跳至最后一张点击后跳到最后一张图片。8）自动浏览一次点击后开始自动浏览图片，再次点击后停止。9)退出点击该按钮后，退出程序。此外，在每个控制按钮的图标下都有对应的文字说明，便于读者看懂和操作。为了让界面看起来更和谐，故把所有控件和框体的appearance属性都该为0-

3、flat，backcolor改为和背景图片同色。在代码方面，使用的语句都较为简洁，便于实现和读者理解，体现了vb的通用性和易懂性。在窗显示设计方面，用了两个窗体，当完成文件选择后会随着命令隐藏起来，使得整个浏览器更加具有面向对象的特点。二、详细设计1.程序设计界面1）frmMain2）frmOpen2.程序运行界面1）打开程序2）选择文件3）打开第一张图4）放大效果5）缩小效果3.属性值设置1）主窗体控件名称属性名称属性值窗体（主窗体）Caption电子相册startupPostion2-屏幕中心Picture（bitmap）指定图片名称frmMain文件列表框

4、FileListBox名称lstPicNameBackColor&H00FFFFFF&（浅灰色）图像框Image名称Image1StretchTrue（自动调整大小）命令按钮CommandButton（共同的）Appearance0-flatBackColor&H00FFFFFF&（浅灰）Style1-GraphicPictrue（bitmap）制定图片CommandButton1Caption打开文件名称cmdOpenCommandButton2Caption跳至第一幅名称cmdNaviCommandButton3Caption上一幅图片名称cmdNaviCo

5、mmandButton4Caption下一幅图片名称cmdNaviCommandButton5Caption跳至最后一幅名称cmdNaviCommandButton6Caption自动浏览/停止名称cmdSlideCommandButton7Caption放大名称cmdbupCommandButton8Caption缩小名称CmdrduCommandButton9Caption退出名称cmdExit标签框lable1名称lblStatus1Appearance0-flat标签框lable1名称lblStatus2Appearance0-flat2）副窗体控件名称

6、属性名称属性值窗体（副窗体）Caption指定文件夹BorderStyle（边框）2-sizeable（可变）名称frmOpen驱动器列表框DriveListBox名称Drive1BackColor&H00FFC0C0&（淡灰色色）VisibleTrue（后面会变化）目录列表框DirListBox名称Dir1BackColor&H00FFC0C0&（淡灰色色）标签框lable1Caption驱动器名称Label1标签框lable1Caption文件夹名称Label2CommandButtonCaption确定名称cmdOKCommandButtonCaption

7、取消名称cmdCancel4.代码1)窗体加载PrivateSubForm_Load()'窗体加载strFileType(1)="BMP"strFileType(2)="JPG"'可选择的文件格式strFileType(3)="GIF"strFileType(4)="WMF"strFileType(5)="CUR"strFileType(6)="ICO"EndSub2)打开文件PrivateSubcmdOpen_Click()'打开文件夹DimstrFileNameAsStringDimiAsInteger,jAsInteger‘定义变量frmOpen.Show

8、1IfPath=""Th