Vb.net mp3 abspielen (als eingebundene Resource)

[Kaspersky]

-.- da musst du natürlich den namen deiner mp3 in den resourcen eingeben
#Code verständnis 6

[sunny-boy3]

-.- da musst du natürlich den namen deiner mp3 in den resourcen eingeben
#Code verständnis 6

Hab ich gemacht jetzt bekomme ich zwar kein fehler aber auch kein ton


So sieht die code aus

1. Option Explicit On
2. Public Class Form1
3. Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpszCommand As String, ByVal lpszReturnString As String, ByVal cchReturnLength As Long, ByVal hwndCallback As Long) As Long
4. Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
5. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
6. mciSendString("stop MyMP3", 0, 0, 0)
7. mciSendString("close MyMP3", 0, 0, 0)
8. End Sub
9. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
10. End Sub
11. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
12. IO.File.WriteAllBytes("Test.mp3", My.Resources.Remix_Juli_2009)
13. If mciSendString("open " & "test.mp3" & " type MPEGVideo alias MyMP3", 0, 0, 0) = 0 Then
14. mciSendString("play MyMP3 from 0", 0, 0, 0)
15. End If
16. End Sub
17. End Class