JOUER UNE MUSIQUE MP3 LORS DE L'EXECUTION D'UN FORMULAIRE SOUS VB.NET

Question

[b]Bonjour tout le monde, en fait je suis entrain de faire une application de gestion d'une école et j'aimerai que lors de l'exécution de ce dernier c'est a dire au formulaire du Menu Utilisateur, que l'utilisateur entende une musique intégrée au formulaire ou bien si possible une sélection de musique.
Merci d'avance de votre contribution /b

cs_Jack · Answer

Salut
Pourquoi catégorie "Access" ?
Quel rapport avec ta question et le .Net ?

As-tu tapé "MP3" dans la recherche de code .Net sur le site ?
La réponse est là.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

moiseinfo2 · Answer

En fait ce que je veux dire c'est que lorsque j'execute un form qu'une musique se joue en meme temps ( windows application)

cs_Le Pivert · Answer

Bonjour,
J'ai une réponse, mais uniquement pour les fichiers wav:

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Arrete la lecture du son
        My.Computer.Audio.Stop()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        My.Computer.Audio.Play(Application.StartupPath & "\fichier.wav", AudioPlayMode.Background) 'joue en arrière plan
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        My.Computer.Audio.Play(Application.StartupPath & "\fichier.wav", AudioPlayMode.WaitToComplete) 'joue complétement, ne s'arrête qu'à la fin du morceau
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        My.Computer.Audio.Play(Application.StartupPath & "\fichier.wav", AudioPlayMode.BackgroundLoop) 'joue en boucle
    End Sub

Mettre les fichiers wav dans le dossier debug de l'application
@+

moiseinfo2 · Answer

Merciiiiiiiiiiii  Chef ça marche a merveille

cs_Le Pivert · Answer

J'ai oublié de vous dire si vous ne le saviez pas de mettre ce code pour que cela démarre à l'ouverture de l'application:

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        My.Computer.Audio.Play(Application.StartupPath & "\monfichier.wav", AudioPlayMode.BackgroundLoop) 'joue en boucle
    End Sub
'pour arrêter à la fermeture
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'Arrete la lecture du son
        My.Computer.Audio.Stop()
    End Sub

@+ Le Pivert

moiseinfo2 · Answer

Oui merci chef je l'ai deja fait chef. En fait si trouver par hasard un code pour les fichiers mp3 ça serait encore plus génial car le les fichiers wav sont un peu trop lourd. Et encore merci

cs_Le Pivert · Answer

Pour jouer des MP3, cela est un peu plus compliqué. Le code que je vais vous donner ne joue pas en boucle. Mettre dans un module: Option Strict Off Option Explicit On Module Module1 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 Public strFileToPlay As String Public bPlaying As Boolean Public Sub Play() If strFileToPlay <> "" Then mciSendString("play " & strFileToPlay, CStr(0), 0, 0) bPlaying = True End If End Sub Public Sub Open() If strFileToPlay <> "" Then mciSendString("open " & strFileToPlay & " type MPEGVideo", CStr(0), 0, 0) End If End Sub Public Sub Pause() If bPlaying Then mciSendString("pause " & strFileToPlay, CStr(0), 0, 0) bPlaying = False End If End Sub End Module Dans le Form, 1 bouton pour démarrer et 1 pour stopper Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Call Pause() strFileToPlay = "Chemin du fichier.mp3" strFileToPlay = """" & strFileToPlay & """" Call Open() Call Play() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Call Pause() End Sub Le module est un snippet qui ce trouve sur ce site @+ Le Pivert

JOUER UNE MUSIQUE MP3 LORS DE L'EXECUTION D'UN FORMULAIRE SOUS VB.NET

7 réponses

Votre réponse

Discussions similaires