VB.Net/Data Structure/Array Preserve

Материал из VB Эксперт
Версия от 15:45, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Preserve an Array

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Dim friends() As String = {"A", "B", "C","D", "E"}
       " make friends bigger!
       ReDim Preserve friends(6)
       friends(5) = "F"
       friends(6) = "G"
       AddFriendsToList(friends)
   End Sub
   
   Shared Sub AddFriendsToList(ByVal friends() As String)
       Dim friendName As String
       
       For Each friendName In friends
           Console.WriteLine("[" & friendName & "]")
       Next
   End Sub

End Class

      </source>