VB.Net/Generics/Generic List — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Текущая версия на 12:42, 26 мая 2010
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