Visual Studio 2010旗舰版的vb.net版本录音程序源代码2024-7-21QZQ.zip

Option Explicit 'Download by http://www.codefans.net Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long Dim ReturnString As String * 256 Dim RetValue As Long Dim errorstring As String * 1024 Private Sub cmdPlay_Click() Dim CommandString As String If Dir(App.Path & "\Test.Wav") <> "" Then RetValue = mciSendString("open Test.Wav alias sounds1", ReturnString, 256, 0) mciSendString "play sounds1", ReturnString, 256, 0 Else MsgBox "没有声音文件 Test.Wav", vbOKOnly, "提示" End If End Sub Private Sub cmdRecord_Click() RetValue = mciSendString("open new type waveaudio alias sounds1", ReturnString, 256, 0) If RetValue = 0 Then '开始录音... RetValue = mciSendString("record sounds1", ReturnString, 256, 0) cmdStop.Enabled = True Else mciGetErrorString RetValue, errorstring, 1024 MsgBox errorstring End If End Sub Private Sub cmdStop_Click() RetValue = mciSendString("stop sounds1", ReturnString, 256, 0) RetValue = mciSendString("save sounds1 Test.Wav", ReturnString, 256, 0) If RetValue = 0 Then Else mciGetErrorString RetValue, errorstring, 1024 MsgBox errorstring End If RetValue = mciSendString("close sounds1", ReturnString, 256, 0) cmdStop.Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) mciSendString "close all", ReturnString, 256, 0 End Sub 改编以上程序代码，改编成VB.NET版本的程序代码。 以下是将您提供的 VB 代码改编为 VB.NET 版本的示例： ```vb Imports System.Runtime.InteropServices Module Module1 <DllImport("winmm.dll", CharSet:=CharSet.Ansi, EntryPoint:="mciSendString")> Function mciSendString(lpstrCommand As String, ByRef lpstrReturnString As StringBuilder, uReturnLength As Integer, hwndCallback As Integer) As Integer End Function <DllImport("winmm.dll", CharSet:=CharSet.Ansi, EntryPoint:="mciGetErrorString")> Function mciGetErrorString(dwError As Integer, ByRef lpstrBuffer As StringBuilder, uLength As Integer) As Integer End Function Dim ReturnString As New StringBuilder(256) Dim RetValue As Integer Dim errorstring As New StringBuilder(1024) Private Sub cmdPlay_Click() Dim CommandString As String If IO.File.Exists(Application.StartupPath & "\Test.Wav") Then RetValue = mciSendString("open Test.Wav alias sounds1", ReturnString, 256, 0) mciSendString("play sounds1", ReturnString, 256, 0) Else MessageBox.Show("没有声音文件 Test.Wav", "提示", MessageBoxButtons.OK) End If End Sub Private Sub cmdRecord_Click() RetValue = mciSendString("open new type waveaudio alias sounds1", ReturnString, 256, 0) If RetValue = 0 Then '开始录音... RetValue = mciSendString("record sounds1", ReturnString, 256, 0) cmdStop.Enabled = True Else mciGetErrorString(RetValue, errorstring, 1024) MessageBox.Show(errorstring.ToString) End If End Sub Private Sub cmdStop_Click() RetValue = mciSendString("stop sounds1", ReturnString, 256, 0) RetValue = mciSendString("save sounds1 Test.Wav", ReturnString, 256, 0) If RetValue = 0 Then Else mciGetErrorString(RetValue, errorstring, 1024) MessageBox.Show(errorstring.ToString) End If RetValue = mciSendString("close sounds1", ReturnString, 256, 0) cmdStop.Enabled = False End Sub Private Sub Form_Unload(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) mciSendString("close all", ReturnString, 256, 0) End Sub End Module ``` 在这个改编后的代码中： - 使用了 `System.Runtime.InteropServices` 命名空间来导入 Windows API 函数。 - 将固定长度的字符串缓冲区改为 `StringBuilder` 类型。 - 使用 `IO.File.Exists` 来检查文件是否存在。 - 在显示消息框时，直接使用 `MessageBox.Show` 方法。 答案2 ```vb Imports System.Runtime.InteropServices Module Module1 <DllImport("winmm.dll", CharSet:=CharSet.Ansi, EntryPoint:="mciSendString")> Function mciSendString(lpstrCommand As String, ByRef lpstrReturnString As StringBuilder, uReturnLength As Integer, hwndCallback As Integer) As Integer End Function <DllImport("winmm.dll", CharSet:=CharSet.Ansi, EntryPoint:="mciGetErrorString")> Function mciGetErrorString(dwError As Integer, ByRef lpstrBuffer As StringBuilder, uLength As Integer) As Integer End Function Dim ReturnString As New StringBuilder(256) Dim RetValue As Integer Dim errorstring As New StringBuilder(1024) Private Sub cmdPlay_Click(sender As Object, e As EventArgs) Dim CommandString As String If System.IO.File.Exists(System.AppDomain.CurrentDomain.BaseDirectory & "\Test.Wav") Then RetValue = mciSendString("open Test.Wav alias sounds1", ReturnString, 256, 0) mciSendString("play sounds1", ReturnString, 256, 0) Else System.Windows.Forms.MessageBox.Show("没有声音文件 Test.Wav", "提示", System.Windows.Forms.MessageBoxButtons.OK) End If End Sub Private Sub cmdRecord_Click(sender As Object, e As EventArgs) RetValue = mciSendString("open new type waveaudio alias sounds1", ReturnString, 256, 0) If RetValue = 0 Then '开始录音... RetValue = mciSendString("record sounds1", ReturnString, 256, 0) cmdStop.Enabled = True Else mciGetErrorString(RetValue, errorstring, 1024) System.Windows.Forms.MessageBox.Show(errorstring.ToString) End If End Sub Private Sub cmdStop_Click(sender As Object, e As EventArgs) RetValue = mciSendString("stop sounds1", ReturnString, 256, 0) RetValue = mciSendString("save sounds1 Test.Wav", ReturnString, 256, 0) If RetValue = 0 Then Else mciGetErrorString(RetValue, errorstring, 1024) System.Windows.Forms.MessageBox.Show(errorstring.ToString) End If RetValue = mciSendString("close sounds1", ReturnString, 256, 0) cmdStop.Enabled = False End Sub Private Sub Form_Unload(sender As Object, e As System.ComponentModel.CancelEventArgs) mciSendString("close all", ReturnString, 256, 0) End Sub End Module ``` Imports System.Runtime.InteropServices Public Class Form1 <DllImport("winmm.dll", CharSet:=CharSet.Ansi, EntryPoint:="mciSendString")> Function mciSendString(ByVal lpstrCommand As String, ByRef lpstrReturnString As StringBuilder, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer End Function <DllImport("winmm.dll", CharSet:=CharSet.Ansi, EntryPoint:="mciGetErrorString")> Function mciGetErrorString(ByVal dwError As Integer, ByRef lpstrBuffer As StringBuilder, ByVal uLength As Integer) As Integer End Function Dim ReturnString As New StringBuilder(256) Dim RetValue As Integer Dim errorstring As New StringBuilder(1024) Private Sub Form_Unload(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) mciSendString("close all", ReturnString, 256, 0) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click RetValue = mciSendString("stop sounds1", ReturnStri