基于VB的个性播放器课程设计

Private Sub List2_Click() List1.ListIndex = List2.ListIndex End Sub

六、添加文件到播放列表 Private Sub File1_Click() Dim name As String

If Right(File1.Path, 1) = \ name = File1.Path & File1.FileName Else

name = File1.Path & \ End If

Form1.List1.AddItem name

Form1.List2.AddItem File1.FileName End Sub

七、动态图片实现

Private Sub Timer4_Timer() Static wp As Integer Select Case wp

9

Case 0

Image1.Picture = LoadPicture(\静茶淡湘\\desktop\\王蒙湘\\1.jpg\wp = wp + 1 Case 1

Image1.Picture = LoadPicture(\静茶淡湘\\desktop\\王蒙湘\\2.jpg\wp = 2 Case 2

Image1.Picture = LoadPicture(\静茶淡湘\\desktop\\王蒙湘\\3.jpg\wp = 3 Case 3

Image1.Picture = LoadPicture(\静茶淡湘\\desktop\\王蒙湘\\4.jpg\wp = 0 End Select

10

End Sub

附：播放器截图：

11

第四章 设计小结

这次vb课程设计我做的是个性多媒体播放器。要求具有播放、暂停、上一曲、下一曲、停止等基本功能。要求很简单，但做起来真的是不容易。我到图书馆查阅了很多资料，找到了一些制作播放器的实例，看完后，基本了解了制作播放器的基本步骤和方法。最后决定，利用三个窗体来实现整个播放器的制作。

在编程的过程中，遇到了很多问题，比如在编辑快进退的时候，其中快进分为两种方式，一种是画面按帧回放，一种是时间按秒回播。在编辑代码时无论是哪一种，都比较复杂最后导致错误，不过，在进过多次翻阅参考资料和青椒老师之后，解决了这个问题，即：直接调用VB中的打包函数：windowsmediaplayer1.controls.fastforward.再比如，实现下一首，上一首的功能时，不能及时反馈到新建立的播放列表二中，当点击下一首触发click事件时，播放下一首歌曲，但是播放列表二中的索引没有变化……于是继续想改良方案，最后我新建立一个时间控件，把播放列表一的索引和播放列表二的索引相关联。为了达

12