Dim xml_document As DOMDocument Dim values_node As IXMLDOMElementSet xml_document = New DOMDocumentSet pi = xml_document.createProcessingInstruction("xml", "version=""1.0"" encoding=""GB2312""") xml_document.insertBefore pi, xml_document.childNodes.Item(0)Set values_node = xml_document.CreateNode(NODE_ELEMENT, "Form", "")values_node.setAttribute "BackColor", "FFFFFF"其它类似了
Dim values_node As IXMLDOMElementSet xml_document = New DOMDocumentSet pi = xml_document.createProcessingInstruction("xml", "version=""1.0"" encoding=""GB2312""")
xml_document.insertBefore pi, xml_document.childNodes.Item(0)Set values_node = xml_document.CreateNode(NODE_ELEMENT, "Form", "")values_node.setAttribute "BackColor", "FFFFFF"其它类似了
http://www.yesky.com/20021016/1635180.shtml
http://www.programfan.com/showarticle.asp?id=1939