メモリ空き容量を表示するサンプル(VB.NET)

＜このサンプルの概要＞
物理メモリの空き容量(タスクマネージャの物理メモリ(KB)の利用可能値)を表示するサンプルです。
タスクマネージャーのようなカッコイイものでは無くDebug.Printで表示するだけです。

ポイントとなるキーワードは以下の通りです。
(1)PerformanceCounter.CategoryName
(2)PerformanceCounter.CounterName
(3)PerformanceCounter.InstanceName
(4)PerformanceCounter.NextValue

メモリの空き容量を表示する関連ツールがありますので紹介します。
プロセスＬＯＧ出力＆表示ツールはメモリの空き容量を定期的に記録するツールです。
パフォーマンス表示ＳＣＲはメモリの空き容量を表示するスクリーンセーバーです。

Public Class Form1
    ''' <summary>
    ''' パフォーマンスカウンタを配列で定義(メモリ空き容量取得用)
    ''' </summary>
    ''' <remarks></remarks>
    Private PerCnts As PerformanceCounter() = New PerformanceCounter(0) {}

    ''' <summary>
    ''' フォームロード
    ''' </summary>
    ''' <param name="sender">sender</param>
    ''' <param name="e">e</param>
    ''' <remarks>フォームロード時にパフォーマンスカウンタを初期設定する</remarks>
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' メモリ空き容量を取得するための設定
        PerCnts(0) = New PerformanceCounter
        ' メモリ関係
        PerCnts(0).CategoryName = "Memory"
        ' メモリ空き容量(KBytes)
        PerCnts(0).CounterName = "Available KBytes"
        ' メモリ空き容量取得開始
        PerCnts(0).NextValue()
    End Sub

    ''' <summary>
    ''' メモリ空き容量を表示するタイマー
    ''' </summary>
    ''' <param name="sender">sender</param>
    ''' <param name="e">e</param>
    ''' <remarks>定期的にメモリ空き容量を表示する</remarks>
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ' メモリ空き容量を表示(タスクマネージャの物理メモリ(KB)の利用可能値)
        Debug.Print(Val(PerCnts(0).NextValue()).ToString("#,###") & " KBytes")
    End Sub
End Class