Vb.net mp3 abspielen (als eingebundene Resource)

[sunny-boy3]

du musst die datei erst droppen und dann abspielen, siehe hier:

Option Explicit On
Public Class Form1
    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
    Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        mciSendString("stop MyMP3", 0, 0, 0)
        mciSendString("close MyMP3", 0, 0, 0)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        IO.File.WriteAllBytes("test.mp3", My.Resources.Guns)
        If mciSendString("open " & "test.mp3" & " type MPEGVideo alias MyMP3", 0, 0, 0) = 0 Then
            mciSendString("play MyMP3 from 0", 0, 0, 0)
        End If
    End Sub
End Class

Bekomme es nicht hin steht immer guns ist kein member von resources

[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

[Kaspersky]

Tja, code sieht richtig aus, bei mir gehts.
Hier mal projekt

Einfach mal debuggen und hören =)

[Bi0sh0k]

Also in Vb6 hatte ich mal was probiert.
Wandel doch die mp3 in eine wave datei um. Macht doch nicht viel unterschied.
Möglichst so convertieren das die .wav genug quali hatt aber möglichst so groß ist wie die mp3. Später beim compilen ist das alles viel kleiner. Benutz z.B. Magic Video Converter. Den Serial musste dir selbst besorgen um das Progi voll nutzen zu können. Ich geb dir gern Extern en Tipp, aber hier im Forum sind Serial Anfragen verboten, wie du bestimmt weißt.
Hier ist ein Vb6 Projekt von mir. Zwar muss ich noch einiges dran machen wegen bugs aber es läuft ganz gut. Ist en Game Hack (Offline Spiel). Die Hack funktion ist noch nicht eingecodet, kommt noch.
Hier mein Projekt : http://www.file-upload.net/download-...jekt1.rar.html
Konstruktive Kritik erwünscht.

[Kaspersky]

ja genau, convertieren oder einfach die mp3 nehmen was um einiges schneller geht und ohne qualitäts verlust^^

[sunny-boy3]

ja genau, convertieren oder einfach die mp3 nehmen was um einiges schneller geht und ohne qualitäts verlust^^

Hab ich ja zuzeit möche ja ne mp3 is besser die source geht bei mir nicht (bedeutet kein ton)

[Kaspersky]

Mach mal die boxen an? XD
Liegt wohl an deinem sys.
Geht nämlich supi^^

[sunny-boy3]

Mach mal die boxen an? XD
Liegt wohl an deinem sys.
Geht nämlich supi^^

Hab ja den ton an kommt nechts kan alle töne hören aer von der surce kein funke

[Kaspersky]

Tja dann ist dein pc nicht MP3-Ready! XDDD
Zum tot lachen xD