C# と VB.NET の質問掲示板

■No85817 (パラゴン さん) に返信
> 
> 
> 
> Private aaa As Single = 4
> 
> などのコードを書いておくと、
> そのモジュール内の全てのSubが実行される前に
> 変数に数値が代入されます。
> 
> 
>     Private Labels As New Dictionary(Of String, String)()
> 
>     Private Sub LabelsInit()
> 
>         Labels.Add("g/cm^3", "Density")
>         Labels.Add("N", "Force")
> 
>     End Sub
> 
> というようなSubを最初に実行されるようにしたいのですが
> どのようにすれば良いですか？
> 

必要になるまでインスタンスを作成しないならこんな方法もあります。
使うときはLabelsを使って、_Labelsを使わないようにします。

    Private _Labels As Dictionary(Of String, String) = Nothing

    Private ReadOnly Property Labels() As Dictionary(Of String, String)
        Get
            If _Labels Is Nothing Then
                _Labels = New Dictionary(Of String, String)()
                LabelsInit()
            End If
            Return _Labels
        End Get
    End Property

    Private Sub LabelsInit()

        _Labels.Add("g/cm^3", "Density")
        _Labels.Add("N", "Force")

    End Sub