1 2 3 4 5 6 7 8 9 10 11 12
| Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal Rtn 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
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
mciSendString("save recsound " + Application.StartupPath + "\record.wav", vbNullString, 0, 0)
mciSendString("close recsound", "", 0, 0)
My.Computer.Audio.Play(Application.StartupPath + "\record.wav", AudioPlayMode.WaitToComplete)
End Sub |
Partager