如何在AxWindowsMediaPlayer播放列表之后标记文本更改

时间:2019-06-01 09:08:05

标签: vb.net playlist axwindowsmediaplayer

我目前正在制作一个程序来收听和录制声音。我使用mcisendring WMPLib.WindowsMediaPlayer lib。但我有一个问题。

将播放列表的URL作为数组值插入后,播放它,并想在所有播放后更改标签值,然后在播放前更改标签值。 我认为AxWindows MediaPlayer对象在播放后需要初始化,但是我不知道如何。

我想在AxWindowsMediaPlayer1.Ctlcontrols.play()之后更改button1.text。 但是此代码没有。

这是代码

For i = 0 To songs.Length - 1
    songs(i) = songDir & "\" & tmpmix(i) & ".mp3"
Next
Dim media As WMPLib.IWMPMedia = Nothing
Player = New WMPLib.WindowsMediaPlayer

For Each song As String In songs
    media = AxWindowsMediaPlayer1.newMedia(song)
    AxWindowsMediaPlayer1.currentPlaylist.appendItem(media)
Next

AxWindowsMediaPlayer1.Ctlcontrols.play()

If Main.RadioButton1.Checked Then
    Button1.Text = "Remember numbers."
End If

没有错误报告。

0 个答案:

没有答案