讀取XML文件VB.NET

Question

我想閱讀下面的XML文件在VB.NET

<?xml version="1.0" encoding="UTF-8"?> 
<mame build="0.129 (Jan 8 2009)" debug="no"> 
    <game name="puckman" sourcefile="pacman.c"> 
     <description>PuckMan (Japan set 1, Probably Bootleg)</description> 
     <year>1980</year> 
     <manufacturer>Namco</manufacturer> 
     <rom name="namcopac.6e" size="4096" crc="fee263b3" sha1="87117ba5082cd7a615b4ec7c02dd819003fbd669" region="main" offset="0"/> 
     <rom name="namcopac.6f" size="4096" crc="39d1fc83" sha1="326dbbf94c6fa2e96613dedb53702f8832b47d59" region="main" offset="1000"/> 
     <rom name="namcopac.6h" size="4096" crc="02083b03" sha1="7e1945f6eb51f2e51806d0439f975f7a2889b9b8" region="main" offset="2000"/> 
     <rom name="namcopac.6j" size="4096" crc="7a36fe55" sha1="01b4c38108d9dc4e48da4f8d685248e1e6821377" region="main" offset="3000"/> 
     <rom name="pacman.5e" size="4096" crc="0c944964" sha1="06ef227747a440831c9a3a613b76693d52a2f0a9" region="gfx1" dispose="yes" offset="0"/> 
     <rom name="pacman.5f" size="4096" crc="958fedf9" sha1="4a937ac02216ea8c96477d4a15522070507fb599" region="gfx1" dispose="yes" offset="1000"/> 
     <rom name="82s123.7f" size="32" crc="2fc650bd" sha1="8d0268dee78e47c712202b0ec4f1f51109b1f2a5" region="proms" offset="0"/> 
     <rom name="82s126.4a" size="256" crc="3eb3a8e4" sha1="19097b5f60d1030f8b82d9f1d3a241f93e5c75d6" region="proms" offset="20"/> 
     <rom name="82s126.1m" size="256" crc="a9cc86bf" sha1="bbcec0570aeceb582ff8238a4bc8546a23430081" region="namco" offset="0"/> 
     <rom name="82s126.3m" size="256" crc="77245b66" sha1="0c4d0bee858b97632411c440bea6948a74759746" region="namco" offset="100"/> 
     <chip type="cpu" tag="main" name="Z80" clock="3072000"/> 
     <chip type="audio" tag="namco" name="Namco" clock="96000"/> 
     <display type="raster" rotate="90" width="288" height="224" refresh="60.606061" pixclock="6144000" htotal="384" hbend="0" hbstart="288" vtotal="264" vbend="0" vbstart="224" /> 
     <sound channels="1"/> 
     <input players="2" buttons="1" coins="2" service="yes"> 
      <control type="joy4way"/> 
     </input> 
     <dipswitch name="Rack Test (Cheat)"> 
      <dipvalue name="Off" default="yes"/> 
      <dipvalue name="On"/> 
     </dipswitch> 
     <dipswitch name="Service Mode"> 
      <dipvalue name="Off" default="yes"/> 
      <dipvalue name="On"/> 
     </dipswitch> 
     <dipswitch name="Cabinet"> 
      <dipvalue name="Upright" default="yes"/> 
      <dipvalue name="Cocktail"/> 
     </dipswitch> 
     <dipswitch name="Coinage"> 
      <dipvalue name="2 Coins/1 Credit"/> 
      <dipvalue name="1 Coin/1 Credit" default="yes"/> 
      <dipvalue name="1 Coin/2 Credits"/> 
      <dipvalue name="Free Play"/> 
     </dipswitch> 
     <dipswitch name="Lives"> 
      <dipvalue name="1"/> 
      <dipvalue name="2"/> 
      <dipvalue name="3" default="yes"/> 
      <dipvalue name="5"/> 
     </dipswitch> 
     <dipswitch name="Bonus Life"> 
      <dipvalue name="10000" default="yes"/> 
      <dipvalue name="15000"/> 
      <dipvalue name="20000"/> 
      <dipvalue name="None"/> 
     </dipswitch> 
     <dipswitch name="Difficulty"> 
      <dipvalue name="Normal" default="yes"/> 
      <dipvalue name="Hard"/> 
     </dipswitch> 
     <dipswitch name="Ghost Names"> 
      <dipvalue name="Normal" default="yes"/> 
      <dipvalue name="Alternate"/> 
     </dipswitch> 
     <driver status="good" emulation="good" color="good" sound="good" graphic="good" savestate="supported" palettesize="512"/> 
    </game> 
    <game name="puckmana" sourcefile="pacman.c" cloneof="puckman" romof="puckman"> 
     <description>PuckMan (Japan set 2)</description> 
     <year>1980</year> 
     <manufacturer>Namco</manufacturer> 
     <rom name="pacman.6e" size="4096" crc="c1e6ab10" sha1="e87e059c5be45753f7e9f33dff851f16d6751181" region="main" offset="0"/> 
     <rom name="pacman.6f" size="4096" crc="1a6fb2d4" sha1="674d3a7f00d8be5e38b1fdc208ebef5a92d38329" region="main" offset="1000"/> 
     <rom name="pacman.6h" size="4096" crc="bcdd1beb" sha1="8e47e8c2c4d6117d174cdac150392042d3e0a881" region="main" offset="2000"/> 
     <rom name="prg7" size="2048" crc="b6289b26" sha1="d249fa9cdde774d5fee7258147cd25fa3f4dc2b3" region="main" offset="3000"/> 
     <rom name="prg8" size="2048" crc="17a88c13" sha1="eb462de79f49b7aa8adb0cc6d31535b10550c0ce" region="main" offset="3800"/> 
     <rom name="chg1" size="2048" crc="2066a0b7" sha1="6d4ccc27d6be185589e08aa9f18702b679e49a4a" region="gfx1" dispose="yes" offset="0"/> 
     <rom name="chg2" size="2048" crc="3591b89d" sha1="79bb456be6c39c1ccd7d077fbe181523131fb300" region="gfx1" dispose="yes" offset="800"/> 
     <rom name="pacman.5f" merge="pacman.5f" size="4096" crc="958fedf9" sha1="4a937ac02216ea8c96477d4a15522070507fb599" region="gfx1" dispose="yes" offset="1000"/> 
     <rom name="82s123.7f" merge="82s123.7f" size="32" crc="2fc650bd" sha1="8d0268dee78e47c712202b0ec4f1f51109b1f2a5" region="proms" offset="0"/> 
     <rom name="82s126.4a" merge="82s126.4a" size="256" crc="3eb3a8e4" sha1="19097b5f60d1030f8b82d9f1d3a241f93e5c75d6" region="proms" offset="20"/> 
     <rom name="82s126.1m" merge="82s126.1m" size="256" crc="a9cc86bf" sha1="bbcec0570aeceb582ff8238a4bc8546a23430081" region="namco" offset="0"/> 
     <rom name="82s126.3m" merge="82s126.3m" size="256" crc="77245b66" sha1="0c4d0bee858b97632411c440bea6948a74759746" region="namco" offset="100"/> 
     <chip type="cpu" tag="main" name="Z80" clock="3072000"/> 
     <chip type="audio" tag="namco" name="Namco" clock="96000"/> 
     <display type="raster" rotate="90" width="288" height="224" refresh="60.606061" pixclock="6144000" htotal="384" hbend="0" hbstart="288" vtotal="264" vbend="0" vbstart="224" /> 
     <sound channels="1"/> 
     <input players="2" buttons="1" coins="2" service="yes"> 
      <control type="joy4way"/> 
     </input> 
     <dipswitch name="Rack Test (Cheat)"> 
      <dipvalue name="Off" default="yes"/> 
      <dipvalue name="On"/> 
     </dipswitch> 
     <dipswitch name="Service Mode"> 
      <dipvalue name="Off" default="yes"/> 
      <dipvalue name="On"/> 
     </dipswitch> 
     <dipswitch name="Cabinet"> 
      <dipvalue name="Upright" default="yes"/> 
      <dipvalue name="Cocktail"/> 
     </dipswitch> 
     <dipswitch name="Coinage"> 
      <dipvalue name="2 Coins/1 Credit"/> 
      <dipvalue name="1 Coin/1 Credit" default="yes"/> 
      <dipvalue name="1 Coin/2 Credits"/> 
      <dipvalue name="Free Play"/> 
     </dipswitch> 
     <dipswitch name="Lives"> 
      <dipvalue name="1"/> 
      <dipvalue name="2"/> 
      <dipvalue name="3" default="yes"/> 
      <dipvalue name="5"/> 
     </dipswitch> 
     <dipswitch name="Bonus Life"> 
      <dipvalue name="10000" default="yes"/> 
      <dipvalue name="15000"/> 
      <dipvalue name="20000"/> 
      <dipvalue name="None"/> 
     </dipswitch> 
     <dipswitch name="Difficulty"> 
      <dipvalue name="Normal" default="yes"/> 
      <dipvalue name="Hard"/> 
     </dipswitch> 
     <dipswitch name="Ghost Names"> 
      <dipvalue name="Normal" default="yes"/> 
      <dipvalue name="Alternate"/> 
     </dipswitch> 
     <driver status="good" emulation="good" color="good" sound="good" graphic="good" savestate="supported" palettesize="512"/> 
    </game> 
</mame> 

這是代碼，我使用

Imports System.IO 
Imports System.Xml 
Public Class Form1 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Try 
     Dim m_xmld As XmlDocument 
     Dim m_nodelist As XmlNodeList 
     Dim m_node As XmlNode 

     m_xmld = New XmlDocument() 
     m_xmld.Load("C:\mame2.xml") 
     m_nodelist = m_xmld.SelectNodes("/mame/game") 

     For Each m_node In m_nodelist 

      Dim GameAttribute = m_node.Attributes.GetNamedItem("name").Value 
      Dim name = m_node.ChildNodes.Item(0).InnerText 
      Dim description = m_node.ChildNodes.Item(1).InnerText 
      Dim manufacturer = m_node.ChildNodes.Item(2).InnerText 
      Dim rotate = m_node.ChildNodes.Item(15).Attributes.GetNamedItem("rotate").Value 
      Dim controles = m_node.ChildNodes.Item(17).ChildNodes.Item(0).Attributes.GetNamedItem("type").Value 

      MessageBox.Show("ROM: " & GameAttribute _ 
       & "-- Description: " & name & "-- Year: " _ 
       & description & "-- Manufacturer: " _ 
       & manufacturer & "-- Rotate: " _ 
       & rotate & "-- Control Type: " & controles) 

     Next 
    Catch errorVariable As Exception 

     MessageBox.Show(errorVariable.ToString()) 
    End Try 
    Me.Close() 
End Sub 
End Class 

---

我試圖閱讀「名稱」，「描述」，「年份」，「製造商」，「旋轉」和「輸入播放器控制類型」。使用此代碼，我可以讀取第一個遊戲，但不能讀取其餘的XML文件（本例中我粘貼了2個遊戲）。我可以通過孩子節點號讀取孩子節點和屬性，問題是「rom」中的遊戲有不同數量的孩子節點，並且程序返回錯誤。

我想有另一種方式來閱讀這個文件，但我不知道它是哪一個。

感謝您的提前和抱歉我的英語。

Answer 1

您需要使用XPath而不是按索引訪問子節點。例如：

Dim name As String = m_node.SelectSingleNode("@name").InnerText 
Dim description As String = m_node.SelectSingleNode("description").InnerText 
Dim manufacturer As String = m_node.SelectSingleNode("manufacturer").InnerText 
Dim rotate As String = m_node.SelectSingleNode("display/@rotate").InnerText 
Dim controls As String = m_node.SelectSingleNode("input/control/@type").InnerText 

Answer 2

這應該做的伎倆，雖然我確實採取了一些自由與你試圖反序列化的對象類型。還有一些工作要做（如'TODO'所述）。我遺漏的唯一代碼是將文件路徑解析爲一個流，傳遞給主類的serialize/desreialize方法。我希望這有幫助。

#Region "Imports" 
'first, import some usefull namespaces 
Imports System 
Imports System.IO 
Imports System.Xml.Serialization 
#End Region 
#Region "Classes" 
'then, start constructing your classes by drilling down in sequence 
''' <summary> 
''' A class to hold your xml file's data. 
''' </summary> 
''' <remarks>This class will hold the the data from your file.</remarks> 
<XmlRoot("mame")> _ 
Public Class YourXML_File 
#Region "Properties" 
    <XmlAttribute(AttributeName:="build")> _ 
    Public Property Build As String 
    <XmlAttribute(AttributeName:="debug")> _ 
    Public Property Debug As New StrangeBooleanNomenclatureType 
    <XmlArray(ElementName:="game")> _ 
    Public Property Games As New List(Of Game) 
#End Region 
#Region "Methods" 
#Region "Constructors" 
    ''' <summary> 
    ''' The default constructor. 
    ''' </summary> 
    ''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks> 
    Public Sub New() 
     'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior 
    End Sub 
#End Region 
#Region "XML Serialization/Deserialization" 
    ''' <summary> 
    ''' Strongly typed method to serialize your object. 
    ''' </summary> 
    Public Shared Function Serialize(ByVal astream As Stream, ByVal axml_fileobj As YourXML_File) As Boolean 
     'try to serialize the file stream 
     Try 
      'first create a xml serializer object 
      Dim serializer As New XmlSerializer(GetType(YourXML_File)) 
      'then serialize the object 
      serializer.Serialize(astream, axml_fileobj) 
      'return a successful serialization 
      Return True 
     Catch ex As Exception 

      'TODO: handle any exceptions here as you wish 

      'let the calling method know the serialization failed 
      Return False 
     End Try 
    End Function 
    ''' <summary> 
    ''' Strongly typed method to deserialize your object 
    ''' </summary> 
    Public Shared Function Deserialize(ByVal astream As Stream, ByVal axml_fileobj As YourXML_File) As Boolean 
     'try to deserialize the file stream 
     Try 
      'first create a xml serializer object 
      Dim serializer As New XmlSerializer(GetType(YourXML_File)) 
      'then deserialize the object 
      axml_fileobj = serializer.Deserialize(astream) 
      'return a successful deserialization 
      Return True 
     Catch ex As Exception 

      'TODO: handle any exceptions here as you wish 

      'let the calling method know the deserialization failed 
      Return False 
     End Try 
    End Function 
#End Region 
#End Region 
End Class 
''' <summary> 
''' A class to represent the "game" element. 
''' </summary> 
<XmlRoot("game")> _ 
Public Class Game 
#Region "Properties" 
    <XmlAttribute("name")> _ 
    Public Property Game_Name As String 
    <XmlAttribute("sourcefile")> _ 
    Public Property Game_SourceFile As String 
    <XmlElement("description")> _ 
    Public Property Game_Description As String 
    <XmlElement("year")> _ 
    Public Property Game_Year As Integer 
    <XmlElement("manufacture")> _ 
    Public Property Game_Manufacturer As String 
    <XmlElement("roms")> _ 
    Public Property Game_Roms As New List(Of Rom) 
    <XmlElement("chips")> _ 
    Public Property Game_Chips As New List(Of Chip) 
    <XmlElement("display")> _ 
    Public Property Game_Display As New Display 
    <XmlElement("sound")> _ 
    Public Property Game_Sound As New Sound 
    <XmlElement("input")> _ 
    Public Property Game_Input As New Input 
    <XmlElement("dipswitches")> _ 
    Public Property Game_Dipswitches As New List(Of DipSwitch) 
    <XmlElement("driver")> _ 
    Public Property Game_Driver As New Driver 
#End Region 
#Region "Methods" 
#Region "Constructors" 
    ''' <summary> 
    ''' The default constructor. 
    ''' </summary> 
    ''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks> 
    Public Sub New() 
     'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior 
    End Sub 
#End Region 
#End Region 
End Class 
<XmlRoot("rom")> _ 
Public Class Rom 
#Region "Properties" 
    <XmlAttribute("name")> _ 
    Public Property Rom_Name As String 
    <XmlAttribute("size")> _ 
    Public Property Rom_Size As Integer 
    <XmlAttribute("crc")> _ 
    Public Property Rom_Crc As String 
    <XmlAttribute("sha1")> _ 
    Public Property Rom_Sha1 As String 
    <XmlAttribute("region")> _ 
    Public Property Rom_Region As New RomRegionType 
    <XmlAttribute("dispose")> _ 
    Public Property Rom_Dispose As New StrangeBooleanNomenclatureType 
    <XmlAttribute("offset")> _ 
    Public Property Rom_Offset As Integer 
#End Region 
#Region "Methods" 
#Region "Constructors" 
    ''' <summary> 
    ''' The default constructor. 
    ''' </summary> 
    ''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks> 
    Public Sub New() 
     'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior 
    End Sub 
#End Region 
#End Region 
End Class 
<XmlRoot("chip")> _ 
Public Class Chip 
#Region "Properties" 
    <XmlAttribute("type")> _ 
    Public Property Chip_Type As New ChipType 
    <XmlAttribute("tag")> _ 
    Public Property Chip_Tag As String 
    <XmlAttribute("name")> _ 
    Public Property Chip_Name As String 
    <XmlAttribute("clock")> _ 
    Public Property Chip_Clock As Integer 
#End Region 
#Region "Methods" 
#Region "Constructors" 
    ''' <summary> 
    ''' The default constructor. 
    ''' </summary> 
    ''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks> 
    Public Sub New() 
     'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior 
    End Sub 
#End Region 
#End Region 
End Class 
<XmlRoot("display")> _ 
Public Class Display 
#Region "Properties" 
    <XmlAttribute("type")> _ 
    Public Property Display_Type As New DisplayType 
    <XmlAttribute("rotate")> _ 
    Public Property Display_Rotate As Integer 
    <XmlAttribute("width")> _ 
    Public Property Display_Width As Integer 
    <XmlAttribute("height")> _ 
    Public Property Display_Height As Integer 
    <XmlAttribute("refresh")> _ 
    Public Property Display_Refresh As Double 
    <XmlAttribute("pixclock")> _ 
    Public Property Display_PixClock As Integer 
    <XmlAttribute("htotal")> _ 
    Public Property Display_H_Total As Integer 
    <XmlAttribute("hbend")> _ 
    Public Property Display_H_Bend As Integer 
    <XmlAttribute("hbstart")> _ 
    Public Property Display_HbStart As Integer 
#End Region 
#Region "Methods" 
#Region "Constructors" 
    ''' <summary> 
    ''' The default constructor. 
    ''' </summary> 
    ''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks> 
    Public Sub New() 
     'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior 
    End Sub 
#End Region 
#End Region 
End Class 
<XmlRoot("sound")> _ 
Public Class Sound 
#Region "Properties" 
    <XmlAttribute("channels")> _ 
    Public Property Sound_Channels As Integer 
#End Region 
#Region "Methods" 
#Region "Constructors" 
    ''' <summary> 
    ''' The default constructor. 
    ''' </summary> 
    ''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks> 
    Public Sub New() 
     'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior 
    End Sub 
#End Region 
#End Region 
End Class 
<XmlRoot("input")> _ 
Public Class Input 
#Region "Properties" 
    <XmlAttribute("players")> _ 
    Public Property Input_Players As Integer 
    <XmlAttribute("buttons")> _ 
    Public Property Input_Buttons As Integer 
    <XmlAttribute("coins")> _ 
    Public Property Input_Coins As Integer 
    <XmlAttribute("service")> _ 
    Public Property Input_Service As New StrangeBooleanNomenclatureType 
    <XmlElement("control")> _ 
    Public Property Input_Controls As New List(Of Control) 
#End Region 
#Region "Methods" 
#Region "Constructors" 
    ''' <summary> 
    ''' The default constructor. 
    ''' </summary> 
    ''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks> 
    Public Sub New() 
     'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior 
    End Sub 
#End Region 
#End Region 
End Class 
<XmlRoot("control")> _ 
Public Class Control 
#Region "Properties" 
    <XmlAttribute("type")> _ 
    Public Property Control_Type As New ControlType 
#End Region 
#Region "Methods" 
#Region "Constructors" 
    ''' <summary> 
    ''' The default constructor. 
    ''' </summary> 
    ''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks> 
    Public Sub New() 
     'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior 
    End Sub 
#End Region 
#End Region 
End Class 
<XmlRoot("dipswitch")> _ 
Public Class DipSwitch 
#Region "Properties" 
    <XmlAttribute("name")> _ 
    Public Property DipSwitch_Name As String 
    <XmlElement("dipvalue")> _ 
    Public Property DipSwitch_DipValues As New List(Of DipValue) 
#End Region 
#Region "Methods" 
#Region "Constructors" 
    ''' <summary> 
    ''' The default constructor. 
    ''' </summary> 
    ''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks> 
    Public Sub New() 
     'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior 
    End Sub 
#End Region 
#End Region 
End Class 
<XmlRoot("dipvalue")> _ 
Public Class DipValue 
#Region "Properties" 
    <XmlAttribute("name")> _ 
    Public Property DipValue_Name As String 
    <XmlAttribute("default")> _ 
    Public Property DipValue_Default As New StrangeBooleanNomenclatureType 
#End Region 
#Region "Methods" 
#Region "Constructors" 
    ''' <summary> 
    ''' The default constructor. 
    ''' </summary> 
    ''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks> 
    Public Sub New() 
     'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior 
    End Sub 
#End Region 
#End Region 
End Class 
<XmlRoot("driver")> _ 
Public Class Driver 
#Region "Properties" 
    <XmlAttribute("status")> _ 
    Public Property Driver_Status As New StatusState 
    <XmlAttribute("emulation")> _ 
    Public Property Driver_Emulation As New StatusState 
    <XmlAttribute("color")> _ 
    Public Property Driver_Color As New StatusState 
    <XmlAttribute("sound")> _ 
    Public Property Driver_Sound As New StatusState 
    <XmlAttribute("graphic")> _ 
    Public Property Driver_Graphic As New StatusState 
    <XmlAttribute("savestate")> _ 
    Public Property Driver_SaveState As New SaveStateType 
    <XmlAttribute("palettesize")> _ 
    Public Property Driver_PaletteSize As Integer 
#End Region 
#Region "Methods" 
#Region "Constructors" 
    ''' <summary> 
    ''' The default constructor. 
    ''' </summary> 
    ''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks> 
    Public Sub New() 
     'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior 
    End Sub 
#End Region 
#End Region 
End Class 
#End Region 
#Region "Enums" 
'finally, introduce some enumerations to strongly define the exact range of the more loosely defined attributes used 
Public Enum StatusState 
    <XmlEnum("bad")> Bad = 0 
    <XmlEnum("good")> Good = 1 
End Enum 
Public Enum StrangeBooleanNomenclatureType 
    <XmlEnum("no")> No = 0 
    <XmlEnum("yes")> Yes = 1 
End Enum 
Public Enum ChipType 
    <XmlEnum("cpu")> CPU = 0 
    <XmlEnum("audio")> Audio = 1 

    'TODO: add other chip types here 

End Enum 
Public Enum RomRegionType 
    <XmlEnum("main")> Main = 0 
    <XmlEnum("gfx1")> GFX1 = 1 
    <XmlEnum("proms")> Proms = 2 
    <XmlEnum("namco")> Namco = 3 

    'TODO: add more region types here 

End Enum 
Public Enum DisplayType 
    <XmlEnum("raster")> Raster = 0 

    'TODO: add more display types here 

End Enum 
Public Enum ControlType 
    <XmlEnum("joy4way")> joy4way = 0 

    'TODO: add more control types here 

End Enum 
Public Enum SaveStateType 
    <XmlEnum("supported")> Supported = 0 

    'TODO: add more save state types here 

End Enum 
#End Region