[VB.NET+XML]完成简单程序配置
来源:互联网 发布:淘宝评价流程 编辑:程序博客网 时间:2024/06/02 11:36
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()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()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()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()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()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
- [VB.NET+XML]完成简单程序配置
- [VB.NET+XML]完成简单程序配置
- [VB.NET]简单的 XML 文档操作
- 一个简单的VB.net程序
- vb.net graphic 简单的画图程序
- Struts2_06_利用通配符完成最简单的xml配置
- VB.NET+XML文章
- VB.net生成xml
- VB.NET 操作xml
- vb.net 操作xml
- vb.net 写入 XML
- 用Socket做简单聊天程序(VB.net)
- [VB.NET源码]简单的EMAIL发邮件程序
- 一个简单的下载程序VB.NET示例
- 用Socket做简单聊天程序(VB.net)
- 用Socket做简单聊天程序(VB.net)
- Mybatis.net sqlmap.xml简单配置
- [VB.NET]简单图形
- 如何手工编写动态链接库(windows dll)
- 轻松制作特效窗体
- JAVA基础知识精华总结
- DELPHI技巧15则
- MFC消息响应机制
- [VB.NET+XML]完成简单程序配置
- XNA starter kit - starwar
- 各种DLL制作方法
- 人事部调查数据:六成应届大学生毕业即失业
- C#基础概念
- 教你学坏^_^(一段病毒代码)
- 如何让自己的应用程序,控制台程序,windows 服务收到操作系统注销或者重启的消息
- JAR的解释~
- vb.net中windows服务的创建