Hab dir mal folgendes Rausgesucht:
CodeAlles anzeigenby CouponDropDown">Imports Un4seen.Bass Public Class Form1 Public stream As Integer Public peak(2) As by CouponDropDown">Single Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_CPSPEAKERS, IntPtr.Zero, Nothing) stream = Bass.BASS_StreamCreateFile("F:\Filme&Musik\Musik\Pink Floyd\Pink Floyd-Brick the Wall.mp3", 0, 0, BASSFlag.BASS_STREAM_AUTOFREE Or BASSFlag.BASS_STREAM_PRESCAN) Bass.BASS_ChannelPlay(stream, False) End Sub Private Sub Peak_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Bass.BASS_ChannelGetLevel(stream, peak) Dim rechts As Integer = (Math.Round(peak(1), 3) * 100) Dim links As Integer = (Math.Round(peak(2), 3) * 100) Try ProgressBar1.Value = rechts ProgressBar2.Value = links Catch End Try End Sub End Class
Ja das hab ich auch gesehen^^ Aber irgendwie verstehe ich das nicht muss ich bei :
tream = Bass.BASS_StreamCreateFile("F:\Filme&Musik\Musik\Pink Floyd\Pink Floyd-Brick the Wall.mp3"
Einfach nach StreamCreateFile(" die Stream URL eingeben? Nachdem ich die Bass.dll importiert habe