将 VB6 模块转换为 VB.NET

Question

我几乎已经完成了从 VB6 到 VB.NET 的模块转换，但我在使用以下 2 个引号时遇到了问题，并且想知道是否有任何方法可以解决此问题：

Structure AUDINPUTARRAY
    bytes(5000) As Byte
End Structure

我正在尝试将该字节行更改为： Dim字节（5000）作为字节 但它不允许我定义结构的大小。

---

这是第二个：

Private i As Integer, j As Integer, msg As String * 200, hWaveIn As integer

我不知道如何转换：msg As String * 200

Answer 1

您无法在 VB.Net 中声明初始大小，您可以稍后在构造函数中或任何需要的地方使用 Redim 语句设置其大小。

Structure AUDINPUTARRAY
    Public bytes() As Byte
    Public Sub New(ByVal size As Integer)
        ReDim bytes(size) ' set size=5000

    End Sub


End Structure

在 Visual Basic .NET 中，您无法将字符串声明为具有固定长度，除非您在宣言。前面示例中的代码会导致错误。

您声明一个没有长度的字符串。当您的代码为字符串赋值时，该值的长度决定了字符串的长度
请参阅 http://msdn.microsoft.com/ en-us/library/f47b0zy4%28v=vs.71%29.aspx
。所以你的声明将变成

    Private i As Integer, j As Integer, hWaveIn As Integer
    <VBFixedString(200)> Private msg As String

Answer 2

您可以通过属性来做到这一点

Public Structure <StructLayout(LayoutKind.Sequential)> AUDINPUTARRAY
   Public <MarshalAs(UnmanagedType.ByValArray, SizeConst := 5000)> 
     Bytes() As Byte
End Structure

Answer 3

我建议，在将代码从 VB6 重构为 .net 时，您再考虑一下是否要模拟固定长度的 msg As String * 200。如果您指望固定长度的字符串，以便可以从末尾截去字符，并且仍然有 200 个字符的记录，那么这就是依赖于函数副作用的混乱代码。

当我们从 VB6 转换（仍在进行中）时，如果我们将字符串显式设置为 200 字节的空格块，则代码的意图会更清晰。也许可以通过声明：

String msg = String(' ', 200)

（如果这在 VB.net 和 C# 中都有效）。