VB.Net/Generics/Generic List

Материал из VB Эксперт
Перейти к: навигация, поиск

Generic String List

Imports System
Imports System.Collections
Imports System.Collections.Generic
Public Class MainClass
    
    Shared Sub Main(ByVal args As String())
        Dim places As New List(Of String)
        places.Add("A")
        places.Add("B")
        places.Add("C")
        places.Add("D")
    End Sub
End Class


Use Generic List to store your own Object

Imports System
Imports System.Collections
Imports System.Collections.Generic
Public Class MainClass
    
    Shared Sub Main(ByVal args As String())
        Dim student_list As New StudentList
        student_list.Add(New Student("A", "B"))
        student_list.Add("C", "D")
    End Sub
End Class
  
Public Class Student
    Private m_FirstName As String
    Private m_LastName As String
    Public Sub New(ByVal first_name As String, ByVal last_name As String)
        m_FirstName = first_name
        m_LastName = last_name
    End Sub
    Public Overrides Function ToString() As String
        Return m_FirstName & " " & m_LastName
    End Function
End Class
Public Class StudentList
    Inherits List(Of Student)
    Public Overloads Sub Add(ByVal first_name As String, ByVal last_name As String)
        Dim student As New Student(first_name, last_name)
        MyBase.Add(student)
    End Sub
End Class