Невозможно вызвать функцию controls.play () WMP в VisualBasic.
У меня есть следующий код:http://pastebin.com/EgjbzqA2 который в основном просто урезанная версияhttp://www.dreamincode.net/forums/topic/57357-mymusic-player/, Я хочу, чтобы программа воспроизводила один файл несколько раз, однако эта функция непо какой-то причине не работает. Программа воспроизводит каждый файл один раз, а затем останавливается.
Private Sub Player3_PlayStateChange(ByVal NewState As Integer) Handles Player3.PlayStateChange
Static Dim PlayAllowed As Boolean = True
Select Case CType(NewState, WMPLib.WMPPlayState)
Case WMPLib.WMPPlayState.wmppsReady
If PlayAllowed Then
Player3.controls.play()
End If
Case WMPLib.WMPPlayState.wmppsMediaEnded
' Start protection (without it next wouldn't play
PlayAllowed = False
' Play track
Player3.controls.play()
' End Protection
PlayAllowed = True
updatePlayer()
End Select
End Sub