首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

高手请问一上

2012-12-30 
高手请教一下假如我调用windows media player 制作一个播放器 再在list1 里面添加播放曲目,作为播放列表,,

高手请教一下
假如我调用windows media player 制作一个播放器
 再在list1 里面添加播放曲目,作为播放列表,,,
 怎么实现程序自动按顺序播放列表中的曲目呢???????


         请大家帮个忙,,急用啊,,,,,,,,,,,
                                                    先谢谢啦
[解决办法]

引用:
做个全局变量play=0 wmp播放完play自+1然后播放list.item(play)

XXXX写错了。。。。。你应该声明一个数组PlayList,类型是这个
type PL
dim Address as string
dim FileName as string 
end type

然后把PlayList(i).FileName按序添加到List里面
定义全局变量PlayOn=0 wmp播放完毕应该有个事件,在这个事件里面添加代码PlayOn=PlayOn+1,播放PlayList(PlayOn).Address,List1.Index=List1.Index+1.。。。。
[解决办法]
'添加 List1 Timer1 WindowsMediaPlayer1
'歌曲自己改 放在 app.path 下的Music文件夹

Private Declare Function PrintWindow Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long, ByVal nFlags As Long) As Long
Dim AppDisk$, MusicDisk$, SongNo&
Private Sub Form_Load()
   Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
   AppDisk = IIf(Right(App.Path, 1) = "", App.Path, App.Path & "")
   MusicDisk = AppDisk & "Music"
   If Dir(MusicDisk, vbDirectory) = "" Then MkDir MusicDisk
   List1.AddItem MusicDisk & "1.dat"
   List1.AddItem MusicDisk & "2.dat"
   List1.AddItem MusicDisk & "3.dat"
   SongNo = 1
   If Dir(List1.List(0)) <> "" Then WindowsMediaPlayer1.URL = List1.List(0)
   Timer1.Interval = 100: Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
   If WindowsMediaPlayer1.playState = wmppsStopped Or WindowsMediaPlayer1.playState = wmppsReady Then
      SongNo = IIf(SongNo > 3, 1, SongNo + 1)
      If Dir(List1.List(SongNo - 1)) = "" Then Exit Sub
      WindowsMediaPlayer1.URL = List1.List(SongNo - 1)
      WindowsMediaPlayer1.Controls.play
   End If
End Sub

热点排行