specialspax.blogg.se

mciSendString( "save recsound c:\record.wav", "", 0, 0) mciSendString( "close recsound", "", 0, 0) End Sub Private Sub Button3_Click( ByVal sender As System. You can save it as either "wav" Or "mp3" extension file. Object, ByVal e As System.EventArgs) Handles Button2.Click ' stop and save. Object, ByVal e As System.EventArgs) Handles Button1.Click ' record from microphone mciSendString( "open new Type waveaudio Alias recsound", "", 0, 0) mciSendString( "record recsound", "", 0, 0) End Sub Private Sub Button2_Click( ByVal sender As System. 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. The wav file to any other appropriate format file by using some tools or components, so that it can be converted to.