Ja, sitter och kodar lite spel och annat kul. En sak jag undrar över är för att spela upp en liten ljudsekvens. Har sökt lite innan här på forumet efter kod för att spela upp en ljud fil. Fick hem en hel drös med klasser efter lite letande. Men känns som att det är lite för mycket arbete för att bara spela upp en liten .wav fil. http://www.codeproject.com/vb/net/SoundClass.asp Tack så hemskt mycket fungerar kanon, förutom det där med media spelaren, klassen till en är kanske inte så busenkel för mig :-9Spela ljudsekvens vid händelse..
Finns det någon snäll själ här inne som kan ge mig en enkel kod för att spela upp en .mp3/.wav fil innan följande händelse:
Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
Select Case e.KeyCode
Case Keys.Up
PictureBox1.Top = PictureBox1.Top - 50
' SPELA UPP ETT LITET LJUD ??????
Case Else
MsgBox("Fel", vbExclamation)
End Select
End SubSv: Spela ljudsekvens vid händelse..
här har du bra exempel:
Public Class Sound
Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _
As String, ByVal hmod As Integer, ByVal flags As Integer) As Integer
Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _
As Byte(), ByVal hmod As Integer, ByVal flags As Integer) As Integer
Public Const SND_SYNC = &H0 ' play synchronously
Public Const SND_ASYNC = &H1 ' play asynchronously
Public Const SND_MEMORY = &H4 'Play wav in memory
Public Const SND_ALIAS = &H10000 'Play system alias wav
Public Const SND_NODEFAULT = &H2
Public Const SND_FILENAME = &H20000 ' name is file name
Public Const SND_RESOURCE = &H40004 ' name is resource name or atom
...
End Class
<B>'Using the code:</B>
Private Sub btnFile_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnFile.Click
'File Located in executable dir, change it if you need
Sound.PlayWaveFile("sn01088a.wav")
End Sub
alternativt kan du väl dra in mediaspelaren låta den vara osynlig. Det är busenkelt!
Private Sub playMediaFile(ByVal mediaFileName As String)
With MediaPlayer
.Stop()
.FileName = String.Concat _
(c_soundPath, "\", _
mediaFileName)
.Play()
End With
End Sub
hoppas det hjälper nåt...Sv:Spela ljudsekvens vid händelse..