VB.NET에서 런타임에 배열 크기 조정

Question

런타임에 내 Windows Forms 응용 프로그램에서 요소를 추가 할 때마다 배열의 크기가 조정됩니다. 먼저 size + 1으로 크기를 조정 한 다음이 색인에 회원을 추가해야합니다. 어떻게해야합니까?

Answer 1

당신 ReDim 문을 사용할 수 있지만이 정말 '외설 최선의 선택. 배열의 크기가 자주 변경 될 경우 특히이 추가되는 것처럼 들리므로 일반 List(Of T) 또는 유사한 컬렉션 유형을 사용해야합니다.

당신은 당신이 마지막에 항목을 추가하는 것은 MyList.Add(item)

는, 일반적인 목록을 사용하여 파일의 상단에 Imports System.Collections.Generics를 추가하려면 한 쉽게 것을 추가로, 배열을 사용하는 것처럼 사용할 수 있습니다. 이 같은

Dim MyList As New List(Of Integer)() 

또는 문자열 목록 : 그럼, 당신은이 같은 새로운 정수리스트를 선언 할

Dim MyList As New List(Of String)() 

당신은 생각을해야한다.

Answer 2

새 크기를 지정하려면 ReDim 명령을 사용하십시오.

ReDim MyArray(MyArray.Length + 1) 

Answer 3

내가 컬렉션 클래스의 몇 가지 유형을 선호하지만, 당신이 배열을 사용하려면 다음과 같이 그것을 할 것입니다 :

Dim arr() As Integer 
Dim cnt As Integer = 0 
Dim ix As Integer 

For ix = 1 To 1000 
    cnt = cnt + 1 
    ReDim arr(cnt) 
    arr(cnt - 1) = ix 
Next 

Answer 4

요엘이 말했듯이 목록을 사용하십시오.

Dim MyList As New List(Of String) 

String을로 변경하는 것을 잊지 마십시오. 사용중인 데이터 유형 중.

Answer 5

제안 된 ReDim의 경우이 시나리오에서 키워드 보존이 필요합니다.

ReDim Preserve MyArray(n) 

Answer 6

나만의 컬렉션 클래스를 만들 수도 있습니다. 새로운 프로그래머를위한 좋은 프로그래밍 연습.

Public Class MyList 
Private Items() As String 
Private No As Integer = 0 
Public Sub Add(ByVal NewItem As String) 

    ''Create a temporary new string array 

    Dim CopyString(No) As String 

    ''Copy values from Global Variable Items() to new CopyString array 

    For i As Integer = 0 To No - 1 
     CopyString(i) = Items(i) 
    Next 

    ''Add new value - NewItem - to CopyString 

    CopyString(No) = NewItem 

    ''Increment No to No + 1 

    No += 1 

    ''Copy CopyString to Items 

    Items = CopyString 

    'Discard CopyString 

    CopyString = Nothing 

End Sub 
Public Sub Show(ByVal index As Integer) 
    MsgBox(Items(index)) 
End Sub 
End Class 

''Now create a form with a TextBox name - txt, Button1 and Button2 

Public Class Form1 

''Declare txts as a new MyList Class 

Private txts As New MyList 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

    ''Add text to txts which is a MyList Class 

    txts.Add(txt.Text) 
    txt.Text = "" 

End Sub 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 

    ''Display value at a specific index 

    txts.Show(Convert.ToInt16(txt.Text)) 
    txt.Text = "" 

End Sub 
End Class 

Answer 7

일반적인 목록을 사용하는 것이 좋습니다. 그러나 배열의 크기를 변경하려면 Array.Resize(ByRef arr, newSize)을 사용할 수 있습니다.

ReDim은 (꽤 나쁜) 아이디어 (VB 특정 유산, 매우 느림)가 아닙니다.

Answer 8

나

Dim Table1 As New DataTable 
    ' Define columns 
    Table1.Columns.Add("Column1", GetType(System.String)) 
    Table1.Columns.Add("Column2", GetType(System.Int32)) 
    Table1.Columns.Add("Column3", GetType(System.Int32)) 
    ' Add a row of data 
    Table1.Rows.Add("Item1", 44, 99) 
    Table1.Rows.Add("Item2", 42, 3) 
    Table1.Rows.Add("Item3", 42, 3) 
    Table1.Rows.Add("Item4", 42, 3) 
    Dim arr(-1) As String 
    For Each dr As DataRow In Table1.Rows 
     ReDim Preserve arr(arr.Length) 
     arr(arr.Length - 1) = dr("Column1") 
    Next