mirror of
https://github.com/mRemoteNG/mRemoteNG.git
synced 2026-02-17 14:07:46 +08:00
e08c88db5f
* removed unneeded Imports * renamed namespace to mRemoteNG * changed Logfile path to %USERPROFILE%\AppData\Local\mRemoteNG\mRemoteNG.log * fixed mRemoteNG.exe.config * added more ignores to .gitignore
65 lines
1.7 KiB
VB.net
65 lines
1.7 KiB
VB.net
Namespace Connection
|
|
Public Class List
|
|
Inherits CollectionBase
|
|
|
|
#Region "Public Properties"
|
|
Default Public ReadOnly Property Items(ByVal Index As Object) As Connection.Info
|
|
Get
|
|
If TypeOf Index Is Connection.Info Then
|
|
Return Index
|
|
Else
|
|
Return CType(List.Item(Index), Connection.Info)
|
|
End If
|
|
End Get
|
|
End Property
|
|
|
|
Public Shadows ReadOnly Property Count() As Integer
|
|
Get
|
|
Return List.Count
|
|
End Get
|
|
End Property
|
|
#End Region
|
|
|
|
#Region "Public Methods"
|
|
Public Function Add(ByVal cInfo As Connection.Info) As Connection.Info
|
|
Me.List.Add(cInfo)
|
|
Return cInfo
|
|
End Function
|
|
|
|
Public Sub AddRange(ByVal cInfo() As Connection.Info)
|
|
For Each cI As Connection.Info In cInfo
|
|
List.Add(cI)
|
|
Next
|
|
End Sub
|
|
|
|
Public Function FindByConstantID(ByVal id As String) As Connection.Info
|
|
For Each conI As Connection.Info In List
|
|
If conI.ConstantID = id Then
|
|
Return conI
|
|
End If
|
|
Next
|
|
|
|
Return Nothing
|
|
End Function
|
|
|
|
'Public Function Find(ByVal cInfo As Connection.Info)
|
|
' For Each cI As Connection.Info In List
|
|
|
|
' Next
|
|
'End Function
|
|
|
|
Public Function Copy() As Connection.List
|
|
Try
|
|
Return Me.MemberwiseClone
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
Return Nothing
|
|
End Function
|
|
|
|
Public Shadows Sub Clear()
|
|
Me.List.Clear()
|
|
End Sub
|
|
#End Region
|
|
End Class
|
|
End Namespace |