本文整理匯總了VB.NET中System.Diagnostics.CounterCreationData.CounterCreationData構造函數的典型用法代碼示例。如果您正苦於以下問題：VB.NET CounterCreationData構造函數的具體用法？VB.NET CounterCreationData怎麽用？VB.NET CounterCreationData使用的例子？那麽, 這裏精選的構造函數代碼示例或許可以為您提供幫助。您也可以進一步了解該構造函數所在類System.Diagnostics.CounterCreationData的用法示例。
在下文中一共展示了CounterCreationData構造函數的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: Main
' 導入命名空間
Imports System.Diagnostics
Namespace MyDiagnostics
Class MyCounterCreationData
Shared Sub Main()
Dim myCol As New CounterCreationDataCollection()
' Create two custom counter objects.
Dim myCounter1 As New CounterCreationData("Counter1", "First custom counter", _
PerformanceCounterType.CounterDelta32)
Dim myCounter2 As New CounterCreationData()
' Set the properties of the 'CounterCreationData' object.
myCounter2.CounterName = "Counter2"
myCounter2.CounterHelp = "Second custom counter"
myCounter2.CounterType = PerformanceCounterType.NumberOfItemsHEX32
' Add custom counter objects to CounterCreationDataCollection.
myCol.Add(myCounter1)
myCol.Add(myCounter2)
If PerformanceCounterCategory.Exists("New Counter Category") Then
PerformanceCounterCategory.Delete("New Counter Category")
End If
' Bind the counters to a PerformanceCounterCategory.
Dim myCategory As PerformanceCounterCategory = PerformanceCounterCategory.Create("New " + _
"Counter Category", "Category Help", _
PerformanceCounterCategoryType.SingleInstance, myCol)
Console.WriteLine("Counter Information:")
Console.WriteLine("Category Name: " + myCategory.CategoryName)
Dim i As Integer
For i = 0 To myCol.Count - 1
' Display the properties of the CounterCreationData objects.
Console.WriteLine("CounterName : " + myCol(i).CounterName)
Console.WriteLine("CounterHelp : " + myCol(i).CounterHelp)
Console.WriteLine("CounterType : " + myCol(i).CounterType.ToString())
Next i
End Sub
End Class
End Namespace 'MyDiagnostics