主题：请教vb.net代码如何转换在狐表中使用？

Private Const DeviceCodePage As Int32 = 936

Public Sub New()

InitializeComponent()

End Sub

Private Sub buttonClear_Click(ByVal sender As Object, ByVal e As EventArgs)

textBoxRecords.Clear()

End Sub

Private Sub buttonExport_Click(ByVal sender As Object, ByVal e As EventArgs)

Try

    Using Client As FaceId = New FaceId(textBoxDeviceIP.Text, Convert.ToInt32(textBoxDevicePort.Text))

    Dim Answer As String

    Dim ErrorCode As FaceId_ErrorCode = Client.Execute("GetRecord(end_time=""" & DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") & """)", Answer, DeviceCodePage)

    If ErrorCode = FaceId_ErrorCode.Success Then

        Dim Pattern As String = "\b(time=.+" & vbCrLf & "(?:photo=""[^""]+"")*)"

        Dim matches As MatchCollection = Regex.Matches(Answer, Pattern)

        If matches IsNot Nothing Then

            For Each match As Match In matches

                textBoxRecords.AppendText(match.Groups(1).Value & vbCrLf)

            Next

        End If

    Else

        MessageBox.Show("错误代码:" & ErrorCode.ToString(), "错误", MessageBoxButtons.OK, MessageBoxIcon.[Error])

    End If

End Using

Catch ex As Exception

    MessageBox.Show(ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.[Error])

End Try