HOW TO:程序内嵌自定义数据集(一)(.NET2.0)(错)

细看了,原并不是内嵌!数据只是存在Documents and Settings\LzmTW\Local Settings\Application Data下头.

Author:水如烟
     先说说一般数据类型的贮存。

     建一个TestSettings工程，输出类型为Windows Application.
     Form1界面如图：

     显示信息用的是三个Label，分别是Label1、Label2、Label3，其Text如图示。

     下面定义三个变量来贮存数据，分别是Logon、Logoff、Count。
     使Soltution Explorer的视图Show Files，定位到My Project下的Settings，双击（或右键Open），界面如图：

     如是就定义了三个变量。注意的是Scope选择User。它还有一个选择，是Application，而选它如同在Resource，是不可更改的。

     回到Form1，点View Code，添加如下代码：

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Label1.Text = String.Format(Me.Label1.Text, My.Settings.Logon)
        Me.Label2.Text = String.Format(Me.Label2.Text, My.Settings.Logoff)
        Me.Label3.Text = String.Format(Me.Label3.Text, My.Settings.count)
    End Sub
End Class

     上面只是完成了定义和显示。下面是对三个变量的赋值。
     新建一个MyApplication.Class文件，添加如下代码：

Namespace My
    Friend Class MyApplication

        Private Sub MyApplication_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
            My.Settings.Logoff = Now.ToString
        End Sub

        Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
            My.Settings.Logon = Now.ToString
            My.Settings.count += 1
        End Sub
    End Class
End Namespace

     编译后运行程序，退出再运行，结果如你所愿。


     如是涉及数据集合的，如Collection，DataSet等，因为需要New，所以细节上有些技巧。图片多，太长了，另文写吧。