Public Class Form1

	Private Sub Form1_Load(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load

		Me.LboxGrid1.ParentFit(Me)

	End Sub

	Private Sub Form1_SizeChanged(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.SizeChanged

		Me.LboxGrid1.ParentFit(Me)

	End Sub
End Class

' ******************************************************
' 画面初期設定
' ******************************************************
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load

	Me.LboxGrid1.ParentFit(Me.TabControl1)

	Me.LboxGrid1.EditMode = DataGridViewEditMode.EditOnEnter
	Me.LboxGrid1.ReadOnly = False

	Me.LboxGrid1.AddColumn("CHECK", "削除", _
	 lightbox.LboxColumnType.LboxColumnType_CheckBox)
	Me.LboxGrid1.AddColumn("確認", "参照", _
	 lightbox.LboxColumnType.LboxColumnType_Button)
	Me.LboxGrid1.AddColumn("リンク", "ジャンプ", _
	 lightbox.LboxColumnType.LboxColumnType_Link)

	Me.LboxGrid1.AddColumn("KEY", "キー")
	Me.LboxGrid1.AddColumn("VALUE", "タイトル")
	Me.LboxGrid1.AddColumn("PATH", "実行パス")

	' オリジナルデータ用非表示カラム
	Me.LboxGrid1.AddColumn("KEY_HIDE", "キー")
	Me.LboxGrid1.AddColumn("VALUE_HIDE", "タイトル")
	Me.LboxGrid1.AddColumn("PATH_HIDE", "実行パス")

	' 非表示設定
	Me.LboxGrid1.SetColumnVisible("KEY_HIDE", False)
	Me.LboxGrid1.SetColumnVisible("VALUE_HIDE", False)
	Me.LboxGrid1.SetColumnVisible("PATH_HIDE", False)

	' アクセス対象キー
	Dim regpath As String = "CLSID\{マイ ドキュメントのCLSID}\shell"
	' インスタンス作成
	Dim reg As New LboxRegClass(regpath)

	' 対症の下にある全てのキー文字列と値を取得
	Dim dic As Dictionary(Of String, String) = reg.GetAll()
	' インスタンス使用終了
	reg.Close()

	' 連想配列の列挙
	For Each kvp As KeyValuePair(Of String, String) In dic

		' 行追加
		Me.LboxGrid1.AddRow()

		Me.LboxGrid1.SetColumnText("確認", kvp.Key)
		Me.LboxGrid1.SetColumnTag("確認", kvp.Key & "_TAGA")
		Me.LboxGrid1.SetColumnText("リンク", kvp.Key)
		Me.LboxGrid1.SetColumnTag("リンク", kvp.Key & "_TAGB")

		' キー文字列セット
		Me.LboxGrid1.SetColumnText("KEY", kvp.Key)
		Me.LboxGrid1.SetColumnText("KEY_HIDE", kvp.Key)
		' キーの値セット
		Me.LboxGrid1.SetColumnText("VALUE", kvp.Value)
		Me.LboxGrid1.SetColumnText("VALUE_HIDE", kvp.Value)

		' キーの下にある "command" キーのインスタンス作成
		Dim regvalue As New LboxRegClass(regpath & "\" & kvp.Key & "\command")
		' 値の一覧を取得
		Dim dic2 As Dictionary(Of String, String) = regvalue.GetAllValue()
		' インスタンス使用終了
		regvalue.Close()

		' "command" キーの値をセット
		Me.LboxGrid1.SetColumnText("PATH", dic2(""))
		Me.LboxGrid1.SetColumnText("PATH_HIDE", dic2(""))

	Next kvp

End Sub