?? componentlist.vb
字號:
'從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)
'文件名空則應(yīng)拋出異常.
_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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -