レジストリへの保存方法

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

        Dim y As Integer = Int32.Parse(TextBox1.Text)

        Dim m As Integer = Int32.Parse(TextBox2.Text)

        Dim d As Integer = Int32.Parse(TextBox3.Text)

        Dim dt As DateTime = New DateTime(y, m, d, 23, 59, 59)

        If dt >= DateTime.Now Then Throw New Exception("本日以降の入力は不可です")



        Dim key As Microsoft.Win32.RegistryKey

        key = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("SoftWare\Nakta\VBRegTest\")

        Try

            key.SetValue("Year", y)

            key.SetValue("Month", m)

            key.SetValue("Day", d)

        Finally

            key.Close()

        End Try

    End Sub

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""



        Dim dt As DateTime = DateTime.Now

        Dim y As Integer = dt.Year

        Dim m As Integer = dt.Month

        Dim d As Integer = dt.Day



        Dim yy As Integer

        Dim mm As Integer

        Dim dd As Integer

        Dim key As Microsoft.Win32.RegistryKey

        key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SoftWare\Nakta\VBRegTest\")

        Try

            yy = key.GetValue("Year", y)

            mm = key.GetValue("Month", m)

            dd = key.GetValue("Day", d)

        Finally

            key.Close()

        End Try



        Dim ddtt As DateTime = New DateTime(yy, mm, dd)

        Dim ts As TimeSpan = dt.Subtract(ddtt)

        Label1.Text = dt.ToString("yyyy/MM/dd") + "から" + ddtt.ToString("yyyy/MM/dd") _

                      + "までの日数は" + ts.Days.ToString() + "日間です"

    End Sub