我怎样才能挑选从listBox.This随机项目是什么,我都试过了。
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:\测试\ blab.mp3和第二显示C:\测试\ bleasds.mp3
你可以试试
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