４．レジストリへの保存及び読み取り・削除例(27_Sys_04)　(旧、SampleNo.076)

１．レジストリへの保存及び読み取り・削除例 ２． ３． ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．レジストリへの保存及び読み取り・削除例

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click 'レジストリへ書き込み     SaveSetting("RegTest", "WinPos", "Left", CStr(Me.Left))     SaveSetting("RegTest", "WinPos", "Top", CStr(Me.Top))     SaveSetting("RegTest", "WinSize", "Width", CStr(Me.Width))     SaveSetting("RegTest", "WinSize", "Height", CStr(Me.Height)) '下記に作成されますので確認して見てください。 'HKEY_CURRENT_USER\Software\VB and VBA Program Settings\RegTest\WinPos 'HKEY_CURRENT_USER\Software\VB and VBA Program Settings\RegTest\WinSize End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'レジストリから読込み     Me.Left = CInt(GetSetting("RegTest", "WinPos", "Left", CStr(0)))     Me.Top = CInt(GetSetting("RegTest", "WinPos", "Top", CStr(0)))     Me.Width = CInt(GetSetting("RegTest", "WinSize", "Width", CStr(0)))     Me.Height = CInt(GetSetting("RegTest", "WinSize", "Height", CStr(0)))     Debug.WriteLine(GetSetting("RegTest", "WinPos", "Left", CStr(0)))     Debug.WriteLine(GetSetting("RegTest", "WinPos", "Top", CStr(0)))     Debug.WriteLine(GetSetting("RegTest", "WinSize", "Width", CStr(0)))     Debug.WriteLine(GetSetting("RegTest", "WinSize", "Height", CStr(0))) End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'レジストリの値を削除     DeleteSetting("RegTest", "WinPos")     DeleteSetting("RegTest", "WinSize")     'すべて削除する場合     DeleteSetting("RegTest") End Sub 今となっては、My.Settings を使用した方が簡単なのでこのようなコードは必要ないかも知れませんが、 .NET 系に移行した当初は、結構要望があったので作ったものをそのまま掲載しております。

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)