Ich suche den Source um zB ein kleines Liedstück auf das Tool zu bekommen.
MfG
Druckbare Version
Ich suche den Source um zB ein kleines Liedstück auf das Tool zu bekommen.
MfG
Ist zwar jetzt kein Source aber ich denke mal damit kann ich dir auch helfen http://www.youtube.com/watch?v=dfJE1a7GKXI mfg
1. Du lädst dein Lied auf die Ressource in deinem Programm (Ich denke du weißt wie das geht ?)
2. fügst du entweder in die Form,Timer oder Button_
Code:
My.Computer.Audio.Play(My.Ressources."der Name vom File",AudioPlayBackroundLoop
__________________________________________________ _____________________
PS: Die datei muss .wav sein und nicht .mp3 o.ä
Konvertieren kannst du sie mit : http://media-convert.com/konvertieren/
Hmm, ich würde dir diese API empfehlen, da sie auch MP3s spielt bzw. auch andere Formate (vermute ich mal).
http://www.vbarchiv.net/tipps/details.php?id=499
Die geht eigentlich recht schnell zu implementieren.
Mach aber nen neuen Thread (Ich meine im Programm) auf, denn bei manchen Treiber kommt es zu einem Rauschen wenn du das auf den Main-Thread auslagerst.
Müsste man aber auch so hinkriegen ungf.
MP3_Play my.resources.deinefile, "MyAlias"
Meinst du so?
Code: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 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
If mciSendString("open " & My.Resources.Guns & " type MPEGVideo alias MyMP3", 0, 0, 0) = 0 Then
mciSendString("play MyMP3 from 0", 0, 0, 0)
End If
End Sub
End Class
lass doch einfach dann deine ressource droppen versteckt , und lass sie abspielen .
ist doch easy :)
mfG