VB.NET Vediaplayer

VB.NET Mediaplayer

Как добавит на форму компонент для воспроизведения медиафайлов, его нет в списке компонентов?
Где его взять?
Если добавит нельзя, то как тогда воспроизвести музыку?

 

можно воспроизводить в плеере установленым в системе по дефолту:

Code:

My.Computer.Audio.Play(File)

или через апи:

Code:

Private Declare Function mciSendString Lib "winmm.dll" _
  Alias "mciSendStringA" ( _
  ByVal lpszCommand As String, _
  ByVal lpszReturnString As String, _
  ByVal cchReturnLength As Integer, _
  ByVal hwndCallback As Integer) As Integer

Code:

Public Function MP3_Play(ByVal sFile As String, _
  ByVal sAlias As String) As Boolean
 
  If mciSendString("open " & Chr(34) & sFile & Chr(34) & _
      " type MPEGVideo alias " & sAlias, 0, 0, 0) = 0 Then

    If mciSendString("play " & sAlias & " from 0", 0, 0, 0) = 0 Then      
      Return (True)
    End If
  End If
End Function

Code:

Public Sub MP3_Stop(ByVal sAlias As String)
  mciSendString "stop " & sAlias, 0, 0, 0
  mciSendString "close " & sAlias, 0, 0, 0
End Sub

Code:

MP3_Play "c:\myMP3s\Test.mp3", "MyAlias"
MP3_Stop "MyAlias"

достаточно поискать в гугле.

 

Это играет только волновые файлы WAV

В гугле искал и достаточно плотно, нашёл как добавить на форму компонент Windows Media Player из COM объектов, но не пойму как им программно управлять, в частности как его остановить и запустить воспроизведение.


Сейчас нашёл как можно просто управлять этим компонентом:

Code:

If MediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
            MediaPlayer1.Ctlcontrols.pause()
        Else
            MediaPlayer1.Ctlcontrols.play()
        End If

 

Используйте bass.dll

 

алллёёё люди.проснитесь.в доп.компонентах есть WindowsMediaPlayer