Dim domXmlDocument As System.Xml.XmlDocument
Dim tmpPath As String = AppTempFilePath
Dim xmlFile As String = tmpPath + " estXml.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 + " estXml.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