Guten Abend allerseits,
ich hab mir für mein Projekt die bass.dll und natürlich auch die bass.net.dll runtergeladen, um mein Windows Media Player Control damit zu ersetzen. DIe DLL hat mehr Funktionsumfang und ist auch schneller in der Ausführung (jedenfalls fühlt sich das für mich so an).
Nun suche ich aber vergebens ein Event wie das
Leider wird in Zeile 18 das
ich hab mir für mein Projekt die bass.dll und natürlich auch die bass.net.dll runtergeladen, um mein Windows Media Player Control damit zu ersetzen. DIe DLL hat mehr Funktionsumfang und ist auch schneller in der Ausführung (jedenfalls fühlt sich das für mich so an).
Nun suche ich aber vergebens ein Event wie das
MediaEnded
des Windows Media Player Controls. Im Internet hab ich zwar eine Lösung gefunden, diese funktioniert aber nicht. Hier der Code:VB.NET-Quellcode
- Option Strict On
- Imports Un4seen.Bass
- Public Delegate Sub onEnding(ByVal handle As Integer, ByVal channel As Integer, ByVal data As Integer, ByVal user As Integer)
- Public Class Form1
- Public Sub onEnding(ByVal handle As Integer, ByVal channel As Integer, ByVal data As Integer, ByVal user As Integer)
- MessageBox.Show("Lied zu Ende")
- End Sub
- Private Sub Abspielen()
- Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_DEFAULT, formMain.Handle)
- Dim chan As Integer
- Dim streamLänge As Integer
- chan = Bass.BASS_StreamCreateFile("C:\Test\Lied.mp3", 0, 0, BASSFlag.BASS_DEFAULT)
- streamLänge = Bass.BASS_ChannelGetLength(chan) - 1
- Bass.BASS_ChannelSetSync(chan, BASSSync.BASS_SYNC_END, streamLänge, New SYNCPROC(AddressOf onEnding), CType(1, IntPtr))
- Bass.BASS_ChannelPlay(chan, False)
- End Sub
- End Class
Leider wird in Zeile 18 das
onEnding
rot unterstrichen, obwohl es in IntelliSense als Vorschlag angezeigt wird, und ich weiss nicht warum. Von dieser Public Delegate Sub onEnding
und dem AddressOf
hab ich ehrlich gesagt keine Ahnung was das macht und wie das funktioniert... Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „kafffee“ ()