1 2 3 4 5 6 7 8 9 10 11 12 13 | Public Function AppendArray(Of T)(ByVal thisArray() As T, ByVal itemToAppend As T) As T() If thisArray Is Nothing Then thisArray = New T() {} Dim tempList As List(Of T) = thisArray.ToList tempList.Add(itemToAppend) Return tempList.ToArray End Function |
沒有留言:
張貼留言