- 18
- 0
- 约2.45千字
- 约 2页
- 2021-01-31 发布于山东
- 举报
dim domxmldocument as system.xml.xmldocument
dim tmppath as string = apptempfilepath
dim xmlfile as string = tmppath + \ testxml.xml
’窗体加载事件
private sub testxml_load(byval sender as system.object, byval e as system.eventargs) handles
mybase.load
’读 xml 过程测试通过
dim domxmldocument as system.xml.xmldocument
dim tmppath as string = apptempfilepath
dim xmlfile as string = tmppath + \ testxml.xml
dim reader as system.xml.xmlreader = nothing
try
reader = new xml.xmltextreader(xmlfile)
’ reader.
while reader.read
me.lboxxml.items.add(reader.name + reader.value)
end while
catch ex as exception
msgbox
原创力文档

文档评论(0)