Καλησπέρα, είμαι καινούργιος στο site αλλά και στην vb.net γενικότερα... Ελπίζω να διάλεξα το σωστό μέρος για να κάνω το post...
Ενώ τρέχω κανονικά ένα *mp3 στην φόρμα μου, όταν βάζω το "Play" μέσα σε ένα if δεν τρέχει ποτέ.. Παραθέτω απο κάτω το κομμάτι του κώδικα..
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim musicAlias As String = "myAudio"
Dim file As String = System.IO.Path.Combine(Application.StartupPath, "tick.mp3")
If (Not System.IO.File.Exists(file)) Then
System.IO.File.WriteAllBytes(file, My.Resources.tick)
End If
Dim musicPath As String = "tick.mp3"
mciSendString("Open " & musicPath & " alias " & musicAlias, CStr(0), 0, 0)
If Label1.Text = "10" then
mciSendString("play " & musicAlias, CStr(0), 0, 0)
End If
End Sub
ΥΓ: Με My.Computer.Audio.Play(My.Resources.tick, AudioPlayMode.Background) , δουλεύει, αλλά θέλω να παίζω πολλούς ήχους ταυτόχρονα.