grabación y guardado en vb.net

Una grabadora de sonido simple~

1. Agregue tres botones (botón1, botón2, botón3) y una etiqueta (etiqueta1) al formulario.

2. Establezca el Texto del Botón1 en Iniciar, el Texto del Botón2 en Detener y el Texto del Botón3 en Reproducir.

3. Agregue el siguiente código:

Público?Clase?Form1

Privado?Declarar?Función?mciSendString?Lib?winmm.dll? ¿"mciSendStringA"?(ByVal?lpstrCommand?As?String,?ByVal?lpstrReturnString?As?String,?ByVal?uReturnLength?As?Integer,?ByVal?hwndCallback?As?Integer)?As?Integer

Privado?Sub?Button1_Click(ByVal?sender?As?System.Object, ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Button1.Enabled?=?False

Botón2.Enabled?Enabled?=?True

mciSendString("open?new?Type?waveaudio?Alias?recsound",?"" ,?0,?0)

mciSendString("record?recsound",?"" ,?0,?0)

Label1.Text?=?"Grabación..."

Label1.Visible ?=?True

Fin?Sub

Privado?Sub?Button2_Click(ByVal?sender?As?System.Object, ByVal?e?As?System.EventArgs) ?Manejadores? Button2.Click

Button1.Enabled?=?True

Button2.Enabled?mciSendString("save?recsound?c:\recsound.wav",?"" , ?0, ?0)

mciSendString("close?recsound",?"" ,?0,?0)

MsgBox("Archivo?Creado:?C:\recsound .wav" )

Etiqueta1.Text?=?"

Etiqueta1.Text?Stop..."

Etiqueta1.Visible=?False

Mi.Equipo.Audio.Stop()

Fin?Sub

Privado?Sub?Button3_Click(ByVal?sender?As?System.Object,ByVal ?e?As?System .EventArgs)?Handles?Button3.Click

Label1.Text=?Playing..."

Label1.Visible?=?True

Mi.Equipo .Audio.Play("c:\recsound.wav",?AudioPlayMode.Background)

Fin?Sub

Fin?Clase