声明:我的“文章”只适宜初学者参考。我对概念理解模糊,参考者只参考思路则可。
主要做法:
第一步,将配置信息做一个简单的类。
要点:因为要用到序列化,而且是用XmlSerializer来序列化,所以要存到文件的变量信息都要声明为Public,要序列化的类用<Serializable()>修饰。
示例:一个连接数据库的配置信息
'配置信息
<Serializable()> Public Class Item
'初始默认值
Public ID As Integer = 0
Public Server As String = "(Local)"
Public Database As String = "NorthWind"
Public Tusted As Boolean = True
Public User As String = ""
Public Password As String = ""
End Class
第二步:配置处理的类。
说明:这个类是通用的。用到别的配置,你只需修改上面的配置信息类就可以了。它实现了存档和读取的功能,并转化为配置信息对象,操作起来较为方便。你可以添加内容加密的处理。
<Serializable()> Public Class Config
'默认ConnectionInfo的ID
Public ID As Integer
'必须是Public,XmlSerializer只对Pulbic变量作用
Public Items As Item()
Private m_Count As Integer = 0
'添加配置信息
Public Sub Add(ByVal ConnectionInfo As Item)
If ConnectionInfo Is Nothing Then Exit Sub
If m_Count > 0 Then
If Not Me.ConnectionInfo(ConnectionInfo.ID) Is Nothing Then
MsgBox(ID.ToString & "已存在")
Exit Sub
End If
End If
ReDim Preserve Me.Items(m_Count)
Me.Items(m_Count) = ConnectionInfo
m_Count += 1
End Sub
'取指定ID的配置信息
Public ReadOnly Property Connectio
| 对此文章发表了评论 |

