http://maglog.jp/lightbox/bbs_img_480b2db4d517a.jpg

@C:GREEN(
値を空にすると、その行は削除されます。
行を追加したい場合は、任意の行の最後で ";" を入力してデータを続けます。)


@DIV
Private Sub Button3_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button3.Click

	Dim str As String = ""
	Dim fld As String = ""

	Me.LboxGrid1.SetCurrentRow()
	Do While (Me.LboxGrid1.FindNextRow())

		fld = Me.LboxGrid1.GetColumnText("PATH")
		If fld = "" Then
			Continue Do
		Else
			fld = fld.Trim()
			If fld = "" Then
				Continue Do
			End If
		End If

		If str <> "" Then
			str &= ";"
		End If

		str &= fld

	Loop

	MessageBox.Show(str)

	If mode = 1 Then
		Dim subkey As String = "Environment"
		Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey(subkey, True)

		regkey.SetValue("PATH", str)
		SortEnum(regkey.GetValue("PATH").ToString())

		regkey.Close()
	End If

	If mode = 2 Then
		Dim subkey As String = "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"
		Dim regkey As RegistryKey = Registry.LocalMachine.OpenSubKey(subkey, True)

		regkey.SetValue("PATH", str)
		SortEnum(regkey.GetValue("PATH").ToString())

		regkey.Close()
	End If

End Sub
@END

@DIV
@C:red(Private mode As Integer = 0)

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click

	Dim subkey As String = "Environment"
	Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey(subkey, True)

	Try
		If Not regkey Is Nothing Then

			@C:red(mode = 1)
			SortEnum(regkey.GetValue("PATH").ToString())

		Else

			MessageBox.Show("レジストリが正しく開かれていません")

		End If

	Catch ex As Exception

		MessageBox.Show(ex.ToString())

	End Try

	If Not regkey Is Nothing Then

		regkey.Close()

	End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click

	Dim subkey As String = "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"
	Dim regkey As RegistryKey = Registry.LocalMachine.OpenSubKey(subkey, True)

	Try
		If Not regkey Is Nothing Then

			@C:red(mode = 2)
			SortEnum(regkey.GetValue("PATH").ToString())

		Else

			MessageBox.Show("レジストリが正しく開かれていません")

		End If

	Catch ex As Exception

		MessageBox.Show(ex.ToString())

	End Try

	If Not regkey Is Nothing Then

		regkey.Close()

	End If

End Sub
@END