Out of bounds error?

[hidara]

I've been developing a vb.net program for weeks with no problem. All of a sudden I'm getting an out of bounds error when I run it. I've tried running some of the earlier versions of the program which also used to run with no errors and find the same error pops up. Any ideas please anyone?

[hariharanmca]

I've been developing a vb.net program for weeks with no ...............

Can you specify the exact error message?
(If it possible to post what you done with that before you getting this error?)

[QVeen72]

Hi,

Are you populating a ListBox/Combo/Grid with results of some SQL?
Maybe control does not have any items, and you are trying to access some items from that control, without checking if itemCount > 0
Can you post your code here?

Regards
Veena

[hidara]

************** Exception Text **************
System.IndexOutOfRangeException: Index was outside the bounds of the array.
at workprogsave.Folders.splitandsearch(String foldername) in C:\Documents and Settings\DO'Heidhin\Desktop\Newest 1.9\workprogsave\Folders.vb:line 168
at workprogsave.Folders.Findfolders() in C:\Documents and Settings\DO'Heidhin\Desktop\Newest 1.9\workprogsave\Folders.vb:line 121
at workprogsave.Main.Search_Click(Object sender, EventArgs e) in C:\Documents and Settings\DO'Heidhin\Desktop\Newest 1.9\workprogsave\Main.vb:line 22
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.PerformClick()
at System.Windows.Forms.Form.ProcessDialogKey(Keys keyData)
at System.Windows.Forms.TextBoxBase.ProcessDialogKey( Keys keyData)
at System.Windows.Forms.Control.PreProcessMessage(Mes sage& msg)
at System.Windows.Forms.Control.PreProcessControlMess ageInternal(Control target, Message& msg)
at System.Windows.Forms.Application.ThreadContext.Pre TranslateMessage(MSG& msg)


Above is the error I'm getting.I had my program working on 3 other computers and they all started giving the same error at the same time, the other computers only have the .exe version and don't have vb.net installed and I haven't changed any code! Could an xp update have caused this? Thank you for your replies, the have been really appreciated.

[hidara]

Here is the area of my code which is causing trouble. It searches our G: drive for a project folder ie. ("12345 - Royal Childrens Hospital") where the first set of no.s are the project no. If the search word finds matches in more than one project it populates a listbox with the results and allows the user to choose the correct folder. Thanks again.

Public Sub splitandsearch(ByVal foldername As String)
 
        ' takes each folder name and splits it into 
        ' 1/ project no 
        ' 2/ individual words
        ' these are then matched with search word/s
 
        Dim OneCharacter As Char = foldername
        Dim i As Integer
        Dim aryTextFile(10) As String
        Dim aryresult(50) As String 'if count over 50 create msgbox error
        Dim projectdetails As String = System.IO.Path.GetFileName(foldername)
        Dim projectname As String
        Dim projectno As String = ""
 
 
        projectdetails = projectdetails.Replace(" - ", " ") ' deletes symbols 
 
        aryTextFile = projectdetails.Split(" ") ' split at each space
        For i = 0 To UBound(aryTextFile)
 
            aryTextFile(i) = aryTextFile(i).Trim(" ") ' delete extra spaces
 
            If IsNumeric(aryTextFile(i).Chars(0)) = False Then ' do this if array is a word
                If aryTextFile(i).ToLower = Main.SrchBox.Text.ToLower Then
 
                    count = count + 1
                    aryresult(count) = projectdetails 'records results of search in an array
 
                End If
 
 
            End If
 
            If IsNumeric(aryTextFile(i).Chars(0)) = True Then
 
                projectno = aryTextFile(i)
                aryTextFile(i) = "" ' deletes project no. from array so that only project name is left when joined later
            End If
 
 
        Next i
 
        If count > 0 Then
            condition = "Found"
            For i = 0 To count
 
                If aryresult(i) = "" = False Then ' add multiple results to listbox
                    List.ListBox1.Items.Add(aryresult(i))
                    List.Visible = True
                End If
 
            Next
 
        End If
 
 
 
        projectname = String.Join(" ", aryTextFile)
        projectname = projectname.TrimStart(" ")
 
 
 
 
        'Compare full name or number to search details and display
        If count = 0 Then
            If projectname.ToLower = Main.SrchBox.Text.ToLower Or projectno = Main.SrchBox.Text Then
 
                Main.TextBox1.Text = projectname
                Main.TextBox2.Text = projectno
                Main.GroupBox1.Visible = True
                Main.CostingToolStripMenuItem.Visible = True
                Main.LblType.Text = ("'" & System.IO.Path.GetDirectoryName(foldername) & "'")
                condition = "Found"
                Main.showpix()
            End If
        End If
 
 
 
    End Sub

[Killer42]

It would help if you tell us which line throws the error. I can see possibilities at...

• Line 19, if more than 10 (or is it 11?) things in projectdetails.
• Line 20 if some option caused arrays to start numbering at 1 (as they should!) instead of 0.
• Perhaps line 25 if SearchBox is empty for any reason?
• Line 28 if count is more than 50.
• Line 35 is just silly - it should be an Else.

Keep in mind, of course, that I'm a VB6 developer and not familiar with the .Net versions.

[hidara]

It would help if you tell us which line throws the error. I can see possibilities at...

• Line 19, if more than 10 (or is it 11?) things in projectdetails.
• Line 20 if some option caused arrays to start numbering at 1 (as they should!) instead of 0.
• Perhaps line 25 if SearchBox is empty for any reason?
• Line 28 if count is more than 50.
• Line 35 is just silly - it should be an Else.

Keep in mind, of course, that I'm a VB6 developer and not familiar with the .Net versions.

thank you for your help. I've just picked up vb as a language recently and still having trouble with it.I agree with your point about line 35 and looking at this I found the error. Someone had set up a folder with three blank spaces in a row in the project name.this left two empty arrays when I split the project at the spaces which seemed to be the problem.Ive just added a few lines to keep increasing the index of the array by 1 if it is empty until the upper bound is reached. thank you all again.

[Killer42]

Glad we could help. :)

(And I'm gradually picking up VB.Net syntax along the way...)

[hariharanmca]

Here is the area of my code which is causing trouble. It ...............

        Dim aryTextFile() As String
        Dim aryresult(50) As String 'if count over 50 create msgbox error
        Dim projectdetails As String = System.IO.Path.GetFileName(foldername)
        Dim projectname As String
        Dim projectno As String = ""
        Dim intArrSize As Integer
 
        projectdetails = projectdetails.Replace(" - ", " ") ' deletes symbols 
        intArrSize = UBound(projectdetails.Split(" ") )
        ReDim aryTextFile(intArrSize) As String
        aryTextFile = projectdetails.Split(" ") ' split at each space
 

This changes you have to do it in your code
when ever you are going to use split method you should not fix the array size.