本文整理汇总了VB.NET中System.Diagnostics.CounterCreationData.CounterType属性的典型用法代码示例。如果您正苦于以下问题：VB.NET CounterCreationData.CounterType属性的具体用法？VB.NET CounterCreationData.CounterType怎么用？VB.NET CounterCreationData.CounterType使用的例子？那么, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.Diagnostics.CounterCreationData的用法示例。
在下文中一共展示了CounterCreationData.CounterType属性的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