A voir également:
- Ajout du son au programme vb
- Programme python - Forum Python
- Vb decompiler ✓ - Forum VB.NET
- Un programme tente d'envoyer un courrier en votre nom - Forum Visual Basic 6
- Vb access - Conseils pratiques -Visual Basic / VB.NET
- Vb vba - Forum VB.NET
2 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
137
21 févr. 2016 à 11:15
21 févr. 2016 à 11:15
bonjour,
En VB.Net:
En VB.Net:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
My.Computer.Audio.Play(Application.StartupPath & "\ringin.wav", AudioPlayMode.Background) 'Mettre le fichier wav dans le dossier 'Debug' de l'application
End Sub
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
211
Modifié par ucfoutu le 21/02/2016 à 11:55
Modifié par ucfoutu le 21/02/2016 à 11:55
Bonjour, geo (et un salut à Le Pivert),
Ce n'est pas pour rien, que Le Pivert insiste sur le langage (VB.Net).
Ton autre discussion de cette semaine a en effet été, elle, ouverte dans le sous-forum VB6.
Sous quoi développes-tu donc, finalement ?
Ce n'est pas pour rien, que Le Pivert insiste sur le langage (VB.Net).
Ton autre discussion de cette semaine a en effet été, elle, ouverte dans le sous-forum VB6.
Sous quoi développes-tu donc, finalement ?
22 févr. 2016 à 11:27
22 févr. 2016 à 15:29
http://www.online-convert.com/fr/resultat/8ebac4df657f72457eca1234b5106742
ensuite allez dans My Project en haut à droite et Ressources, Ajouter une ressource, Ajouter un fichier existant et rechercher le fichier.
Voici le code:
Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load My.Computer.Audio.Play(My.Resources._18_Stayin_39_Alive_converted, AudioPlayMode.Background)'adapter le nom du fichier End Sub 'arreter Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click My.Computer.Audio.Stop() End Sub End Class@+
22 févr. 2016 à 17:24
23 févr. 2016 à 12:10