Lecture de son dans visual basic.net 2003

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 516 fois - Téléchargée 26 fois

Contenu du snippet

Voici mon premier code
Il sert a lire un fichier son quand on appuye sur un boutton dans visual basic.net 2003
Ne soyer pas trop méchant dans vos critiques car je n'ai que 13 ans

Source / Exemple :


Public Class SoundClass
Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _
As String, ByVal hmod As Integer, ByVal flags As Integer) As Integer
' name specifies the sound file when the SND_FILENAME flag is set.
' hmod specifies an executable file handle.
' hmod must be Nothing if the SND_RESOURCE flag is not set.
' flags specifies which flags are set. 

' The PlaySound documentation lists all valid flags.
   Public Const SND_SYNC = &H0          ' play synchronously
   Public Const SND_ASYNC = &H1         ' play asynchronously
Public Const SND_FILENAME = &H20000  ' name is file name
Public Const SND_RESOURCE = &H40004  ' name is resource name or atom

Public Sub PlaySoundFile(ByVal filename As String)
' Plays a sound from filename.
PlaySound(filename, Nothing, SND_FILENAME Or SND_ASYNC)
   End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim SoundInst As New SoundClass()
SoundInst.PlaySoundFile("Emplacement de votre fichier son")
End Sub

Conclusion :


Attention cela ne lit que le .WAV et pas le .MP3

A voir également

Ajouter un commentaire

Commentaires

Aurazed
Messages postés
37
Date d'inscription
jeudi 16 février 2006
Statut
Membre
Dernière intervention
26 mai 2008
-
Tout d'abord bravo pour cette source!
C'est bien que tu commence la prog à ton age!

Concernant ta source, je voulais savoir si tu avais copier/coller le code l'API?
Une petite traduction des commentaires aurait été sympa ...

Bonne continuation.
dvdstory
Messages postés
196
Date d'inscription
dimanche 23 janvier 2005
Statut
Membre
Dernière intervention
10 août 2009
-
10X plus simple en vb.net2

My.Computer.Audio.Play("C:\WINDOWS\Media\Windows XP Commande de menu.wav", AudioPlayMode.WaitToComplete)


exemple d'utilisation:

Private Sub Commande_de_menu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Commande_de_menu.Click
Try
My.Computer.Audio.Play("C:\WINDOWS\Media\Windows XP Commande de menu.wav", AudioPlayMode.WaitToComplete)
Catch ex As Exception
MsgBox("Ce son n'est pas présent sur votre PC", MsgBoxStyle.Exclamation)
End Try
End Sub
thewiseoldmen
Messages postés
1
Date d'inscription
jeudi 29 juillet 2004
Statut
Membre
Dernière intervention
2 avril 2007
-
Je dis bravo!!! Pour un garçon de 13 ans c'est du beau boulot ;)

J'attends avec impatience tes autres codes sources^^ et encore bravo!!!
cs_chaos_elf
Messages postés
1
Date d'inscription
lundi 22 août 2005
Statut
Membre
Dernière intervention
5 avril 2007
-
Bonjour

Je ne comprend pas quand j'essaye d'utiliser ce code sur .net 2003 il me dit que le .net compact framework ne prends pas en charge l'utilisation du modificateur auto. Dois je importter queleque chose pour que ça marche ?

Merci de m'aider ...
hamma1987
Messages postés
1
Date d'inscription
mardi 23 septembre 2008
Statut
Membre
Dernière intervention
11 janvier 2009
-
Je ne comprend pas quand j'essaye d'utiliser ce code
svp tu peur donner l'executable.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.