Question

If I have the following class and declaration:

Public Class objLocation    Public SysLocationId As String    Public NameFull As String    Public LatRaw As String    Public LongRaw As String    Public Active As Integer End Class  dim lLocation as new objLocation 

I can access each variable thus lLocation.SysLocationId, etc. Is there an alternate way, so I can access each variable by index, so something like lLocation(0), lLocation(1), etc., which gives me the flexibility to compare to classes of the same type via a for next loop, or against other sources, like a datatable.

Answer 1

There is no built-in langauge support for this. However you can simulate this by creating a default indexer property on the class

Public Class objLocation   ... Default Public ReadOnly Property Indexer(ByVal index As Integer)     Get         Select Case index             Case 0                 Return SysLocationId             Case 1                 Return NameFull             Case 2                 Return LatRaw             Case 3                 Return LongRaw             Case 4                 Return Active             Case Else                 Throw New ArgumentException         End Select     End Get   End Property 

Then you can use it as follows

Dim x As objLocation = GetObjLocation Dim latRaw = x(2)