用vb做一个读xml中的flv文件，并播放

Dim dom As DOMDocument
Dim Node As IXMLDOMNode
Dim ListNodes As IXMLDOMNodeList
Dim id, name, address as String

Set dom = New DOMDocument

dom.loadXML (XML_File_Str)
Set Node = dom.selectSingleNode("PlayLists")
Set ListNodes = Node.selectNodes("List")
for i=0 to ListNodes.length - 1'显示到grid控件
'当然,id,name,address是你自己定义的数据,可以只用一个
fg.text(i+1,0)= ListNodes(0).selectSingleNode("id").Text'id列
fg.text(i+1,1)= ListNodes(0).selectSingleNode("name").Text'名称列
fg.text(i+1,2)= ListNodes(0).selectSingleNode("address").Text'地址数据列
next