[VB.NET+XML]完成简单程序配置

最新推荐文章于 2025-11-23 21:36:02 发布

最新推荐文章于 2025-11-23 21:36:02 发布 · 117 阅读

文章标签：

本文介绍了一个使用XML文件来保存配置信息的小型应用程序。该应用通过一个CheckedListBox显示配置项，并允许用户通过按钮更新或重置这些配置。文章详细展示了如何加载XML配置文件、解析其中的数据并将其展示在界面上，以及如何根据用户的更改更新XML文件。

<? 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
2Public rootnode As XmlElement
3Public strPathConfig As String = Application.StartupPath & "\config.xml"
4 Public intNum As Int16
5Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
6 WriteConfig()
7End Sub
8Private Sub Form1_Load()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()
15End Sub
16'添加到CheckedListBox
17 Function LoadConfig()Function LoadConfig()
18Dim i As Int16
19For i = 0 To intNum
20 CheckedListBox1.Items.Add(rootnode.ChildNodes(i).Attributes(0).Value, CType(rootnode.ChildNodes(i).Attributes(1).Value, Boolean))
21Next
22End Function
23'确定，然后写入XML
24 Function WriteConfig()Function WriteConfig()
25Dim i As Int16
26Dim str As String
27For i = 0 To intNum
28 rootnode.ChildNodes(i).Attributes(1).Value = CheckedListBox1.GetItemChecked(i).ToString
29Next
30 doc.Save(strPathConfig)
31End Function
32
33Private Sub Button2_Click()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()
37End Sub