muziek?

[bas1278]

ik wil een liedje die bij mijn Resources staat afspelen als ik op button 1 druk.
ik wil hem laten afspelen in een windows media player.

weet iemand hoe ik dit moet doen.

 

[SuperABC]

Windows Media Player object moet je in je toolbox plaatsen, ongeveer zo: menu Options, Choose Toolbox Items, COM, vink Windows Media Player aan, Ok. Nu staat die in je toolbox en kan je hem op een form plaatsen:thumb:

 

[bas1278]

ik weet hoe je hem in de toolbox moet krijgen.
maar als ik dit doe

AxWindowsMediaPlayer1.URL = "My.Resources.liedje"

zegt ie kan .liedje niet afspelen

 

[Dummy1912]

Yep dat is waar ik krijg het zelfde resultaat
als je gewoon een bestand selecteerd met openfile dan gaat het wel
ik denkt niet dat url my.resources niet onder steunt maar ik kan verkeerd zijn ook
heb al op google gezocht maar niets over met mediaplayer

Dummy1912

 

[Dummy1912]

Bas1278,

Ik heb net iets gevonden
je moet eens proberen want ik heb het nog niet getest
heb het net gevonden

'Request a temporary file name
Dim tempFileName As String = My.Computer.FileSystem.GetTempFileName

'Create a resource writer and add the movie file.
Dim rw As New Resources.ResourceWriter(tempFileName)
rw.AddResource("tempMovie", My.Resources.AMD_T64_Mobility_Music)

'Close the resource writer which in effects writes the file
rw.Close()

'Play the temporary file
Me.AxWindowsMediaPlayer1.URL = tempFileName

Zoals ik al had gezegt dat url het niet ondersteunt dus moet je het omzetten naar een string
laat maar weten of het werkt.

Dummy1912

 

[bas1278]

bedankt het werkt heel goed!!

 

[Dummy1912]

O das leuk

Ben blij voor jou en dat ik heb kunnen helpen.

Hier is als je mp3 of wav wilt afspelen via Resource

        Dim Ms As New System.IO.MemoryStream
        Dim _BufferLength As Integer = My.Resources.Background_Music.Length - 1
        Dim Buffer(_BufferLength) As Byte
        My.Resources.Background_Music.Read(Buffer, 0, _BufferLength)
        Ms.Write(Buffer, 0, _BufferLength)
        Ms.Seek(0, IO.SeekOrigin.Begin)
        Dim SP As New System.Media.SoundPlayer(Ms)
        SP.Play()
        Ms.Close()

Dummy1912