componentlist.vb

《CSDN 开发高手》2004年第6期

'从XML配置文件中读取组件的类名与文件名
Imports System.Collections.Specialized
Imports System.Windows.Forms
Public Class MyComponentList
    Private xmlreader As Xml.XmlTextReader
    Private _FileName As String
    Private _ComponentFileName As String
    Private _ComponentName As String
    Private componentNames As ArrayList
    Private componentFiles As ArrayList


    Public Sub New(ByVal FileName As String)
        _FileName = FileName
        _ComponentFileName = ""
        _ComponentName = ""
        componentNames = New ArrayList()
        componentFiles = New ArrayList()
        xmlreader = New Xml.XmlTextReader(FileName)
    End Sub


    Public Property FileName() As String
        Get
            Return _FileName
        End Get
        Set(ByVal Value As String)
            '文件名空则应抛出异常. 
            _FileName = Value
        End Set
    End Property

    Public Sub beginRead()
        Dim b1, b2 As Boolean
        b1 = False
        b2 = False
        While xmlreader.Read
            If xmlreader.Name = "Component" Then
                xmlreader.MoveToFirstAttribute()
                If xmlreader.Name = "ComponentName" Then
                    _ComponentName = xmlreader.Value
                    b1 = True
                End If
                If xmlreader.Name = "ComponentFileName" Then
                    _ComponentFileName = xmlreader.Value
                    b2 = True
                End If
                While xmlreader.MoveToNextAttribute()
                    If xmlreader.Name = "ComponentName" Then
                        _ComponentName = xmlreader.Value()
                        b1 = True
                    End If
                    If xmlreader.Name = "ComponentFileName" Then
                        _ComponentFileName = xmlreader.Value()
                        b2 = True
                    End If
                    If b1 And b2 Then
                        componentNames.Add(_ComponentName)
                        componentFiles.Add(_ComponentFileName)
                        b1 = False
                        b2 = False
                    End If
                End While
            End If
        End While

    End Sub
    Public Sub showall()
       
    End Sub

  
    Public Function getfilename(ByVal index As Integer) As String
        Return componentFiles.Item(index)
    End Function
    Public Function getClassName(ByVal index As Integer) As String
        Return componentNames.Item(index)
    End Function
End Class