Sound Recorder

[reconrey]

A simple Sound Recorder~

1. Add Three buttons (button1, button2, button3) and a label (label1) to the form.
2. Set the Text of Button1 to Start, Button2 to Stop, and Button3 to Play.
3. Add this code:

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
 
        Button1.Enabled = False
 
        Button2.Enabled = True
 
        mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
 
        mciSendString("record recsound", "", 0, 0)
 
        Label1.Text = "Recording..."
 
        Label1.Visible = True
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Button1.Enabled = True
 
        Button2.Enabled = False
 
        Button3.Enabled = True
 
        mciSendString("save recsound c:\recsound.wav", "", 0, 0)
 
        mciSendString("close recsound", "", 0, 0)
 
        MsgBox("File Created: C:\recsound.wav")
 
        Label1.Text = "Stopped..."
 
        Label1.Visible = False
 
        My.Computer.Audio.Stop()
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        Label1.Text = "Playing..."
 
        Label1.Visible = True
 
        My.Computer.Audio.Play("c:\recsound.wav", AudioPlayMode.Background)
 
    End Sub
End Class