Question

我正在制作录制音频的程序。

代码：

Imports System.Runtime.InteropServices

Public Class Form1

    Private Declare Function record 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

        record("open new Type waveaudio Alias recon", "", 0, 0)
        record("record recon", "", 0, 0)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        record("save recon c:\mic.wav", "", 0, 0)
        record("close recon", "", 0, 0)
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        My.Computer.Audio.Play("c:\mic.wav", AudioPlayMode.Background)
    End Sub
End Class

行My.Computer.Audio.Play("c:\mic.wav", AudioPlayMode.Background)出错：

FileNotFoundException未处理请确保指定位置存在声音文件。

Answer 1

这适用于我试试看

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

My.Computer.Audio.Play上的FileNotFoundException异常

1 个答案: