Mega Code Archive
Creates a shallow copy of the Array
<![CDATA[
Imports System
Imports System.Globalization
Public Class SamplesArray
Public Shared Sub Main()
Dim ci0 As New CultureInfo("ar-SA", False)
Dim ci1 As New CultureInfo("en-US", False)
Dim ci2 As New CultureInfo("fr-FR", False)
Dim ci3 As New CultureInfo("ja-JP", False)
Dim arrCI() As CultureInfo = {ci0, ci1, ci2, ci3}
Dim arrCIClone As CultureInfo() = CType(arrCI.Clone(), CultureInfo())
Dim ci4 As New CultureInfo("th-TH", False)
arrCIClone(0) = ci4
PrintIndexAndValues(arrCI)
PrintIndexAndValues(arrCIClone)
End Sub 'Main
Public Shared Sub PrintIndexAndValues(myArray As Array)
Dim i As Integer
For i = myArray.GetLowerBound(0) To myArray.GetUpperBound(0)
Console.WriteLine(vbTab + "[{0}]:" + vbTab + "{1}", i, myArray.GetValue(i))
Next i
End Sub
End Class
]]>