簡單的一個應用例子 ,只是簡單的操作XML文件,在實際的應用上可以先建一個配置類保存狀態。
XML文件的結構:
1 <?xml version="1.0" encoding="utf-8" ?>
2 <config>
3 <Function Name="a" Checked="false" />
4 <Function Name="b" Checked="false" />
5 <Function Name="c" Checked="false" />
6 <Function Name="d" Checked="false" />
7 </config>
具體的程序:需要一個CheckedListBox,兩個Button
1 Public doc As New XmlDocument
2 Public rootnode As XmlElement
3 Public strPathConfig As String = Application.StartupPath & "/config.xml"
4 Public intNum As Int16
5 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
6 WriteConfig()
7 End Sub
8 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
9 '做準備工作
10 doc.Load(strPathConfig)
11 rootnode = doc.DocumentElement
12 intNum = rootnode.ChildNodes.Count - 1
13 '
14 LoadConfig()
15 End Sub
16 '添加到CheckedListBox
17 Function LoadConfig()
18 Dim i As Int16
19 For i = 0 To intNum
20 CheckedListBox1.Items.Add(rootnode.ChildNodes(i).Attributes(0).Value, CType(rootnode.ChildNodes(i).Attributes(1).Value, Boolean))
21 Next
22 End Function
23 '確定,然後寫入XML
24 Function WriteConfig()
25 Dim i As Int16
26 Dim str As String
27 For i = 0 To intNum
28 rootnode.ChildNodes(i).Attributes(1).Value = CheckedListBox1.GetItemChecked(i).ToString
29 Next
30 doc.Save(strPathConfig)
31 End Function
32
33 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
34 '需要清除CheckedListBox內的Items
35 CheckedListBox1.Items.Clear()
36 LoadConfig()
37 End Sub