| レジストリ操作例（保存・読み取り・削除）(3個) (SNo.076) １．レジストリへ書き込み ２．レジストリから読込み ３．レジストリの値を削除 |
|
| 使用コントロール | Button1 Button2 Button3 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) |
|
１．レジストリへ書き込み
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.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(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click 'レジストリから読込み Me.Left = GetSetting("RegTest", "WinPos", "Left", 0) Me.Top = GetSetting("RegTest", "WinPos", "Top", 0) Me.Width = GetSetting("RegTest", "WinSize", "Width", 0) Me.Height = GetSetting("RegTest", "WinSize", "Height", 0) Debug.WriteLine(GetSetting("RegTest", "WinPos", "Left", 0)) Debug.WriteLine(GetSetting("RegTest", "WinPos", "Top", 0)) Debug.WriteLine(GetSetting("RegTest", "WinSize", "Width", 0)) Debug.WriteLine(GetSetting("RegTest", "WinSize", "Height", 0)) End Sub |
|
| ３．レジストリの値を削除 Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click 'レジストリの値を削除 DeleteSetting("RegTest", "WinPos") DeleteSetting("RegTest", "WinSize") 'すべて削除する場合 DeleteSetting("RegTest") End Sub |
|
| レジストリ情報を見るには、スタートメニューからファイル名を指定して実行を選択して、regedit と入力して OK ボタンをクリックして下さい。 注意：設定内容を無暗に変更すると起動しなくなったり、情報が失われる場合がありますので十分に注意してください。 尚、上記プログラムのテスト及び改変等はご自分の責任の元で実施して下さい。 |
|
2004/07/15
2005/10/04
VBレスキュー(花ちゃん)
VB.NET2003 VB2005