VB.net索引超出范围异常

Question

该程序加载一个.txt将它拆分为“：”，然后将其分别检查到某处 每当我的程序到达列表末尾时出现错误这是我的代码

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click 
    If ListBox1.Items.Count = 0 Then 
     MsgBox("Checking DONE") 
    ElseIf ListBox1.Items.Count.ToString > 0 Then 

     Dim str As String 
     Dim strArr() As String 

     str = ListBox1.Items(0) 
     strArr = str.Split(":") 
     If str.Count > 0 Then 
      WebBrowser1.Document.GetElementById("email").SetAttribute("value", (strArr(0))) 
      WebBrowser1.Document.GetElementById("password").SetAttribute("value", (strArr(1))) 
      WebBrowser1.Document.GetElementById("login-form-contBtn").InvokeMember("click") 
      WaitForPageLoad() 
      Threading.Thread.Sleep(5000) 
      Me.Button2.PerformClick() 
     Else 
      MsgBox("Done") 
     End If 
     End If 


End Sub 

另外，Me.Button2.PerformClick（）点击按钮编程，然后按钮两次点击这个按钮，它应该继续下去，直到列表框为空，但它只是崩溃/给出错误

以下是错误http://gyazo.com/cb7c47bca69af101871035bf18231b6e

这是将列表导入列表框的按钮。 OpenFileDialog1.Filter =“Text Files（* .txt）|”| * .TXT” OpenFileDialog1.ShowDialog（）

Dim R As New IO.StreamReader(OpenFileDialog1.FileName) 
    Dim string1 As String() = R.ReadToEnd().Split(New String(Environment.NewLine, StringSplitOptions.RemoveEmptyEntries)) 

    ListBox1.Items.AddRange(string1) 
    R.Close() 
    ListBox1.SelectedItem = ListBox1.Items(0) 

    Dim str As String 
    Dim strArr() As String 

    str = ListBox1.SelectedItem 
    strArr = str.Split(":") 'Delimits the imported combo list 
    Label4.Text = (strArr(0)) 'Email 
    Label3.Text = (strArr(1)) 'Password 
    Label6.Text = (ListBox1.Items.Count) 'How big is combo? 

Answer 1

您在strArr分裂str但你检查str.Count

str = ListBox1.Items(0) 
strArr = str.Split(":") 
If strArr.Count > 0 Then 
    .... 

下面的代码使用strArr的索引0和索引1所以最好检查

If strArr.Count > 1 Then