string() 类型的值无法转换为字符串

我不断收到此错误，我尝试了所有可能的方法，但它仍然显示“String() 的值类型无法转换为字符串。”

这是代码：

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

End Sub
Sub New()
    InitializeComponent()

    RAN = New Random
    WB = New WebClient


End Sub

Private Const IDNum As String = "https://example.com/Data.php"

Private WB As WebClient
Private RAN As Random

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

    Dim Account As String() = WB.DownloadString(IDNum).Split(Environment.NewLine)
    AccSplit(Account(RAN.Next(1, Account.Length)))

End Sub


Private Sub AccSplit(ByVal Account As String)

    TextBox2.Text = Account.Split()
End Sub

你打电话时Split here:

TextBox2.Text = Account.Split()

你正在得到一个String阵列回来。呼唤Split不带参数将拆分String在空白字符上。例如，这个：

Dim arr = "Hello World".Split()

等价于：

Dim arr = {"Hello", "World"}

The Text的财产TextBox是类型String，所以你不能分配一个String数组给它。这没有道理。如果你想煎鸡蛋，你要把鸡蛋盒放在锅里吗？正确的行动方针取决于您实际想要实现的目标。如果你只是想要那个String显示在TextBox然后这样做：

TextBox2.Text = Account

你也可以这样做：

TextBox2.Lines = Account.Split()

显示数组，其中的元素位于不同的行上TexTbox，假设您已经设置了它的Multiline财产给True.