多媒体软件设计技术.docx

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

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

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

4、eBackColor&H00FFFFFF&（浅灰色）图像框Image名称Image1StretchTrue（自动调整大小）命令按钮Command Button（共同的）Appearance0-flatBackColor&H00FFFFFF&（浅灰）Style1-GraphicPictrue（bitmap）制定图片Command Button 1Caption打开文件名称cmdOpenCommand Button 2Caption跳至第一幅名称cmdNaviCommand Button 3Caption上一幅图片名称cmdNaviCommand Button 4Caption下一幅图片名称cmd

5、NaviCommand Button 5Caption跳至最后一幅名称cmdNaviCommand Button 6Caption自动浏览/停止名称cmdSlideCommand Button 7Caption放大名称cmdbupCommand Button 8Caption缩小名称CmdrduCommand Button 9Caption退出名称cmdExit标签框lable1名称lblStatus1Appearance0-flat标签框lable1名称lblStatus2Appearance0-flat2）副窗体控件名称 属性名称 属性值窗体（副窗体）Caption指定文件夹BorderS

6、tyle（边框）2-sizeable（可变）名称frmOpen驱动器列表框DriveListBox名称Drive1BackColor&H00FFC0C0&（淡灰色色）VisibleTrue（后面会变化）目录列表框DirListBox名称Dir1BackColor&H00FFC0C0&（淡灰色色）标签框lable1Caption驱动器名称Label1标签框lable1Caption文件夹名称Label2Command ButtonCaption确定名称cmdOKCommand ButtonCaption取消名称cmdCancel4.代码1) 窗体加载Private Sub Form_Load()

7、 窗体加载 strFileType(1) = BMP strFileType(2) = JPG 可选择的文件格式 strFileType(3) = GIF strFileType(4) = WMF strFileType(5) = CUR strFileType(6) = ICOEnd Sub2) 打开文件Private Sub cmdOpen_Click() 打开文件夹 Dim strFileName As String Dim i As Integer, j As Integer 定义变量 frmOpen.Show 1 If Path = Then Exit Sub 若点击空格键，则结束

8、lblStatus2.Caption = 当前文件夹： & Path Path = Path & lstPicName.Clear 清空列表框 For i = 1 To FileType intFileTypeNum(i) = 0 strFileName = Dir(Path & *. & strFileType(i) 打开图片 Do While Not strFileName = intFileTypeNum(i) = intFileTypeNum(i) + 1 lstPicName.AddItem strFileName 向列表框中添加文件名 strFileName = Dir() Loo

9、p Next If lstPicName.ListCount 0 Then lstPicName.ListIndex = 0 Image1.Picture = LoadPicture(Path & lstPicName.Text) opened = True Else Image1.Picture = LoadPicture opened = False End If Image1.Left = (frmMain.ScaleWidth - Image1.Width) / 2 Image1.Top = (frmMain.Height + 500 - Image1.Height) / 2 lblS

10、tatus1.Caption = 共 & lstPicName.ListCount & 张，第 & lstPicName.ListIndex + 1 & 张 在框中显示总图片数和当前图的张数 If lstPicName.ListCount 0 Then cmdNavi(2).Enabled = True cmdNavi(3).Enabled = True cmdSlide.Enabled = True End IfEnd Sub3) 图片放大Private Sub cmdbup_Click() 图片放大Image1.Stretch = True 使image框的大小与图片自适应Image1.W

11、idth = Image1.Width * 1.2Image1.Height = Image1.Height * 1.2 每次放大1.2倍Image1.Left = (frmMain.ScaleWidth - Image1.Width) / 2Image1.Top = (frmMain.Height + 500 - Image1.Height) / 2End Sub4) 图片缩小Private Sub Cmdrdu_Click() 图片缩小Image1.Stretch = True 使image框的大小与图片自适应Image1.Width = Image1.Width / 1.2 每次缩小1.

12、2倍Image1.Height = Image1.Height / 1.2Image1.Left = (frmMain.ScaleWidth - Image1.Width) / 2 保持图像居中Image1.Top = (frmMain.Height + 500 - Image1.Height) / 25) 自动浏览Private Sub cmdSlide_Click() 自动浏览获取图片 If Timer1.Enabled Then cmdSlide.Picture = LoadPicture(App.Path & play.ico) Else cmdSlide.Picture = Load

13、Picture(App.Path & pause.ico) End If Timer1.Enabled = Not Timer1.EnabledEnd SubPrivate Sub Timer1_Timer() 自动浏览控制 If Not opened Then Exit Sub 如果未点击结束，则继续 If lstPicName.ListIndex = lstPicName.ListCount - 1 Then lstPicName.ListIndex = 0 当浏览至最后一张时，跳回第一张 Else lstPicName.ListIndex = lstPicName.ListIndex +

14、 1 下一张 End If Image1.Picture = LoadPicture(Path & lstPicName.Text) lblStatus1.Caption = 共 & lstPicName.ListCount & 张，第 & lstPicName.ListIndex + 1 & 张 Call Change_Enabled 调用函数，改变命令按钮的enabled属性End Sub6) 实现图片上一张下一张的翻动Private Sub cmdNavi_Click(Index As Integer) If Not opened Then Exit Sub Select Case In

15、dex Case 0 若index为0，则listindex值变为0 lstPicName.ListIndex = 0 无图片 Case 1 If lstPicName.ListIndex = 0 Then Exit Sub lstPicName.ListIndex = lstPicName.ListIndex - 1 Case 2 若index为2，则listindex值加1，到下一张图片 If lstPicName.ListIndex = lstPicName.ListCount - 1 Then Exit Sub lstPicName.ListIndex = lstPicName.Lis

16、tIndex + 1 Case 3 若index为3，则listindex值减1，到上一张图片 lstPicName.ListIndex = lstPicName.ListCount - 1 End Select Image1.Picture = LoadPicture(Path & lstPicName.Text) lblStatus1.Caption = 共 & lstPicName.ListCount & 张，第 & lstPicName.ListIndex + 1 & 张 显示图片的总张数和当前张数 Call Change_Enabled 调用函数Private Sub Change_

17、Enabled() 调节命令按钮的可操作性 If lstPicName.ListIndex = 0 Then 当图片数为0时， cmdNavi(0).Enabled = False “跳至第一张”不响应 cmdNavi(1).Enabled = False “上一张”不响应 cmdNavi(2).Enabled = True “下一张”响应 cmdNavi(3).Enabled = True “跳最后一张”响应 ElseIf lstPicName.ListIndex = lstPicName.ListCount - 1 Then cmdNavi(0).Enabled = True cmdNav

18、i(1).Enabled = True cmdNavi(2).Enabled = False cmdNavi(3).Enabled = False Else cmdNavi(0).Enabled = True cmdNavi(1).Enabled = True cmdNavi(2).Enabled = True cmdNavi(3).Enabled = True End IfEnd Sub7) 退出程序Private Sub cmdExit_Click() 退出程序 Unload MeEnd Sub三.考试小节 本次试验总的来说是充满坎坷的，在试验之前觉得vb很简单，就没有太在意，觉得电子相册

19、比较实用也比较有趣就选了，等到开始做时才感到所学之不足，首先就不知道如何打开文件，考虑了用DriveListBox、DirListBox、FileListBox控件和CommonDialog控件来完成，但编了好几次都是出现了一些问题，而不能达到预期的效果，接着就是在图片放大缩小方面，由于开始用的是picturebox控件，总是不能实现，然后又想增加一个自动浏览的功能，但在实现的时候，又遇到了问题，才发现vb并非想象的那样简单，就去参考了很多vb方面的书，系统的学习了一下vb编程的方法和各种控件的详细使用方法，后来又在王栋老师主编的Visual Basic程序开发实例教程一书中得到启发，经过多次

20、修改后，终于完成这个电子相册的设计。经过一周的努力，虽然有所小成，但却让我真正领略到了这一高级语言的博大精深，我以后要学习的还很多，正所谓“路漫漫其修远兮，吾将上下而求索！”附：程序全部代码主窗体Option Explicit 变量定义Option Base 1Public Path As StringPrivate SlideShow As BooleanPrivate opened As BooleanPrivate Const FileType As Integer = 6 文件类型数目Private strFileType(FileType) As String 文件类型的扩展名Pri

21、vate intFileTypeNum(FileType) As String 各种类型的文件个数Private Sub cmdbup_Click() 图片放大Image1.Stretch = True 使image框的大小与图片自适应Image1.Width = Image1.Width * 1.2Image1.Height = Image1.Height * 1.2 每次放大1.2倍Image1.Left = (frmMain.ScaleWidth - Image1.Width) / 2Image1.Top = (frmMain.Height + 500 - Image1.Height)

22、/ 2End SubPrivate Sub cmdExit_Click() 退出程序 Unload Me End SubPrivate Sub cmdNavi_Click(Index As Integer) If Not opened Then Exit Sub Select Case Index Case 0 若index为0，则listindex值变为0 lstPicName.ListIndex = 0 无图片 Case 1 If lstPicName.ListIndex = 0 Then Exit Sub lstPicName.ListIndex = lstPicName.ListInd

23、ex - 1 Case 2 若index为2，则listindex值加1，到下一张图片 If lstPicName.ListIndex = lstPicName.ListCount - 1 Then Exit Sub lstPicName.ListIndex = lstPicName.ListIndex + 1 Case 3 若index为3，则listindex值减1，到上一张图片 lstPicName.ListIndex = lstPicName.ListCount - 1 End Select Image1.Picture = LoadPicture(Path & lstPicName.

24、Text) lblStatus1.Caption = 共 & lstPicName.ListCount & 张，第 & lstPicName.ListIndex + 1 & 张 显示图片的总张数和当前张数 Call Change_Enabled 调用函数 End SubPrivate Sub cmdOpen_Click() 打开文件夹 Dim strFileName As String Dim i As Integer, j As Integer frmOpen.Show 1 If Path = Then Exit Sub lblStatus2.Caption = 当前文件夹： & Path

25、Path = Path & lstPicName.Clear 清空列表框 For i = 1 To FileType intFileTypeNum(i) = 0 strFileName = Dir(Path & *. & strFileType(i) Do While Not strFileName = intFileTypeNum(i) = intFileTypeNum(i) + 1 lstPicName.AddItem strFileName 向列表框中添加文件名 strFileName = Dir() Loop Next If lstPicName.ListCount 0 Then ls

26、tPicName.ListIndex = 0 Image1.Picture = LoadPicture(Path & lstPicName.Text) opened = True Else Image1.Picture = LoadPicture opened = False End If Image1.Left = (frmMain.ScaleWidth - Image1.Width) / 2 Image1.Top = (frmMain.Height + 500 - Image1.Height) / 2 lblStatus1.Caption = 共 & lstPicName.ListCoun

27、t & 张，第 & lstPicName.ListIndex + 1 & 张 在框中显示总图片数和当前图的张数 If lstPicName.ListCount 0 Then cmdNavi(2).Enabled = True cmdNavi(3).Enabled = True cmdSlide.Enabled = True End IfEnd SubPrivate Sub Cmdrdu_Click() 图片缩小Image1.Stretch = True 使image框的大小与图片自适应Image1.Width = Image1.Width / 1.2 每次缩小1.2倍Image1.Height

28、 = Image1.Height / 1.2Image1.Left = (frmMain.ScaleWidth - Image1.Width) / 2 保持图像居中Image1.Top = (frmMain.Height + 500 - Image1.Height) / 2End SubPrivate Sub cmdSlide_Click() 自动浏览获取图片 If Timer1.Enabled Then cmdSlide.Picture = LoadPicture(App.Path & play.ico) Else cmdSlide.Picture = LoadPicture(App.Pat

29、h & pause.ico) End If Timer1.Enabled = Not Timer1.EnabledEnd SubPrivate Sub Form_Load() 窗体加载 strFileType(1) = BMP strFileType(2) = JPG 可选择的文件格式 strFileType(3) = GIF strFileType(4) = WMF strFileType(5) = CUR strFileType(6) = ICOEnd SubPrivate Sub Label1_Click() 统计并显示总图片数和当前图的张数 If lstPicName.ListIndex = lstPicName.ListCount - 1 Then lstPicName.ListIndex = 0 Else lstPicName.ListIndex = lstPicName.ListIndex + 1 End If Image1.Picture = LoadPicture(Path & lstPicName.Text) lblStatus1.Caption = 共 &