Private Sub MnuFileOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuFileOpen.Click
OpenFileDialog1.Filter = "所有媒体文件|*.cda;*.mid; *.rmi; *.midi; *.asf; *.wm; *.wma; *.asx; *.wax; *.m3u;*.mpeg; *.mpg; *.mlv; *.dat;*.mp3;*.wav;*.snd;*.au;*.aif;*.avi;*.rm;*.rmvb;*.avi;*.wmv;"
OpenFileDialog1.RestoreDirectory = True
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
mediaplayer.Name = OpenFileDialog1.FileName
mediaplayer.Name = OpenFileDialog1.FileName()
End If
End Sub
Private Sub MnuControlPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuControlPlay.Click
If mediaplayer.playState = WMPLib.WMPPlayState.wmppsPaused Or mediaplayer.playState = WMPLib.WMPPlayState.wmppsStopped Then
If mediaplayer.Name <> "" Then
mediaplayer.Ctlcontrols.play()
ElseIf mediaplayer.playState = WMPLib.WMPPlayState.wmppsPlaying Then
mediaplayer.Ctlcontrols.stop()
End If
End If
End Sub