C#实现提高xml读写速度的方法

dim domxmldocument as system.xml.xmldocument  
  dim tmppath as string = apptempfilepath  
  dim xmlfile as string = tmppath + "＼testxml.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 + "＼testxml.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  
  msgbox(ex.message)  
  finally  
  if not (reader is nothing) then  
  reader.close()  
  end if  
  end try  
  end sub  
  '载入xml事件  
  private sub btnxmlload_click(byval sender as system.object, byval e as system.eventargs) handles btnxmlload.click  
  'me.lboxxml.items.clear()  
  ''读xml过程测试通过  
  'dim reader as system.xml.xmlreader = nothing  
  'try  
  ' reader = new xml.xmltextreader(xmlfile)  
  ' while reader.read  
  ' me.lboxxml.items.add(reader.name + ":" + reader.value)  
  ' end while  
  'catch ex as exception  
  ' msgbox(ex.message)  
  'finally  
  ' if not (reader is nothing) then  
  ' reader.close()  
  ' end if  
  'end try  
  dim ds as new dataset  
  try  
  '如果直接使用ds做datasource则不会展开datagrid，用dv则能直接显示正确。  
  ds.readxml(xmlfile)  
  dim tb as datatable  
  dim dv as dataview  
  tb = ds.tables(0)  
  dv = new dataview(tb)  
  datagrid1.datasource = dv  
  'datagrid1.datamember = "testxmlmember"  
  'datagrid1.datamember = "employeefname"  
  'dim dxd as new xmldatadocument  
  catch ex as exception  
  msgbox(ex.message.tostring)  
  end try  
  end sub  
  '保存新建xml内容事件  
  private sub btnsavenew_click(byval sender as system.object, byval e as system.eventargs) handles btnsavenew.click  
  dim mytw as new xmltextwriter(tmppath + "＼testxmlwrite.xml", nothing)  
  mytw.writestartdocument()  
  mytw.formatting = formatting.indented  
  mytw.writestartelement("team")  
  mytw.writestartelement("player")  
  mytw.writeattributestring("name", "george zip")  
  mytw.writeattributestring("position", "qb")  
  mytw.writeelementstring("nickname", "zippy")  
  mytw.writeelementstring("jerseynumber", xmlconvert.tostring(7))  
  mytw.writeendelement()  
  mytw.writeendelement()  
  mytw.writeenddocument()  
  mytw.close()  
  end sub