Enregister le micro
Contenu du snippet
Public Class Form1
Private 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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' record from microphone
mciSendString("open new Type waveaudio Alias recsound", vbNullString, 0, 0)
mciSendString("record recsound", vbNullString, 0, 0)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' stop and save
mciSendString("save recsound c:\record.wav", vbNullString, 0, 0)
mciSendString("close recsound", vbNullString, 0, 0)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' play audio
My.Computer.Audio.Play("c:\record.wav", AudioPlayMode.WaitToComplete)
End Sub
End Class
Compatibilité : VB 2005
A voir également
- Enregister le micro
- Micro seconde - Forum C / C++ / C++.NET
- Micro pret etudiant ✓ - Forum Visual Basic 6
- Micro milli - Forum Javascript / DHTML
- Micro seconde en s - Forum C
- Micro c - Forum ASM
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.