VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 システム及びOS情報関係のメニュー
1.環境変数に格納されている情報を取得
2.コントロールパネル及びコントロールパネル内の各メニューを開く
3.INI ファイルへの書き込み及び読み込み
4.レジストリへの保存及び読み取り・削除例
5.オペレーティングシステムのバージョン情報を取得
6.WMI の Win32_OperatingSystem クラスを使っての OS 情報の取得
7.現在のシステム環境に関する情報(108項目)を取得
8.ウィンドウ・画面等の幅や高さ等と現在の構成を(84項目)取得
9.Win32 API を使っての物理メモリ及び仮想メモリに関する情報を取得
10.コンピューターの製造会社名及びモデル名/製品型番を取得
11.現在の OS 及びプロセスが 64ビットかどうかを調べる
12.
 . 
20.その他、当サイト内に掲載のシステム及びOS情報に関するサンプル


4.レジストリへの保存及び読み取り・削除例(27_Sys_04) (旧、SampleNo.076)
1.レジストリへの保存及び読み取り・削除例
2.
3.
4.
5.
6.

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

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 系に移行した当初は、結構要望があったので作ったものをそのまま掲載しております。

このページのトップへ移動します。 2.


このページのトップへ移動します。 3.


このページのトップへ移動します。 4.


このページのトップへ移動します。 5.


このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)





このページのトップへ移動します。