AFSearch.FindObjectFields(TObject) Method (Int32, Int32)

Public MustOverride Function FindObjectFields(Of TObject As Class) ( 
	Optional startIndex As Integer = 0,
	Optional pageSize As Integer = 0
) As IEnumerable(Of TObject)

Dim instance As AFSearch
Dim startIndex As Integer
Dim pageSize As Integer
Dim returnValue As IEnumerable(Of TObject)

returnValue = instance.FindObjectFields(startIndex, 
	pageSize)

public:
generic<typename TObject>
where TObject : ref class
virtual IEnumerable<TObject>^ FindObjectFields(
	int startIndex = 0, 
	int pageSize = 0
) abstract

abstract FindObjectFields : 
        ?startIndex : int * 
        ?pageSize : int 
(* Defaults:
        let _startIndex = defaultArg startIndex 0
        let _pageSize = defaultArg pageSize 0
*)
-> IEnumerable<'TObject>  when 'TObject : not struct

'*************************************************************************
''' <summary>
''' This class defines the object fields returned from the 
''' FindObjectFields method.
''' </summary>
Public Class EventFrameFields
    ' Field mapped using default name.
    Public ID As Guid
    ' Property mapped using default name.
    Public Property Name() As String
        Get
            Return m_Name
        End Get
        Set
            m_Name = Value
        End Set
    End Property
    Private m_Name As String
    ' Field mapped using 'ObjectField' attribute.
    <AFSearch.ObjectField("Duration")>
    Public EFDuration As AFTimeSpan
    ' Property mapped using 'ObjectField' attribute.
    <AFSearch.ObjectField("StartTime")>
    Public Property EFStart() As AFTime
        Get
            Return m_EFStart
        End Get
        Set
            m_EFStart = Value
        End Set
    End Property
    Private m_EFStart As AFTime
    ' Attribute value mapped to property using 'ObjectField' attribute.
    <AFSearch.ObjectField("|Level")>
    Public Property Level() As AFValue
        Get
            Return m_Level
        End Get
        Set
            m_Level = Value
        End Set
    End Property
    Private m_Level As AFValue
End Class

'*************************************************************************

            ' Get the Database
            Dim myPISystems As New PISystems()
            Dim myPISystem As PISystem = myPISystems.DefaultPISystem
            If myPISystem Is Nothing Then
                Throw New InvalidOperationException("Default PISystem was not found.")
            End If
            Dim myDB As AFDatabase = myPISystem.Databases(dbName)
            If myDB Is Nothing Then
                Throw New InvalidOperationException("Database was not found.")
            End If

            ' Create a search to find all the event frames created from the 'Event'
            ' template and its 'Level' attribute value is less than 90.
            Dim count As Integer
            Using search As New AFEventFrameSearch(myDB, "FindEventFields", "Template:'Event' |Level:<90.0")

                search.CacheTimeout = TimeSpan.FromMinutes(10)

                ' Do the search

                ' Return specified fields using dynamic type conversion.
                count = 0
                Dim foundDynItems = search.FindObjectFields(Of EventFrameFields)()
                Console.WriteLine("Find Object Fields using Dynamic Type Conversion:")
                For Each row In foundDynItems
                    count += 1
                    Console.WriteLine("ID={0}, N='{1}', ST={2}, D={3}, V={4}", row.ID, row.Name, row.EFStart, row.EFDuration, row.Level)
                Next
                Console.WriteLine("Found {0} EventFrames.", count)

            End Using

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.