2

我在 mscorlib.dll 中发生了“System.ArgumentOutOfRangeException”类型的第一次机会异常，它正在影响我的程序。这是我的代码。下面是我对代码的文字摘要。

Private Sub Group_LeaderTextBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Group_LeaderTextBox.LostFocus
    Dim ListCounter As Integer
    Dim Checker As Integer = 0
    Dim NewString As String

    If Group_LeaderTextBox.Text <> "" Then
        If ListBox_ParticipantsNames.Items.Count = 0 Then
            ListBox_ParticipantsNames.Items.Add(Group_LeaderTextBox.Text & " (Group Leader)")
        Else
            For ListCounter = 0 To ListBox_ParticipantsNames.Items.Count - 1
                If ListBox_ParticipantsNames.Items.Item(ListCounter).ToString.Substring(0) = Group_LeaderTextBox.Text Then
                    If ListBox_ParticipantsNames.Items.Item(0).ToString.Substring(ListBox_ParticipantsNames.Items.Item(0).ToString.Length - 14) = "(Group Leader)" Then
                        NewString = ListBox_ParticipantsNames.Items.Item(0).ToString.Replace(" (Group Leader)", "")
                        ListBox_ParticipantsNames.Items.RemoveAt(0)
                        ListBox_ParticipantsNames.Items.Insert(0, NewString)
                    End If
                    ListBox_ParticipantsNames.Items.RemoveAt(ListCounter)
                    ListBox_ParticipantsNames.Items.Insert(0, Group_LeaderTextBox.Text & " (Group Leader)")
                    Exit For
                Else
                    Checker += 1
                End If
            Next

            If Checker = ListBox_ParticipantsNames.Items.Count Then
                If ListBox_ParticipantsNames.Items.Item(0).ToString.Substring(ListBox_ParticipantsNames.Items.Item(0).ToString.Length - 14) = "(Group Leader)" Then
                    ListBox_ParticipantsNames.Items.RemoveAt(0)
                    ListBox_ParticipantsNames.Items.Insert(0, Group_LeaderTextBox.Text & " (Group Leader)")
                Else
                    ListBox_ParticipantsNames.Items.Insert(0, Group_LeaderTextBox.Text & " (Group Leader)")
                End If
            End If
        End If
    Else
        If ListBox_ParticipantsNames.Items.Item(0).ToString.Substring(ListBox_ParticipantsNames.Items.Item(0).ToString.Length - 14) = "(Group Leader)" Then
            ListBox_ParticipantsNames.Items.RemoveAt(0)
        End If
    End If
End Sub

因此，此代码用于在文本框“Group_LeaderTextBox”（我们称之为“X”）失去焦点时向列表框添加值。

逻辑是这样的（按编写代码的顺序）：

但首先，一些先决条件：

  • 有两种方法可以将项目添加到列表框中，一种是通过 X（失去焦点），第二种是通过另一个文本框（我们称之为“Y”）。（不重要）
  • X 中添加到列表框中的所有文本首先出现在列表框中，无论列表框中已经存在什么。
  • 来自 X 的文本，比如“John”，当添加到列表框中时，将显示添加的字符串“(Group Leader)”。因此，在失去焦点时，“John”将显示为“John (Group Leader)”。请记住，也可以有来自 Y 的输入，但是来自 Y 的输入只是它包含的文本。
  • 如果（失去焦点）X 为空，则如果列表框中的第一项包含子字符串“（组长）”，它将被删除。因此，如果从 X 中删除“John”，则将删除“John (Group Leader)”。如果没有组长，什么都不会发生。

逻辑：

假设我在 X 中输入了“John”。失去焦点时，如果列表框为空，“John (Group Leader)”将简单地添加到列表框中。否则，例如，如果我已经通过 Y 向列表框中添加了一些项目，程序将检查列表框中是否已经存在“John”。如果有，并且列表中没有组长，则项目“John”将替换为添加到列表顶部的“John（组长）”（这不起作用）。如果已经有组长，“John（组长）”仍然会出现在最上面，但之前的组长会被降级。因此，如果之前的 "Dick" :P 是之前的组长，则字符串 "(Group Leader)" 将从 "Dick (Group Leader)" 中删除。

现在，如果在检查整个列表后，没有与“John”匹配的项目，那么程序将像以前一样检查是否已经有组长。如果有，那么之前的组长将被简单地替换为“John（组长）”。如果没有任何组长，那么“John（组长）”将被简单地添加到列表的顶部（这也不起作用）。

问题 1（场景）

X：约翰

名单：
约翰·
瑞奇
·简

或（无论列表的顺序如何）

名单：
瑞奇
·约翰·
简

在 X 失去焦点时，项目“John”应该已被删除并替换为添加到列表顶部的“John (Group Leader)”，但什么都没有发生。

问题 2（场景）

X：约翰

名单：
瑞奇
简

在 X 失去焦点时，“John (Group Leader)”应该被添加到列表的顶部，但什么都没有发生。

因此，每当我遇到这些问题时，异常都会出现在我的即时窗口中。谁能帮我？谢谢你。

4

1 回答 1

1

由于您只提供了一个小代码片段，因此很难诊断所有程序的逻辑，但至于您遇到的错误，您的参与者名称是否可能少于 14 个字符？看这一行：

If ListBox_ParticipantsNames.Items.Item(0).ToString.Substring(ListBox_ParticipantsNames.Items.Item(0).ToString.Length - 14) = "(Group Leader)" Then

您可能会遇到先有鸡还是先有蛋的问题，如果您的第一个参与者的姓名不以“（组长）”结尾，那么您添加它，但如果它不以“（组长）”结尾，那么您会收到错误消息。如果ListBox_ParticipantsNames.Items.Item(0).ToString.Length小于 14，您将得到一个负数，这将产生索引超出范围异常。

请参阅文档： http:
//msdn.microsoft.com/en-us/library/hxthx5h6 (v=vs.100).aspx

ArgumentOutOfRangeException：startIndex 小于零或大于此实例的长度。

执行以下操作可能更容易：

Dim l_participantName As String = ListBox_ParticipantsNames.Items.Item(0).ToString()
l_participantName = l_participantName.PadLeft(14) ' Guarantees the length of the string is at least 14 characters
If l_participantName.Substring(l_participantName.Length - 14) = "(Group Leader)" Then

更容易：

If ListBox_ParticipantsNames.Items.Item(0).ToString.EndsWith("(Group Leader)") Then
于 2013-03-29T14:11:56.713 回答