[S] Source Code für Music aufm Tool

[trisn]

Ich suche den Source um zB ein kleines Liedstück auf das Tool zu bekommen.

MfG

[g4$one]

Ist zwar jetzt kein Source aber ich denke mal damit kann ich dir auch helfen http://www.youtube.com/watch?v=dfJE1a7GKXI mfg

[HawK]

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/

[Zeko]

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.

[Sirect]

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.

[Kaspersky]

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.

Aber mit diesem code kann man keine mp3's aus den ressourcen aufrufen. Sondern nur lokale dateien.

[CYSER]

Müsste man aber auch so hinkriegen ungf.

MP3_Play my.resources.deinefile, "MyAlias"

[Kaspersky]

Meinst du so?

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

[inmate]

lass doch einfach dann deine ressource droppen versteckt , und lass sie abspielen .

ist doch easy

mfG

[Kaspersky]

lass doch einfach dann deine ressource droppen versteckt , und lass sie abspielen .

ist doch easy

mfG

Jap so mach ich das bisher auch, im temp ordner oder so.