InstanceDataCollectionCollection クラスとは何？わかりやすく解説 Weblio辞書

.NET Framework クラスライブラリリファレンス

索引トップ用語の索引ランキング

InstanceDataCollectionCollection クラス

InstanceDataCollection オブジェクトの厳密に型指定されたコレクションを提供します。

名前空間: System.Diagnostics
アセンブリ: System (system.dll 内)
構文

Visual Basic (宣言)

Public Class InstanceDataCollectionCollection
    Inherits DictionaryBase

Visual Basic (使用法)

Dim instance As InstanceDataCollectionCollection

public class InstanceDataCollectionCollection
 : DictionaryBase

C++

public ref class InstanceDataCollectionCollection
 : public DictionaryBase

public class InstanceDataCollectionCollection
 extends DictionaryBase

JScript

public class InstanceDataCollectionCollection
 extends DictionaryBase

解説

InstanceDataCollectionCollection クラスは、ReadCategory メソッドから返されるコレクションを表します。このコレクションは、すべてのカウンタとインスタンスデータを格納します。このコレクションは、各カウンタの InstanceDataCollection オブジェクトを格納します。各 InstanceDataCollection オブジェクトは、そのインスタンスのすべてのカウンタのパフォーマンスデータを格納します。このように、まずカウンタ名、次にインスタンス名を使用してデータのインデックスを作成します。

使用例

特定の PerformanceCounterCategory のインスタンスデータをローカルコンピュータで表示するコード例を次に示します。最初に PerformanceCounterCategory の名前の番号付きりストが表示されます。ユーザーがカテゴリの 1 つの番号を入力すると、その PerformanceCounterCategory の InstanceDataCollectionCollection が取得されます。次に Values プロパティによって返されたコレクションが InstanceDataCollection オブジェクトの配列に変換されます。この例は、各 InstanceDataCollection の各 InstanceData に関連付けられたインスタンスデータを表示します。

Visual Basic

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