C# と VB.NET の質問掲示板

こんばんは。

メディアプレイヤーで再生中にClearボタンを押すとエラーがでます。

エラー名
System.NullReferenceException: 'オブジェクト参照がオブジェクト インスタンスに設定されていません。'

コード名

Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As System.Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
        Try
            Dim i As Integer
            For i = 0 To AxWindowsMediaPlayer1.currentPlaylist.count - 1
                ’ここでエラーメッセージ出ます。’A
                If AxWindowsMediaPlayer1.currentMedia.isIdentical(AxWindowsMediaPlayer1.currentPlaylist.Item(i)) Then
                    ListBox1.SelectedIndex = Str(i)

                End If
            Next

            MetroProgressbar1.Value = 0
        Catch ex As Exception

        End Try
'省略
end sub

原因は
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        '全てクリアされる
AxWindowsMediaPlayer1.Ctlcontrols.stop()
        AxWindowsMediaPlayer1.currentPlaylist.clear()’←原因はこれなんです。
'これがあるとエラーになる
’コメントアウトしてみるとエラーはでません。
’Clearされていない。
end sub

１，ファイルを開き、そのまま再生しないでClearは出来ました。
２，ファイルを開き、再生した後、Clear押すとAでインスタンスに設定されていませんというメッセージが出ます。
AxWindowsMediaPlayer1.currentPlaylist.clear()でClearしたい場合、すいませんが
教えてください。よろしくお願いいたします。

環境：Visual Studio 2022 VB.NETです。

アンさん落ち着いて、ロッテモナ王さんの回答をよく読んでください。
1. System.NullReferenceException: 'オブジェクト参照がオブジェクト インスタンスに設定されていません。'
が発生する可能性がある所は2カ所
  a. AxWindowsMediaPlayer1.currentPlaylist
  b. AxWindowsMediaPlayer1.currentMedia

2. エラーが発生した箇所が
If AxWindowsMediaPlayer1.currentMedia.isIdentical(AxWindowsMediaPlayer1.currentPlaylist.Item(i)) Then
なので その前で正常に通過したa.の可能性がなくなる。

3. よって
  b. AxWindowsMediaPlayer1.currentMedia
に対して null判定を行えばよいのでは？
と発言されています。

それを踏まえて修正するなら以下の通り

Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As System.Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
        If AxWindowsMediaPlayer1.currentMedia IsNot Nothing Then    '←追加
          Try
                Dim i As Integer
                For i = 0 To AxWindowsMediaPlayer1.currentPlaylist.count - 1
                    ’ここでエラーメッセージ出ます。’A
                    If AxWindowsMediaPlayer1.currentMedia.isIdentical(AxWindowsMediaPlayer1.currentPlaylist.Item(i)) Then
                        ListBox1.SelectedIndex = Str(i)
                    End If
                Next
                MetroProgressbar1.Value = 0
           Catch ex As Exception
           End Try
        End If     '←追加
'省略
end sub

これで「エラー」は発生しません。

で理由は
AxWindowsMediaPlayer1.currentPlaylist.clear();
これが何をするかというと「MediaPlayer」で現在使用しているプレイリストを削除(クリア)します。
そうするとリストがないので当然何のメディアを再生している(いたか)は不明となります。
そうなれば、AxWindowsMediaPlayer1.currentMediaも現在のメディアは不明の為null(Nothing)になりますよね。

なぜstop()の後にclear()しているのかはアンさんのプログラムの仕様の話なので
判断できませんのでそれに合わせて修正してみてください。