27 lines
1006 B
VB.net
27 lines
1006 B
VB.net
Imports System.ComponentModel
|
|
Imports AxWMPLib
|
|
|
|
Public Class Form75
|
|
Private Sub Form75_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
AxWindowsMediaPlayer1.enableContextMenu = False
|
|
AxWindowsMediaPlayer1.Enabled = False
|
|
End Sub
|
|
|
|
Private Sub AxWindowsMediaPlayer1_StatusChange(sender As Object, e As EventArgs) Handles AxWindowsMediaPlayer1.StatusChange
|
|
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
|
|
Close()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form75_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
|
Form88.Close()
|
|
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
|
AxWindowsMediaPlayer1.currentPlaylist.clear()
|
|
Form25.AxWindowsMediaPlayer1.Ctlcontrols.play()
|
|
Form25.PictureBox1.Hide()
|
|
Form25.PictureBox2.Show()
|
|
AxWindowsMediaPlayer1.URL = ""
|
|
Form25.Enabled = True
|
|
End Sub
|
|
End Class |