VB6 & XML

VB6.0中为XML文档添加encoding项为什么总是不成功?[求助]
http://bbs.xml.org.cn/dispbbs.asp?BoardID=34&replyID=63956&id=38767&star=1&skin=0

运行环境: VB6.0 + MSXML4.0
想实现的功能: 在VB6.0中用代码实现自动生成XML文件

 

遇到的问题:
XML文件首行格式要求如下：
<?xml version="1.0" encoding="UTF-8" ?>
即要求包含"版本号"和"编码类型"
但我用如下方法：
dim xml_document as DOMDocument40
dim xml_node as IXMLDOMProcessingInstruction
Set xml_document = New DOMDocument40
Set xml_node = xml_document.createProcessingInstruction("xml", " version='1.0' encoding='UTF-8'")
Set xml_node = xml_document.insertBefore(xml_node, xml_document.childNodes.Item(0))
发现只能得到：
<?xml version="1.0"?>
即无法成功添加encoding项

上网找了很多资料,发现他们很多就是直接像上面那样用的,但为什么我总是不能成功添加呢?

请各位大虾指点!谢谢!!!

 

 

哈哈,此问题已经解决!
发现调用 DOMDocument 对象上的 XML 属性只会返回
<?xml version="1.0"?>
但调用xml_document.save ("test.xml")后
生成的文件中已是:
<?xml version="1.0" encoding="UTF-8" ?>