InstanceDataCollection Class
Provides a strongly typed collection of InstanceData objects.
Assembly: System (in System.dll)
The InstanceDataCollection class represents a collection containing all the instance data for a counter. This collection is contained in the InstanceDataCollectionCollection when using the ReadCategory method.
The following code example displays the instance data for a particular PerformanceCounterCategory on the local computer. It first displays a numbered list of PerformanceCounterCategory names. After the user enters the number of one of the categories, the example gets the InstanceDataCollectionCollection for that PerformanceCounterCategory. It then converts the collection returned by Values to an array of InstanceDataCollection objects. The example also displays the instance data associated with each InstanceData of each InstanceDataCollection.
Imports System Imports System.Diagnostics Imports System.Collections Imports Microsoft.VisualBasic Module InstDataKeysValuesMod Private categoryName As String Sub Main() Dim catNumStr As String Dim categoryNum As Integer Dim categories As PerformanceCounterCategory() = _ PerformanceCounterCategory.GetCategories() Console.WriteLine( _ "These categories are registered on this computer:") Dim catX As Integer For catX = 0 To categories.Length - 1 Console.WriteLine("{0,4} - {1}", catX + 1, _ categories(catX).CategoryName) Next catX ' Ask the user to choose a category. Console.Write( _ "Enter the category number from the above list: ") catNumStr = Console.ReadLine() ' Validate the entered category number. Try categoryNum = Integer.Parse(catNumStr) If categoryNum < 1 Or categoryNum > categories.Length Then Throw New Exception( _ String.Format("The category number must be in the " & _ "range 1..{0}.", categories.Length)) End If categoryName = categories((categoryNum - 1)).CategoryName Catch ex As Exception Console.WriteLine("""{0}"" is not a valid category number." & _ vbCrLf & "{1}", catNumStr, ex.Message) Return End Try ' Process the InstanceDataCollectionCollection for this category. Dim pcc As New PerformanceCounterCategory(categoryName) Dim idColCol As InstanceDataCollectionCollection = pcc.ReadCategory() Dim idColColKeys As ICollection = idColCol.Keys Dim idCCKeysArray(idColColKeys.Count - 1) As String idColColKeys.CopyTo(idCCKeysArray, 0) Dim idColColValues As ICollection = idColCol.Values Dim idCCValuesArray(idColColValues.Count - 1) As InstanceDataCollection idColColValues.CopyTo(idCCValuesArray, 0) Console.WriteLine("InstanceDataCollectionCollection for ""{0}"" " & _ "has {1} elements.", categoryName, idColCol.Count) ' Display the InstanceDataCollectionCollection Keys and Values. ' The Keys and Values collections have the same number of elements. Dim index As Integer For index = 0 To idCCKeysArray.Length - 1 Console.WriteLine(" Next InstanceDataCollectionCollection " & _ "Key is ""{0}""", idCCKeysArray(index)) ProcessInstanceDataCollection(idCCValuesArray(index)) Next index End Sub ' Display the contents of an InstanceDataCollection. Sub ProcessInstanceDataCollection(ByVal idCol As InstanceDataCollection) Dim idColKeys As ICollection = idCol.Keys Dim idColKeysArray(idColKeys.Count - 1) As String idColKeys.CopyTo(idColKeysArray, 0) Dim idColValues As ICollection = idCol.Values Dim idColValuesArray(idColValues.Count - 1) As InstanceData idColValues.CopyTo(idColValuesArray, 0) Console.WriteLine(" InstanceDataCollection for ""{0}"" " & _ "has {1} elements.", idCol.CounterName, idCol.Count) ' Display the InstanceDataCollection Keys and Values. ' The Keys and Values collections have the same number of elements. Dim index As Integer For index = 0 To idColKeysArray.Length - 1 Console.WriteLine(" Next InstanceDataCollection " & _ "Key is ""{0}""", idColKeysArray(index)) ProcessInstanceDataObject(idColValuesArray(index)) Next index End Sub ' Display the contents of an InstanceData object. Sub ProcessInstanceDataObject(ByVal instData As InstanceData) Dim sample As CounterSample = instData.Sample Console.WriteLine(" From InstanceData:" & vbCrLf & " " & _ "InstanceName: {0,-31} RawValue: {1}", _ instData.InstanceName, instData.Sample.RawValue) Console.WriteLine(" From CounterSample:" & vbCrLf & " " & _ "CounterType: {0,-32} SystemFrequency: {1}" & vbCrLf & _ " BaseValue: {2,-34} RawValue: {3}" & vbCrLf & _ " CounterFrequency: {4,-27} CounterTimeStamp: {5}" & vbCrLf & _ " TimeStamp: {6,-34} TimeStamp100nSec: {7}", _ sample.CounterType, sample.SystemFrequency, sample.BaseValue, _ sample.RawValue, sample.CounterFrequency, sample.CounterTimeStamp, _ sample.TimeStamp, sample.TimeStamp100nSec) End Sub End Module
Windows 7, Windows Vista, Windows XP SP2, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP Starter Edition, Windows Server 2008 R2, Windows Server 2008, Windows Server 2003, Windows Server 2000 SP4, Windows Millennium Edition, Windows 98
The .NET Framework and .NET Compact Framework do not support all versions of every platform. For a list of the supported versions, see .NET Framework System Requirements.