不好意思又有問題要問各位高手... ^.^
Private Sub tmrNext_Timer()
'播下一首歌
If mpVideoMagic.CurrentPosition = mpVideoMagic.Volume Then
mpVideoMagic.Stop
mpVideoMagic.Close
mpVideoMagic.FileName = "f:\" + Form2.List1.List(0)
+ "mpg"
mpVideoMagic.Open
mpVideoMagic.Play
Form2.List1.RemoveItem (0)
End If
End Sub
Private Sub trmContrast_Timer()
'比較
If Form2.List1.List(0) = "" Then
tmrNext.Enabled = False
Else
tmrNext.Enabled = True
End If
End Sub
對不起喔,小弟我對 MediaPlayer的屬性都不知道,所以以上的屬性
也不知道對不對.....如有錯誤請指導一下...thank