Как выбрать случайный элемент из списка в Visual Basic

Question

Как я могу выбрать случайный элемент из списка. Это то, что я пробовал.

Public currentTrack As Integer
Public temp As Integer
Public generic As Random = New Random()
temp = gen.Next(0, listTracks.Items.Count + 1)
        currentTrack = temp
        MessageBox.Show(listTracks.Items(currentTrack))
        AxWindowsMediaPlayer1.URL = listTracks.Items(currentTrack)

Когда я показываю выбранный элемент в окне сообщения, появляется 2 сообщения Boxes.Each появляется окно сообщениядругой предмет.пример: в первом окне сообщения отображается C: \ test \ blab.mp3, а во втором - C: \ test \ bleasds.mp3

Answer 1

можно попробовать

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim currentTrack As Integer, temp As Integer, gen As Random = New Random()
    Do
        temp = gen.Next(0, listTracks.Items.Count)
        currentTrack = temp
        Dim result1 As DialogResult = MessageBox.Show(listTracks.Items(currentTrack).ToString + vbNewLine + "Play ?",
                                                  "Play", MessageBoxButtons.YesNo)
        If result1 = DialogResult.Yes Then
            AxWindowsMediaPlayer2.URL = listTracks.Items(currentTrack).ToString
        Else
            Exit Do
        End If
    Loop
End Sub