私有子窗體_Load()
定時器1。間隔= 500
末端接頭
私有子定時器1_Timer()
Text1。Text = WindowsMediaPlayer1。Controls.currentPositionString
末端接頭
知道是否在播放的代碼。
私有子窗口windows media player 1 _ PlayStateChange(ByVal new state As Long)
if newstate = 1 thename . caption = " Stop "
如果NewState = 3，那麽我。Caption = "正在播放"
末端接頭