變量'名稱'被使用之前它已被分配一個值

Question

你好，我想做一個聊天，我在互聯網上搜索，我最終發現了一些可能的工作。但現在我得到的名字，它說變量名使用它分配一個值

代碼之前的錯誤：

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 

我怎樣才能解決這個錯誤？ 我已經試圖移動結束，如果和改變一些結束，如果。 但仍然沒有找到正確的代碼請幫助。

Answer 1

是的，編譯器是絕對正確的。在你的代碼的問題可以歸結爲這樣的事：

Dim name as String 
name = name & "Foo" 

你試圖用另一個字符串（「富」）來連接的name的當前值 - 但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 

Answer 2

問題是有幾個方案可能導致您的變量永遠不會被初始化。要解決這個問題，只需給出默認值，例如

Dim Name As String = "" 

另外，您要重新聲明同一個變量兩次，你只需要，如果你需要它是「空白」，爲下一個循環或使用2個獨立的變量（再這樣做一次，只是將其清除而是更具體地命名）。