gpt4 book ai didi

vb.net - 变量 'Name' 在被赋值之前被使用

转载 作者:行者123 更新时间:2023-12-04 04:59:55 25 4
gpt4 key购买 nike

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

代码:

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。
但仍然没有找到正确的代码请帮助。

最佳答案

是的,编译器是完全正确的。你的代码中的问题可以归结为这样的:

Dim name as String
name = name & "Foo"

您正在尝试连接 name 的当前值使用另一个字符串(“Foo”) - 但是 name还没有值(value)。

您可以将其更改为:
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

关于vb.net - 变量 'Name' 在被赋值之前被使用,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16262377/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com