2

你好，我想聊天，我在互联网上搜索，我终于找到了一些可能有用的东西。但现在我在名称处收到一个错误，它说在分配值之前使用了变量名称

代码：

Public Sub findForm1()

    If Trim(Mid(My.Forms.Private1.Text, My.Forms.Private1.Text.Length - 2)) = formNo Then
        My.Forms.Private1.RichTextBox1.Text = My.Forms.Private1.RichTextBox1.Text & poruka + vbCrLf

    ElseIf Trim(Mid(My.Forms.Private2.Text, My.Forms.Private2.Text.Length - 2)) = formNo Then
        My.Forms.Private2.RichTextBox1.Text = My.Forms.Private2.RichTextBox1.Text & poruka + vbCrLf

    Else
        If My.Forms.Private1.Visible = False Then
            Dim name As String
            For i As Integer = 1 To poruka.Length
                If Mid(poruka, i, 2) = ": " Then
                    Exit For

                    name = name & Mid(poruka, i, 1)
                End If
            Next
            My.Forms.Private1.Show()
            My.Forms.Private1.Text = Trim(name) & "   " & br
            My.Forms.Private1.RichTextBox1.Text = My.Forms.Private1.RichTextBox1.Text & poruka + vbCrLf
        Else
            Dim name As String
            For i As Integer = 1 To poruka.Length
                If Mid(poruka, i, 2) = ": " Then
                    Exit For
                End If
                name = name & Mid(poruka, i, 1)
            Next
            My.Forms.Private2.Show()
            My.Forms.Private2.Text = Trim(name) & "   " & br
            My.Forms.Private2.RichTextBox1.Text = My.Forms.Private2.RichTextBox1.Text & poruka + vbCrLf
        End If
    End If

    formNo = Nothing
    poruka = Nothing

End Sub

我该如何解决这个错误？？我已经尝试移动结束 if 并将其他一些更改为结束 if。但仍然找不到正确的代码 PLEAS HELP。

4

2 回答 2

3

是的，编译器是绝对正确的。您的代码中的问题可以归结为以下内容：

Dim name as String
name = name & "Foo"

您正在尝试将 的当前值name与另一个字符串 ("Foo") 连接 - 但还name没有值。

您可以将其更改为：

Dim name as String = ""
name = name & "Foo"

...但你最好使用StringBuilder. 例如，您的第一个循环可能是：

Dim nameBuilder As StringBuilder = New StringBuilder()
For i As Integer = 1 To poruka.Length
    If Mid(poruka, i, 2) = ": " Then
        Exit For

        nameBuilder.Append(Mid(poruka, i, 1))
    End If
Next
My.Forms.Private1.Show()
My.Forms.Private1.Text = Trim(nameBuilder.ToString()) & "   " & br
于 2013-04-28T11:31:04.087 回答
0

问题是有几种情况可能导致您的变量永远不会被初始化。要修复，只需给出一个默认值，例如

Dim Name As String = ""

此外，您要重新声明同一个变量两次，您只需要这样做一次，如果您需要它为下一个循环“空白”或使用 2 个单独的变量（即更具体地命名），只需再次清除它。

于 2013-04-28T11:31:58.957 回答