Hvordan Kan jeg afspille jeg en mp3 Fil

Til at afspille MP3 er her et eksempel på hvordan man åbner MP3'er og afspiller dem!
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=43677&lngWId=1

//>Rune

Du skal nok kigge på resource files.

Her er et eks fra MS, godt nok til VB4.
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q141/5/05.asp&NoWebContent=1

//akj

Jeg ka ig få D til at virke :'(

Hvor går det galt ??

//akj

Du kan sætte en mediaplayer komponent ind, den skulle kunne gøre det :O)

jeg ved hvis man bruge mpeg filer fra en res fil skal man først gemme mpegen på computeren.


Public Function SaveResItemToDisk(ByVal iID As Integer, ByVal sType As String, ByVal sDestFileName As String) As Long
On Error GoTo err_eh

Dim byteResData() As Byte

byteResData = LoadResData(iID, sType)

'If Dir(sDestFileName) <> "" Then SetAttr sDestFileName, vbNormal

Open sDestFileName For Binary Access Write As #1

Put #1, , byteResData

Close #1

SaveResItemToDisk = 0

Exit Function
err_eh:


SaveResItemToDisk = Err.Number
End Function

Private Sub Form_Load()
Dim iRet As Integer
Dim sFile As String

sFile = App.Path & "\Temp.mpg"

iRet = SaveResItemToDisk(101, "MYMPEG", sFile)

If iRet <> 0 Then
    MediaPlayer1.FileName = rFile
   
    MediaPlayer1.Play
Else
    MsgBox "error"
End If

End Sub

håber det kan hjælpe dig lidt videre

loke

Har du fundet ud af noget ????