vb 创建xml

 

引用：http://hi.baidu.com/xoyowozo/blog/item/7544d9a8c0397ebdca130c7c.html

 

1 打开VB6.0   File--->New Project---->Standard ExE---->OK 2 打开菜单Project---->Reference---->选中Microsoft XML，V6.0---->OK 3 打开菜单Project---->Components---->选中Microsoft Windows Common Controls 6.0---->确定， 4 新建如下的Form 5 在Form_Load 下添加代码 ListView1.ColumnHeaders.Add , , "Flow", ListView1.Width / 2 ListView1.ColumnHeaders.Add , , "Number", ListView1.Width / 2 ListView1.View = lvwReport 6 在CreateXML按钮下添加代码，新建一个XML文件 Dim XmlDoc As DOMDocument Set XmlDoc = New DOMDocument XmlDoc.loadXML "<Data><Flow><Name>车加工</Name><Number>1</Number></Flow><Flow><Name>铣加工</Name><Number>2</Number></Flow></Data>" XmlDoc.save "d:\flow.xml" 7在ReadXML按钮下添加代码 Dim XmlDoc As DOMDocument Dim XMlRoot As IXMLDOMNode, XmlNode As IXMLDOMNode, XmlFor As IXMLDOMNode Dim XmlList As IXMLDOMNodeList, XmlListFor As IXMLDOMNodeList Dim i As Integer Set XmlDoc = New DOMDocument XmlDoc.Load "d:\flow.xml" Set XmlNode = XmlDoc.selectSingleNode("Data") Set XmlList = XmlNode.childNodes ListView1.ListItems.Clear For Each XmlFor In XmlList     Set XmlListFor = XmlFor.childNodes     With ListView1.ListItems.Add(, , XmlListFor.Item(0).Text)         .SubItems(1) = XmlListFor.Item(1).Text     End With Next 7 F5运行，先点击CreateXML按钮，在点击ReadXML按钮，所得运行结果如图 8 打开D盘下的Flow.xml文件，我们可以看到XML文件内容 9 END