WinForm设计之配置文件

Author：水如烟  

代码见应用类代码和辅助类代码

 在这是第三次说配置文件，因为有了泛型，所以现在做的也更简单，使用也更方便了。

示例代码：

Public Class MainForm

    Private gConfigManager As New LzmTW.ConfigManger(Of Student)

    Private Sub MainForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.PropertyGrid1.SelectedObject = Me.gConfigManager
    End Sub

    Private Sub ReadButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReadButton.Click
        gConfigManager.Read()
    End Sub

    Private Sub SaveButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveButton.Click
        gConfigManager.Save()
    End Sub

    Private Sub DataGridButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridButton.Click
        Dim table As DataTable = LzmTW.uSystem.uReflection.DatasFunction.CreateTableFromType(GetType(Student))
        With gConfigManager.GetEnumerator
            While .MoveNext
                LzmTW.uSystem.uReflection.DatasFunction.ItemAppendToTable(Of Student)(.Current, table)
            End While
        End With
        table.AcceptChanges()
        Me.DataGridView1.DataSource = table
    End Sub

    Private Sub OutputNameButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OutputNameButton.Click
        Me.gConfigManager.ForEach(AddressOf printName)
    End Sub

    Private Sub printName(ByVal item As Student)
        Console.WriteLine(item.Name)
    End Sub

    Private Sub FindNameButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindNameButton.Click
        Console.WriteLine(Me.gConfigManager.Find("Name", "张三").NO)
    End Sub

End Class

 

<Serializable()> _
Public Class Student
    Private gName As String
    Private gNO As String
    Private gBirthday As Date
    Public Property Name() As String
        Get
            Return gName
        End Get
        Set(ByVal value As String)
            gName = value
        End Set
    End Property

    Public Property NO() As String
        Get
            Return gNO
        End Get
        Set(ByVal value As String)
            gNO = value
        End Set
    End Property

    Public Property Birthday() As Date
        Get
            Return gBirthday
        End Get
        Set(ByVal value As Date)
            gBirthday = value
        End Set
    End Property
End Class

步骤说明：

第一次运行时数据集是空的，所以要在PropertyGrid的Collection项目上添加项目。之后保存文件。

下次运行时，可以读文件了。

效果图解：