inserer son vb7Résolu

Question

Lut
sous vb7, lors de l'ouverture d'une page ou un clic d'un bouton, je voudrai que le logiciel joue un petit son format wav.
Est-ce possible de lancer ce ptit son sans passer par un controle mci ?
Y a t il une commande avec 1 ou quelques lignes tres simples pour effectuer l'operation, comme dans vb6 avec loadpicture pour les images ?

Merci d'avance

Chris

cs_chris_p · Accepted Answer

Merci Ca marche trop bien
Bonne journ&#233;e

Chris

cboulas · Answer

Salut, sous .Net, tout passe par des classes, ce qui veux dire que le contr&#244;le MCI passe aussi par la m&#234;me classe que si tu le faisait toi m&#234;me, le contr&#244;le te permet surtout de gagner du temps c'est tout.


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

cs_chris_p · Answer

Lut
Merci pour ta r&#233;ponse mais je suis un newbie dans le domaine.
Si c pas trop long, peux-tu m'indiquer le code ou la marche &#224; suivre.

Merci d'avance

Chris

cboulas · Answer

Malheureusement l&#224; je ne vais t'&#234;tre d'aucune utilit&#233; car je ne l'ai jamais utiliser sous .Net, ce que j'ai expliquer c'est le principe du .Net, mais je vais me pench&#233; dessus de suite, afin de pouvoir te r&#233;pondre.


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

cboulas · Answer

Bien, voici ce que j'ai trouver ceci dans la MSDN :


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 = &amp;H0          ' play synchronously
   Public Const SND_ASYNC = &amp;H1         ' play asynchronously
Public Const SND_FILENAME = &amp;H20000  ' name is file name
Public Const SND_RESOURCE = &amp;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("C:\ringout.wav")
End Sub



Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

cs_chris_p · Answer

Je vais tester cela tout de suite.
Merci beaucoup
ciao
Chris

cs_chris_p · Answer

Je vais tester cela tout de suite.
Merci beaucoup
ciao
Chris

Inserer son vb7

7 réponses

Discussions similaires