Problem getting information from a property in a class [Resolved all by myself :) ]

[Porsche944]

I have a class which stores information on what to search for in active directory along with some information about how the UI should display the results.

when I run a search I create an object and fill it with information based on what options are selected in the UI. The program will then store this object in a list view which acts as a previously search collection. I have a collection I created to store and get information from the object. This part was working fine until I added a new property to my class. Now when I attempt to run a previous search from the list box I get this error. "Cast from string "RegEx" to type 'Byte' is not valid. "

This error is produce on this line....

Dim lookforme As New objLocate(SearchCollection.Item(intClicked).SearchFor, SearchCollection.Item(intClicked).SearchMachineUse, SearchCollection.Item(intClicked).SearchString, SearchCollection.Item(intClicked).SaveNameString)

Here is the code from the function that the error happens on....

Private Sub RunSaveSearch()
        'This function will get the currently selected item in the saved listview
        'it will then perform the search based on what item was selected
        Dim intClicked As Integer
        intClicked = lstSaved.SelectedIndex
        If intClicked = -1 Then
            'No item was selected so exit the sub
            Exit Sub
        End If
        If SearchCollection.Count = 0 Then
            'There were no items in the search collection so don't do anything
            'ERROR CONTROL
        Else
            'Set the searchfor textbox to the value of the search string
            'in the object [Some search funtions rely on the information
            'being in the textbox]
            txtSearchFor.Text = SearchCollection.Item(intClicked).SearchString
            'Dim lookforme As New objLocate(SearchCollection.Item(intClicked).SearchFor, SearchCollection.Item(intClicked).SearchMachineUse, SearchCollection.Item(intClicked).SearchString, SearchCollection.Item(intClicked).SearchRegEx, SearchCollection.Item(intClicked).SearchMachineModel)
            Dim lookforme As New objLocate(SearchCollection.Item(intClicked).SearchFor, SearchCollection.Item(intClicked).SearchMachineUse, SearchCollection.Item(intClicked).SearchString, SearchCollection.Item(intClicked).SaveNameString)
            Find(lookforme)
        End If
    End Sub

Here is the code for the class that the object is created from.....

Public Class objLocate
    'This class is used to create objects 
    'that will store information based
    'on what the user wishes to search for
    'this class is the core of the searching
    'functions. All the searching functions will
    'only work if a object created from this class
    'is passed to them as an arguement
 
    Dim enumSearchFor As SearchFor 'An enumeration used to tell what the program
    'the program should search for
    Dim enumMachineUse As desMachineType 'An enumeration that tracks what type
    'of machine to search for EX: workstation, Laptop, Pool Laptop ect.
    Dim strSearchFor As String 'A string that holds the information usually
    'stored in txtSearchFor  [The textbox where the user types a search in]
    Dim bolRegEx As Boolean 'Boolean used to keep track if the search is
    'going to use the regular expression to search
    Dim strMachineType As String 'A string that holds information on what
    'model machine to search for EX: GX110 , GX400 , GX270 ect.
    Dim enumSaveName As enumSaveName 'A enumeration that holds information on what name
    'to use for the saved search
    Dim strSaveName As String
    Public ReadOnly Property SaveNameString() As String
        Get
            Return ConvertSaveNameEnum(enumSaveName)
        End Get
    End Property
    Public WriteOnly Property SaveName() As enumSaveName
        Set(ByVal Value As enumSaveName)
            enumSaveName = Value
        End Set
    End Property
    Public Property SearchMachineModel() As String
        Get
            Return strMachineType
 
        End Get
        Set(ByVal Value As String)
            strMachineType = Value
        End Set
    End Property
    Public Property SearchRegEx() As Boolean
        Get
            Return bolRegEx
        End Get
        Set(ByVal Value As Boolean)
            bolRegEx = Value
        End Set
    End Property
 
    Public Property SearchFor() As SearchFor
        Get
            Return enumSearchFor
 
        End Get
        Set(ByVal Value As SearchFor)
            enumSearchFor = Value
        End Set
    End Property
    Public Property SearchMachineUse() As desMachineType
        Get
            Return enumMachineUse
        End Get
        Set(ByVal Value As desMachineType)
            enumMachineUse = Value
        End Set
    End Property
    Public Property SearchString() As String
        Get
            Return strSearchFor
        End Get
        Set(ByVal Value As String)
            strSearchFor = Value
        End Set
    End Property
    Public Sub New(ByVal SearchFor As SearchFor, ByVal MachineUse As desMachineType, ByVal strSearchString As String, _
    ByVal SaveNameEnum As enumSaveName, Optional ByVal bolReg As Boolean = True, Optional ByVal strType As String = "")
        enumSearchFor = SearchFor
        enumMachineUse = MachineUse
        strSearchFor = strSearchString
        bolRegEx = bolReg
        strMachineType = strType
        enumSaveName = SaveNameEnum
    End Sub
    Private Function ConvertSaveNameEnum(ByVal enumName As enumSaveName) As String
        Select Case enumName
            Case 1 : ConvertSaveNameEnum = "RegEx"
            Case 2 : ConvertSaveNameEnum = "First Name"
            Case 3 : ConvertSaveNameEnum = "Last Name"
            Case 4 : ConvertSaveNameEnum = "Phone"
            Case 5 : ConvertSaveNameEnum = "Location"
            Case 6 : ConvertSaveNameEnum = "Model"
            Case 7 : ConvertSaveNameEnum = "Dell Tag"
            Case 8 : ConvertSaveNameEnum = "Useage"
            Case 9 : ConvertSaveNameEnum = "Workstation"
            Case 10 : ConvertSaveNameEnum = "HomeWorkstation"
            Case 11 : ConvertSaveNameEnum = "Pool Laptop"
            Case 12 : ConvertSaveNameEnum = "Laptop"
            Case 13 : ConvertSaveNameEnum = "WoTo"
            Case 14 : ConvertSaveNameEnum = "GX110"
            Case 15 : ConvertSaveNameEnum = "GX400"
            Case 16 : ConvertSaveNameEnum = "GX260"
            Case 17 : ConvertSaveNameEnum = "GX270"
            Case 18 : ConvertSaveNameEnum = "GX280"
            Case 19 : ConvertSaveNameEnum = "SX280"
            Case 20 : ConvertSaveNameEnum = "Machine"
            Case 21 : ConvertSaveNameEnum = ""
        End Select
    End Function
End Class

Here is the code for the custom collection. [I don't think the error is coming from this class at all... just including it just in case...]

Class SavedSearchCollection
    'This class was created to store the
    'objects created from the objLocate Class
    Inherits CollectionBase
 
    Default Public Property Item(ByVal Index As Integer) As objLocate
        Get
            If Index = -1 Then
                'Do nothing
            Else
                Return CType(list.Item(Index), objLocate)
            End If
 
        End Get
        Set(ByVal Value As objLocate)
            list.Item(Index) = Value
        End Set
    End Property
 
    Public Function Add(ByVal Item As objLocate) As Integer
        Return list.Add(Item)
    End Function
End Class

I am sure it's something dumb. The error actually happens on this part of the line in question
SearchCollection.Item(intClicked).SaveNameString)

the savenamestring is used to be the prefix for the seach type in the list view since there are many types of seachers htis program can do.

The search collection correctly has the information in the object contained in it. I know this because i stepped through each line in the code and checked values.

Thanks brothers

[Porsche944]

I am sorry I didn't notice that the constructor requires enumSavedName which is an enumeratino instead of a string. I change the property for SaveName to be both readable and writeable and changed it from SavedNameString to SavedName

Now it works correctly.

I feel stupid now