VB.Net/Generics/Generic List

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

Generic String List

<source lang="vbnet"> 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


      </source>


Use Generic List to store your own Object

<source lang="vbnet"> 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

      </source>