レジストリへの保存方法

Private Sub Button1_Click(ByVal sender As System.Object, _

            ByVal e As System.EventArgs) Handles Button1.Click

'上記はボタンがクリックされた際に呼び出されるイベントプロシージャの宣言です。

'この後の「End Sub」までがプロシージャ（メソッド）の範囲になります。



    'レジストリから読み込む

    Dim key As Microsoft.Win32.RegistryKey

    '上記では「Microsoft.Win32.RegistryKey」型の「key」という変数を宣言しています。

    'この時点ではまだkeyという変数には、「Microsoft.Win32.RegistryKey」型の

    'インスタンスは格納されていません。インスタンスを格納する箱（入れ物）が用意されただけです



    key = Microsoft.Win32.Registry.CurrentUser

    '上記では「Microsoft.Win32.Registry」型のクラスのShared（static）なフィールド

    'から「Microsoft.Win32.RegistryKey」型のインスタンスを取得して「key」の変数に

    '格納しています。

    '静的なメソッド、フィールドとは、クラスのインスタンスを作らなくても、クラスその

    'ものを参照して利用できるクラスメンバのことです。対して静的でないものは、クラス

    'のインスタンスを何らかの手法（例えばNewする、または上記「Registry」のように

    '静的なメンバを利用して）で取得したうえで、インスタンスを利用してメソッドを呼び

    '出したりします。



    key = key.OpenSubKey( _

        "softwareVB and VBA Program SettingsVBTips")

    '上記は「key」という変数に格納された「RegistryKey」型のインスタンスを利用して、

    'OpenSubKey()というメソッドを呼び出しています。

    '元のコードでは２行にまたがって書かれていますが、１行で書くと「_」が無くなります。



    key = key.OpenSubKey("softwareVB and VBA Program SettingsVBTips")

    'ここでは、keyという変数、つまり「Microsoft.Win32.Registry.CurrentUser」の

    '内容から取得したインスタンスを使って「"softwareVB and VBA Program SettingsVBTips"」

    'を開くように「key」に対して指示をしています。そして、開いた結果を、再度「key」

    'という変数に格納しています。

    'このコードは次のようにも書く事が出来ます。



    key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("softwareVB and VBA Program SettingsVBTips")

    'これは「Microsoft.Win32.Registry.CurrentUser」部分で取得できた「RegistryKey」の

    'インスタンスを変数に格納することなく直接利用して「.」に続く「OpenSubKey()」メ

    'ソッドを呼び出しています。



    Dim strVal As String = CType(key.GetValue("VB"), String)

    '上記の「key.GetValue("VB")」は、RegistryKey型のインスタンスが格納されている

    'key変数を利用して「RegistryKey」クラスの「GetValue()」メソッドを呼び出しています。

    'GetValue()メソッドは次のように定義されています。

    '「Overloads Public Function GetValue(String) As Object」

    '最初の「Overloads」は「RegistryKey」クラスに「GetValue()」という名前の

    'メソッドが複数定義されている事を示しています。同じ名前のメソッドでも、引数

    'のパターンが個々に違います。言い換えれば同じ引数パラメータを持つ同名のメソ

    'ッドを同じクラスには定義できないという事です。

    '「GetValue(String) As Object」は「文字列」型を引数にして「Object」型を

    '返すという事を意味しています。

    '「RegistryKey.GetValue」は引数の文字列に「値の名前」を指定される事を

    '想定しています。そしてその名前に対応したレジストリエントリの「値」を

    '「Object」型として返却します。「Object」型は.NETの基本の型（基底のクラス）です。

    'GetValue()メソッドで取得予定の値が「文字列」型や「数値」型、Boolean型などであれば、

    'そのタイプに「Object」型から変更する必要があります。それが「CType(〜,タイプ)」の

    '構文になります。



    key.Close()

    '利用したレジストリ変数は最後に閉じます。



    MessageBox.Show("レジストリ:" + strVal, "実行結果")

    '取得した値を表示しています。



    End Sub

    'Button1_Clickサブプロシージャの終わりです。

'レジストリへ書き出す ところはOk
Dim key As Microsoft.Win32.RegistryKey  = Microsoft.Win32.Registry.CurrentUser
key = key.CreateSubKey( _ 
"software/VB and VBA Program Settings/VBTips") ' 円マークをスラッシュに置換

key.SetValue("abc1", TextBox1.Text)
key.SetValue("abc2", TextBox2.Text) 
key.SetValue("abc3", TextBox3.Text) 
key.SetValue("abc4", TextBox4.Text) 

key.Close() 


'レジストリから読み込む 

Dim key As Microsoft.Win32.RegistryKey  = Microsoft.Win32.Registry.CurrentUser
key = key.OpenSubKey( _ 
"software/VB and VBA Program Settings/VBTips") 

TextBox1.Text = key.GetValue("abc1") 
TextBox2.Text = key.GetValue("abc2") 
TextBox3.Text = key.GetValue("abc3") 
TextBox4.Text = key.GetValue("abc4") 

key.Close()