Question

我是VB.net的新手并且正在努力摆脱VB6发送数据的方式，我这样做是为了从我的客户端向服务器发送一个字节数组，如果这是正确的方法，请提供建议，谢谢：

发送部分：

 Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click

        Dim arrNo(3) As Integer
        arrNo(0) = 1400
        arrNo(1) = 1000
        arrNo(2) = 1200
        arrNo(3) = 1350

        Dim i As Integer
        For i = 0 To arrNo.Length - 1
            Dim outStream() As Byte = BitConverter.GetBytes(arrNo(i))
            Debug.Print(arrNo(i))
            serverStream.Write(outStream, 0, outStream.Length)
            serverStream.Flush()
        Next
    End Sub

Answer 1

在VB6中，Integer为2个字节。在VB.NET中使用Short。将Flush移出For循环。其余的看起来还不错。

Answer 2

在VB.NET中，您可以将变量声明为for循环语法的一部分。

For i As Integer = 0 To arrNo.Length - 1
...
Next

您还可以在声明中提供数组初始值设定项（尽管这可能不像您的示例代码那样适用于您的实际代码）：

Dim arrNo As Integer() = {1400, 1000, 1200, 1350}

VB.Net从客户端向服务器发送字节数组

2 个答案: