vb error bei hintergrund Musik...

[Milten3110]

Hey, also ich komme bei meinen test project nicht weiter...
ich will musik im hindergrundlaufen lasen wen man auf den (iwas klickt zb den boten)

: Yfrog Photo : yfrog.com/jjerrorkip

da kommt aba imma das oder der text wird mir gelb unterstrichen...
Ich habe Win7 , visual basic 2010 und das neuste .net 4.0

[CYSER]

soweit ich weiß geht audio.play nur mit wmv dateien, kann ja sein das es mp3 ist oder so kann ich nicht erkennen.

[Milten3110]

hm ja okey, ich habe aba die .mp3 datei zu wav covertet dan dürfte es doch gehen... ?

[CYSER]

Joa sollte es. Also My.Computer.Audio.Play(my.resources.blabla, background.. bla)

[Milten3110]

naja da kommt aba dan der fehler den ich da oben habe...

[Milten3110]

hm.. was soll ich den da machen... bei allen tuts die ich mir da angeguckt habe machen die das genauso.... ?
ich habs auch mit anderen .wav convertirten datei probirt aba da kommt auch nen fehler, und der text wird gelb makirt..

[Jury]

Hast du es mal mit einer Datei versucht, die von Anfang an eine .wav war?

[Milten3110]

ich habe da jetz was gefunden aba ich blicke da nicht durch...
ich suche da eig. nur den code den ich dan be mir einfügen muss um meine normale mp3 datei abzuspielen..
-----------------------------------------------------------------------------------------------------------------------------

Imports System.Runtime.InteropServices
Imports System.Text

Public Class MP3Player
Private Pcommand As String, FName As String
Private Opened As Boolean, Playing As Boolean, Paused As Boolean, [Loop] As Boolean, MutedAll As Boolean, MutedLeft As Boolean, _
MutedRight As Boolean
Private rVolume As Integer, lVolume As Integer, aVolume As Integer, tVolume As Integer, bVolume As Integer, VolBalance As Integer
Private Lng As ULong
Private Err As Long

<DllImport("winmm.dll")> _
Private Shared Function mciSendString(ByVal strCommand As String, ByVal strReturn As StringBuilder, ByVal iReturnLength As Integer, ByVal hwndCallback As IntPtr) As Long
End Function

Public Sub New()
Opened = False
Pcommand = ""
FName = ""
Playing = False
Paused = False
[Loop] = False
MutedAll = MutedLeft = MutedRight = False
rVolume = lVolume = aVolume = tVolume = bVolume = 1000
Lng = 0
VolBalance = 0
Err = 0
End Sub

#Region "Volume"
Public Property MuteAll() As Boolean
Get
Return MutedAll
End Get
Set(ByVal value As Boolean)
MutedAll = value
If MutedAll Then
Pcommand = "setaudio MediaFile off"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
Else
Pcommand = "setaudio MediaFile on"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
End If
End Set
End Property


Public Property MuteLeft() As Boolean
Get
Return MutedLeft
End Get
Set(ByVal value As Boolean)
MutedLeft = value
If MutedLeft Then
Pcommand = "setaudio MediaFile left off"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
Else
Pcommand = "setaudio MediaFile left on"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
End If
End Set
End Property


Public Property MuteRight() As Boolean
Get
Return MutedRight
End Get
Set(ByVal value As Boolean)
MutedRight = value
If MutedRight Then
Pcommand = "setaudio MediaFile right off"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
Else
Pcommand = "setaudio MediaFile right on"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
End If
End Set
End Property


Public Property VolumeAll() As Integer
Get
Return aVolume
End Get
Set(ByVal value As Integer)
If Opened AndAlso (value >= 0 AndAlso value <= 1000) Then
aVolume = value
Pcommand = [String].Format("setaudio MediaFile" + " volume to {0}", aVolume)
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
End If
End Set
End Property

Public Property VolumeLeft() As Integer
Get
Return lVolume
End Get
Set(ByVal value As Integer)
If Opened AndAlso (value >= 0 AndAlso value <= 1000) Then
lVolume = value
Pcommand = [String].Format("setaudio MediaFile" + " left volume to {0}", lVolume)
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
End If
End Set
End Property

Public Property VolumeRight() As Integer
Get
Return rVolume
End Get
Set(ByVal value As Integer)
If Opened AndAlso (value >= 0 AndAlso value <= 1000) Then
rVolume = value
Pcommand = [String].Format("setaudio" + " MediaFile right volume to {0}", rVolume)
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
End If
End Set
End Property

Public Property VolumeTreble() As Integer
Get
Return tVolume
End Get
Set(ByVal value As Integer)
If Opened AndAlso (value >= 0 AndAlso value <= 1000) Then
tVolume = value
Pcommand = [String].Format("setaudio MediaFile" + " treble to {0}", tVolume)
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
End If
End Set
End Property

Public Property VolumeBass() As Integer
Get
Return bVolume
End Get
Set(ByVal value As Integer)
If Opened AndAlso (value >= 0 AndAlso value <= 1000) Then
bVolume = value
Pcommand = [String].Format("setaudio MediaFile bass to {0}", bVolume)
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
End If
End Set
End Property

Public Property Balance() As Integer
Get
Return VolBalance
End Get
Set(ByVal value As Integer)
If Opened AndAlso (value >= -1000 AndAlso value <= 1000) Then
VolBalance = value
If value < 0 Then
Pcommand = "setaudio MediaFile left volume to 1000"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
Pcommand = [String].Format("setaudio MediaFile right" + " volume to {0}", 1000 + value)
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
Else
Pcommand = "setaudio MediaFile right volume to 1000"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
Pcommand = [String].Format("setaudio MediaFile" + " left volume to {0}", 1000 - value)
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
End If
End If
End Set
End Property
#End Region

#Region "Main Functions"

Public ReadOnly Property FileName() As String
Get
Return FName
End Get
End Property

Public Property Looping() As Boolean
Get
Return [Loop]
End Get
Set(ByVal value As Boolean)
[Loop] = value
End Set
End Property

Public Sub Seek(ByVal Millisecs As ULong)
If Opened AndAlso Millisecs <= Lng Then
If Playing Then
If Paused Then
Pcommand = [String].Format("seek MediaFile to {0}", Millisecs)
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
Else
Pcommand = [String].Format("seek MediaFile to {0}", Millisecs)
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
Pcommand = "play MediaFile"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
End If
End If
End If
End Sub

Private Sub CalculateLength()
Dim str As New StringBuilder(128)
mciSendString("status MediaFile length", str, 128, IntPtr.Zero)
Lng = Convert.ToUInt64(str.ToString())
End Sub

Public ReadOnly Property AudioLength() As ULong
Get
If Opened Then
Return Lng
Else
Return 0
End If
End Get
End Property

Public Sub Close()
If Opened Then
Pcommand = "close MediaFile"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
Opened = False
Playing = False
Paused = False
OnCloseFile(New CloseFileEventArgs())
End If
End Sub

Public Sub Open(ByVal sFileName As String)
If Not Opened Then
Pcommand = "open """ + sFileName + """ type mpegvideo alias MediaFile"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
FName = sFileName
Opened = True
Playing = False
Paused = False
Pcommand = "set MediaFile time format milliseconds"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
Pcommand = "set MediaFile seek exactly on"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
CalculateLength()
OnOpenFile(New OpenFileEventArgs(sFileName))
Else
Me.Close()
Me.Open(sFileName)
End If
End Sub

Public Sub Play()
If Opened Then
If Not Playing Then
Playing = True
Pcommand = "play MediaFile"
If [Loop] Then
Pcommand += " REPEAT"
End If
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
OnPlayFile(New PlayFileEventArgs())
Else
If Not Paused Then
Pcommand = "seek MediaFile to start"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
Pcommand = "play MediaFile"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
OnPlayFile(New PlayFileEventArgs())
Else
Paused = False
Pcommand = "play MediaFile"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
OnPlayFile(New PlayFileEventArgs())
End If
End If
End If
End Sub

Public Sub Pause()
If Opened Then
If Not Paused Then
Paused = True
Pcommand = "pause MediaFile"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
OnPauseFile(New PauseFileEventArgs())
Else
Paused = False
Pcommand = "play MediaFile"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
OnPlayFile(New PlayFileEventArgs())
End If
End If
End Sub

Public Sub [Stop]()
If Opened AndAlso Playing Then
Playing = False
Paused = False
Pcommand = "seek MediaFile to start"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
Pcommand = "stop MediaFile"
If (Err = mciSendString(Pcommand, Nothing, 0, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
OnStopFile(New StopFileEventArgs())
End If
End Sub

Public ReadOnly Property CurrentPosition() As ULong
Get
If Opened AndAlso Playing Then
Dim s As New StringBuilder(128)
Pcommand = "status MediaFile position"
If (Err = mciSendString(Pcommand, s, 128, IntPtr.Zero)) <> 0 Then
OnError(New ErrorEventArgs(Err))
End If
Return Convert.ToUInt64(s.ToString())
Else
Return 0
End If
End Get
End Property

#End Region

#Region "Event Handling"

Public Delegate Sub OpenFileEventHandler(ByVal sender As Object, ByVal oea As OpenFileEventArgs)

Public Delegate Sub PlayFileEventHandler(ByVal sender As Object, ByVal pea As PlayFileEventArgs)

Public Delegate Sub PauseFileEventHandler(ByVal sender As Object, ByVal paea As PauseFileEventArgs)

Public Delegate Sub StopFileEventHandler(ByVal sender As Object, ByVal sea As StopFileEventArgs)

Public Delegate Sub CloseFileEventHandler(ByVal sender As Object, ByVal cea As CloseFileEventArgs)

Public Delegate Sub ErrorEventHandler(ByVal sender As Object, ByVal eea As ErrorEventArgs)

Public Event OpenFile As OpenFileEventHandler

Public Event PlayFile As PlayFileEventHandler

Public Event PauseFile As PauseFileEventHandler

Public Event StopFile As StopFileEventHandler

Public Event CloseFile As CloseFileEventHandler

Public Event [Error] As ErrorEventHandler

Protected Overridable Sub OnOpenFile(ByVal oea As OpenFileEventArgs)
RaiseEvent OpenFile(Me, oea)
End Sub

Protected Overridable Sub OnPlayFile(ByVal pea As PlayFileEventArgs)
RaiseEvent PlayFile(Me, pea)
End Sub

Protected Overridable Sub OnPauseFile(ByVal paea As PauseFileEventArgs)
RaiseEvent PauseFile(Me, paea)
End Sub

Protected Overridable Sub OnStopFile(ByVal sea As StopFileEventArgs)
RaiseEvent StopFile(Me, sea)
End Sub

Protected Overridable Sub OnCloseFile(ByVal cea As CloseFileEventArgs)
RaiseEvent CloseFile(Me, cea)
End Sub

Protected Overridable Sub OnError(ByVal eea As ErrorEventArgs)
RaiseEvent [Error](Me, eea)
End Sub

#End Region
End Class