发表于:2004/4/4 11:13:00
#0楼
附件:
[本地下载]初学VB,做了一个小定时程序,可感觉就是不爽,拿出来请各位工友帮看看,有什么地方做的麻烦了!
再者就我想用WindowsMediaPlayer1控件连续播放两首以上歌曲,那么我怎么能知道第一首歌曲已经放完而控制播放第二首呢?我现在的办法是预先知道歌曲的播放时间,用定时控件,到时间后更换WindowsMediaPlayer1的地址,但太麻烦了!
请朋友给予指正!!多谢!!!
Private Sub Timer2_Timer()
i = i + 1 ‘一秒定时循环累加
If i = g Then ’如果到了播放结束时间
play.URL = App.Path & "\" & music & ".mp3"
i = 0
End If
End Sub
走进风雨,找寻心梦。。。。。。