For Each...Next 문(Visual Basic)For Each...Next Statement (Visual Basic)

컬렉션의 각 요소에 대 한 문 그룹을 반복합니다.Repeats a group of statements for each element in a collection.


For Each element [ As datatype ] In group  
    [ statements ]  
    [ Continue For ]  
    [ statements ]  
    [ Exit For ]  
    [ statements ]  
Next [ element ]  


용어Term 정의Definition
element 에 필요한는 For Each 문입니다.Required in the For Each statement. 선택 사항는 Next 문입니다.Optional in the Next statement. 변수입니다.Variable. 컬렉션의 요소를 반복 하는 데 사용 합니다.Used to iterate through the elements of the collection.
datatype 선택적 Option Infer (기본 설정) 또는 element 선언 이미은 필요한 경우 Option Infer 꺼져 및 element 이미 선언 되지 않습니다.Optional if Option Infer is on (the default) or element is already declared; required if Option Infer is off and element isn't already declared. element의 데이터 형식입니다.The data type of element.
group 필수 요소.Required. 컬렉션 형식 또는 개체 형식으로 사용 되는 변수입니다.A variable with a type that's a collection type or Object. 컬렉션을 의미 합니다 statements 반복 됩니다.Refers to the collection over which the statements are to be repeated.
statements 선택 사항입니다.Optional. 간에 하나 이상의 문으로 For Each 하 고 Next 각 항목에 대해 실행 되는 group합니다.One or more statements between For Each and Next that run on each item in group.
Continue For 선택 사항입니다.Optional. 컨트롤의 시작 부분으로 전송 된 For Each 루프입니다.Transfers control to the start of the For Each loop.
Exit For 선택 사항입니다.Optional. 밖으로 제어를 전송 합니다 For Each 루프입니다.Transfers control out of the For Each loop.
Next 필수 요소.Required. 정의 종료 합니다 For Each 루프입니다.Terminates the definition of the For Each loop.

간단한 예Simple Example

사용 된 For Each... Next 컬렉션 또는 배열의 각 요소에 대 한 문 집합을 반복 하려는 경우 루프입니다.Use a For Each...Next loop when you want to repeat a set of statements for each element of a collection or array.

에 대 한 중... 다음 문을 제어 변수를 사용 하 여 루프의 각 반복을 연결 하 고 해당 변수의 초기 및 최종 값을 확인 수 때 잘 작동 합니다.A For...Next Statement works well when you can associate each iteration of a loop with a control variable and determine that variable's initial and final values. 그러나 컬렉션을 처리 하는 경우 초기 및 최종 값 개념이 의미 하지 않으며 컬렉션의 요소 수를 알 필요가 없습니다.However, when you are dealing with a collection, the concept of initial and final values isn't meaningful, and you don't necessarily know how many elements the collection has. 이 유형의 경우에는 For Each... Next 루프는 종종 것이 좋습니다.In this kind of case, a For Each...Next loop is often a better choice.

다음 예제에서는 For Each...NextIn the following example, the For EachNext 문 목록 컬렉션의 모든 요소를 반복합니다.statement iterates through all the elements of a List collection.

' Create a list of strings by using a
' collection initializer.
Dim lst As New List(Of String) _
    From {"abc", "def", "ghi"}

' Iterate through the list.
For Each item As String In lst
    Debug.Write(item & " ")
'Output: abc def ghi

더 많은 예제를 참조 하세요 컬렉션 하 고 배열합니다.For more examples, see Collections and Arrays.

중첩 된 루프Nested Loops

중첩할 수 있습니다 For Each 루프 내에서 다른 한 루프를 배치 하 여 합니다.You can nest For Each loops by putting one loop within another.

다음 예제에서는 중첩 된 For Each...NextThe following example demonstrates nested For EachNext 구조입니다.structures.

' Create lists of numbers and letters
' by using array initializers.
Dim numbers() As Integer = {1, 4, 7}
Dim letters() As String = {"a", "b", "c"}

' Iterate through the list by using nested loops.
For Each number As Integer In numbers
    For Each letter As String In letters
        Debug.Write(number.ToString & letter & " ")
'Output: 1a 1b 1c 4a 4b 4c 7a 7b 7c 

각 루프는 고유 해야 루프를 중첩할 때 element 변수입니다.When you nest loops, each loop must have a unique element variable.

또한 다른 종류의 서로 다른 제어 구조를 중첩할 수 있습니다.You can also nest different kinds of control structures within each other. 자세한 내용은 중첩 제어 구조합니다.For more information, see Nested Control Structures.

에 대 한 종료 하 고 계속Exit For and Continue For

합니다 에 Exit 문을 사용 하면 실행을 종료 하는 For...NextThe Exit For statement causes execution to exit the ForNext 루프 및 전송 컨트롤 뒤에 오는 문에 Next 문입니다.loop and transfers control to the statement that follows the Next statement.

Continue For 문은 제어 즉시 루프의 다음 반복으로 합니다.The Continue For statement transfers control immediately to the next iteration of the loop. 자세한 내용은 Continue 문은합니다.For more information, see Continue Statement.

다음 예제에서는 사용 하는 방법을 보여 줍니다 합니다 Continue ForExit For 문.The following example shows how to use the Continue For and Exit For statements.

Dim numberSeq() As Integer =
    {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}

For Each number As Integer In numberSeq
    ' If number is between 5 and 7, continue
    ' with the next iteration.
    If number >= 5 And number <= 8 Then
        Continue For
    End If

    ' Display the number.
    Debug.Write(number.ToString & " ")

    ' If number is 10, exit the loop.
    If number = 10 Then
        Exit For
    End If
' Output: 1 2 3 4 9 10

개수에 관계 없이 입력할 수 있습니다 Exit For 문에서 For Each 루프입니다.You can put any number of Exit For statements in a For Each loop. 사용 하는 경우 내에 중첩 For Each 루프 Exit For 실행이 다음 더 높은 수준의 중첩 가장 안쪽의 루프 및 전송 컨트롤을 종료 합니다.When used within nested For Each loops, Exit For causes execution to exit the innermost loop and transfers control to the next higher level of nesting.

Exit For 특정 조건에 대 한 평가 후에 대개 예는 If... Then... Else 구조입니다.Exit For is often used after an evaluation of some condition, for example, in an If...Then...Else structure. 사용 하려는 Exit For 다음 조건에 대 한 합니다.You might want to use Exit For for the following conditions:

  • 계속 반복은 불필요 하거나 불가능 합니다.Continuing to iterate is unnecessary or impossible. 잘못 된 값 이나 종료 요청 원인일 수 있습니다.This might be caused by an erroneous value or a termination request.

  • 예외가 포착 되는 Try... Catch... Finally. 사용할 수 있습니다 Exit For 끝에 Finally 블록입니다.An exception is caught in a Try...Catch...Finally. You might use Exit For at the end of the Finally block.

  • 여기도 무한히 여러 번 실행할 수는 루프가 무한 루프를 합니다.There an endless loop, which is a loop that could run a large or even infinite number of times. 이러한 상태를 발견 하는 경우 사용할 수 있습니다 Exit For 루프를 이스케이프 합니다.If you detect such a condition, you can use Exit For to escape the loop. 자세한 내용은 참조 하세요. 수행 하는 중... 문이 루프합니다.For more information, see Do...Loop Statement.


사용 하는 반복기 컬렉션에 대해 사용자 지정 반복을 수행 하 합니다.You use an iterator to perform a custom iteration over a collection. 반복기는 함수 일 수 있습니다 또는 Get 접근자입니다.An iterator can be a function or a Get accessor. 사용 된 Yield 문을 한 번에 하나씩 컬렉션의 각 요소를 반환 합니다.It uses a Yield statement to return each element of the collection one at a time.

사용 하 여 반복기를 호출 하는 For Each...Next 문입니다.You call an iterator by using a For Each...Next statement. 각각의 For Each 루프의 반복이 반복기를 호출합니다.Each iteration of the For Each loop calls the iterator. 경우는 Yield 반복기 식에서에서 문에 도달 하면는 Yield 문을 반환 되 고 코드에서 현재 위치는 유지 됩니다.When a Yield statement is reached in the iterator, the expression in the Yield statement is returned, and the current location in code is retained. 다음에 반복기가 호출되면 해당 위치에서 실행이 다시 시작됩니다.Execution is restarted from that location the next time that the iterator is called.

다음 예제에서는 반복기 함수를 사용 합니다.The following example uses an iterator function. 반복기 함수에는 Yield 문 내에 있는 에 대 한 중... 다음 루프입니다.The iterator function has a Yield statement that's inside a For…Next loop. ListEvenNumbers 메서드, 각 반복의 합니다 For Each 문 본문에서 다음 단계로 진행 하는 반복기 함수에 대 한 호출이 생성 Yield 문.In the ListEvenNumbers method, each iteration of the For Each statement body creates a call to the iterator function, which proceeds to the next Yield statement.

Public Sub ListEvenNumbers()
    For Each number As Integer In EvenSequence(5, 18)
        Debug.Write(number & " ")
    ' Output: 6 8 10 12 14 16 18
End Sub

Private Iterator Function EvenSequence(
ByVal firstNumber As Integer, ByVal lastNumber As Integer) _
As System.Collections.Generic.IEnumerable(Of Integer)

    ' Yield even numbers in the range.
    For number = firstNumber To lastNumber
        If number Mod 2 = 0 Then
            Yield number
        End If
End Function

자세한 내용은 반복기Yield 문을, 및 반복기합니다.For more information, see Iterators, Yield Statement, and Iterator.

기술 구현Technical Implementation

경우는 For Each...NextWhen a For EachNext 한 번만 루프가 시작 되기 전에 컬렉션을 평가 하는 Visual Basic 문을 실행 합니다.statement runs, Visual Basic evaluates the collection only one time, before the loop starts. 문 블록이 변경 되 면 element 또는 group, 이러한 변경 내용을 반복 루프의 영향을 주지 않습니다.If your statement block changes element or group, these changes don't affect the iteration of the loop.

때 컬렉션의 모든 요소가 연속적에 할당 된 elementFor Each 루프가 종료 되 고 다음 문으로 전달 제어를 Next 문입니다.When all the elements in the collection have been successively assigned to element, the For Each loop stops and control passes to the statement following the Next statement.

하는 경우 Option Infer 됩니다 (기본 설정)에서 Visual Basic 컴파일러의 데이터 형식을 유추할 수 element입니다.If Option Infer is on (its default setting), the Visual Basic compiler can infer the data type of element. 해제 되어 있으면 및 element 선언 해야 합니다를 루프 바깥쪽 선언 되지 않은에 For Each 문입니다.If it is off and element hasn't been declared outside the loop, you must declare it in the For Each statement. 데이터 형식을 선언 하 element 명시적으로 사용 하 여는 As 절.To declare the data type of element explicitly, use an As clause. 외부 데이터 형식의 요소를 정의 하지 않으면는 For Each... Next 범위 구문을 루프의 본문입니다.Unless the data type of element is defined outside the For Each...Next construct, its scope is the body of the loop. 선언할 수 없습니다는 element 외부와 루프입니다.Note that you cannot declare element both outside and inside the loop.

선택적으로 지정할 수 있습니다 elementNext 문입니다.You can optionally specify element in the Next statement. 중첩 된 경우에 특히 프로그램의 가독성을 향상 시킵니다이 For Each 루프입니다.This improves the readability of your program, especially if you have nested For Each loops. 해당 표시 되는 것과 동일한 변수를 지정 해야 합니다 For Each 문입니다.You must specify the same variable as the one that appears in the corresponding For Each statement.

값을 변경 하지 않도록 하려는 element 루프 내에서.You might want to avoid changing the value of element inside a loop. 이렇게 어려울 수 있습니다 더 읽고 코드를 디버그 합니다.Doing this can make it more difficult to read and debug your code. 값을 변경 group 컬렉션 또는 루프를 처음 입력 하면 결정 된 해당 요소에 영향을 주지 않습니다.Changing the value of group doesn't affect the collection or its elements, which were determined when the loop was first entered.

경우 루프를 중첩 하는 경우는 Next 바깥쪽 중첩 수준을 문이 하기 전에 Next 컴파일러는 내부 수준에서 오류를 알립니다.When you're nesting loops, if a Next statement of an outer nesting level is encountered before the Next of an inner level, the compiler signals an error. 그러나 컴파일러 감지할 수 있습니다이 오류를 지정 하는 경우에 겹치는 element 에서 모든 Next 문입니다.However, the compiler can detect this overlapping error only if you specify element in every Next statement.

코드를 특정 순서로 컬렉션을 순회에 종속 된 경우는 For Each... Next 루프에 적합 하지 않을, 열거자 개체의 특징을 알 수 없는 컬렉션을 노출 합니다.If your code depends on traversing a collection in a particular order, a For Each...Next loop isn't the best choice, unless you know the characteristics of the enumerator object the collection exposes. 트래버스 순서에서 하지만 Visual Basic에서 결정 되지 않습니다는 MoveNext 열거자 개체의 메서드.The order of traversal isn't determined by Visual Basic, but by the MoveNext method of the enumerator object. 반환할 첫 번째 컬렉션의 요소를 예측할 수 없습니다 따라서 element, 다음에 지정 된 요소 반환 되는 또는 합니다.Therefore, you might not be able to predict which element of the collection is the first to be returned in element, or which is the next to be returned after a given element. 와 같은 다른 루프 구조를 사용 하 여 더 안정적인 결과 얻을 수 있습니다 For... Next 또는 Do... Loop.You might achieve more reliable results using a different loop structure, such as For...Next or Do...Loop.

런타임에서의 요소를 변환할 수 있어야 합니다 groupelement입니다.The runtime must be able to convert the elements in group to element. [Option Strict] 문은 클래스는 확대 및 축소 변환을 허용 되는지 여부를 제어 (Option Strict 은 기본값 off), 확장 변환만 허용 하는지 여부 또는 (Option Strict 에).The [Option Strict] statement controls whether both widening and narrowing conversions are allowed (Option Strict is off, its default value), or whether only widening conversions are allowed (Option Strict is on). 자세한 내용은 축소 변환합니다.For more information, see Narrowing conversions.

데이터 형식은 group 컬렉션 또는 열거할 수 있는 배열을 참조 하는 참조 형식 이어야 합니다.The data type of group must be a reference type that refers to a collection or an array that's enumerable. 즉 가장 일반적으로 group 구현 하는 개체를 참조 하는 IEnumerable 의 인터페이스는 System.Collections 네임 스페이스 또는 IEnumerable<T> 의 인터페이스는 System.Collections.Generic 네임 스페이스입니다.Most commonly this means that group refers to an object that implements the IEnumerable interface of the System.Collections namespace or the IEnumerable<T> interface of the System.Collections.Generic namespace. System.Collections.IEnumerable 정의 된 GetEnumerator 컬렉션에 대 한 열거자 개체를 반환 하는 메서드.System.Collections.IEnumerable defines the GetEnumerator method, which returns an enumerator object for the collection. 열거자 개체를 구현 하는 System.Collections.IEnumerator 의 인터페이스를 System.Collections 네임 스페이스 노출 합니다 Current 속성 및 ResetMoveNext 메서드.The enumerator object implements the System.Collections.IEnumerator interface of the System.Collections namespace and exposes the Current property and the Reset and MoveNext methods. Visual Basic을 사용 하 여 컬렉션을 순회를 이러한.Visual Basic uses these to traverse the collection.

축소 변환Narrowing Conversions

Option Strict 로 설정 된 On, 축소 변환에는 일반적으로 컴파일러 오류가 발생 합니다.When Option Strict is set to On, narrowing conversions ordinarily cause compiler errors. 그러나에 For Each 문을 요소에서 변환 groupelement 계산 되 고 런타임에 수행 축소 변환으로 인해 발생 하는 컴파일러 오류가 표시 되지 않습니다.In a For Each statement, however, conversions from the elements in group to element are evaluated and performed at run time, and compiler errors caused by narrowing conversions are suppressed.

다음 예에서 할당 m 에 대 한 초기 값으로 n 때 컴파일되지 않습니다 Option Strict 있기 때문에 변환을 LongInteger 축소 변환입니다.In the following example, the assignment of m as the initial value for n doesn't compile when Option Strict is on because the conversion of a Long to an Integer is a narrowing conversion. For Each 문, 컴파일러 오류가 없는 것 인데, 할당 하는 경우에 보고 number 에서 동일한 변환을 수행 해야 LongInteger입니다.In the For Each statement, however, no compiler error is reported, even though the assignment to number requires the same conversion from Long to Integer. For Each 를 많은 수를 포함 하는 문에서 런타임 오류가 발생 하는 경우 ToInteger 많은 경우에 적용 됩니다.In the For Each statement that contains a large number, a run-time error occurs when ToInteger is applied to the large number.

Option Strict On

Module Module1
    Sub Main()
        ' The assignment of m to n causes a compiler error when 
        ' Option Strict is on.
        Dim m As Long = 987
        'Dim n As Integer = m

        ' The For Each loop requires the same conversion but
        ' causes no errors, even when Option Strict is on.
        For Each number As Integer In New Long() {45, 3, 987}
            Console.Write(number & " ")
        ' Output: 45 3 987

        ' Here a run-time error is raised because 9876543210
        ' is too large for type Integer.
        'For Each number As Integer In New Long() {45, 3, 9876543210}
        '    Console.Write(number & " ")

    End Sub
End Module

IEnumerator 호출IEnumerator Calls

경우 실행을 For Each... Next 루프가 시작, Visual Basic 확인 group 유효한 컬렉션 개체를 참조 합니다.When execution of a For Each...Next loop starts, Visual Basic verifies that group refers to a valid collection object. 그렇지 않은 경우 예외가 throw 됩니다.If not, it throws an exception. 를 호출 합니다 MoveNext 메서드 및 Current 첫 번째 요소를 반환 하는 열거자 개체의 속성입니다.Otherwise, it calls the MoveNext method and the Current property of the enumerator object to return the first element. 경우 MoveNext 있음을 다음 요소가 없는 즉, 컬렉션이 비어 합니다 For Each 루프가 종료 되 고 다음 문으로 전달 제어를 Next 문입니다.If MoveNext indicates that there is no next element, that is, if the collection is empty, the For Each loop stops and control passes to the statement following the Next statement. 그렇지 않은 경우 Visual Basic 설정 element 첫 번째 요소 및 문 블록을 실행 합니다.Otherwise, Visual Basic sets element to the first element and runs the statement block.

Visual Basic 발생할 때마다 합니다 Next 문을 반환 합니다 For Each 문.Each time Visual Basic encounters the Next statement, it returns to the For Each statement. 다시 호출한 MoveNextCurrent 및 반환 하 고 다음 요소인 다시 해당 블록을 실행 또는 결과 따라 루프를 중지 합니다.Again it calls MoveNext and Current to return the next element, and again it either runs the block or stops the loop depending on the result. 될 때까지이 프로세스가 계속 됩니다 MoveNext 다음 요소가 있는지를 나타내는 또는 Exit For 문이 있습니다.This process continues until MoveNext indicates that there is no next element or an Exit For statement is encountered.

컬렉션을 수정 합니다.Modifying the Collection. 반환 하는 열거자 개체 GetEnumerator 일반적으로 선택할 수는 없습니다 추가, 삭제, 바꾸기 또는 모든 요소를 다시 정렬 하 여 컬렉션을 변경 합니다.The enumerator object returned by GetEnumerator normally doesn't let you change the collection by adding, deleting, replacing, or reordering any elements. 초기화 한 후에 컬렉션을 변경한 경우를 For Each... Next 루프 열거자 개체를 무효화 하 고 다음 요소에 액세스 하려고 하면는 InvalidOperationException 예외입니다.If you change the collection after you have initiated a For Each...Next loop, the enumerator object becomes invalid, and the next attempt to access an element causes an InvalidOperationException exception.

그러나 수정이 차단은 Visual Basic에서 아니라 구현 대신에 의해 결정 되지 않습니다는는 IEnumerable 인터페이스입니다.However, this blocking of modification isn't determined by Visual Basic, but rather by the implementation of the IEnumerable interface. 구현 하는 것이 불가능 IEnumerable 방식으로 반복 하는 동안 수정할 수 있도록 합니다.It is possible to implement IEnumerable in a way that allows for modification during iteration. 이러한 동적 수정을 수행를 고려 하는 경우의 특징을 이해 하는 있는지 확인 합니다 IEnumerable 구현을 사용 하는 컬렉션에 있습니다.If you are considering doing such dynamic modification, make sure that you understand the characteristics of the IEnumerable implementation on the collection you are using.

컬렉션 요소를 수정 합니다.Modifying Collection Elements. 합니다 Current 열거자 개체의 속성은 ReadOnly, 각 컬렉션 요소의 로컬 복사본을 반환 합니다.The Current property of the enumerator object is ReadOnly, and it returns a local copy of each collection element. 즉, 요소 자체를 수정할 수 없음을에 For Each... Next 루프입니다.This means that you cannot modify the elements themselves in a For Each...Next loop. 수정 내용을에서 로컬 복사본에만 영향을 줍니다 Current 다시 기본 컬렉션에 반영 되지 않습니다.Any modification you make affects only the local copy from Current and isn't reflected back into the underlying collection. 그러나 요소가 참조 형식이 면 가리키는 인스턴스 멤버를 수정할 수 있습니다.However, if an element is a reference type, you can modify the members of the instance to which it points. 다음 예제를 수정 합니다 BackColor 의 각 멤버 thisControl 요소입니다.The following example modifies the BackColor member of each thisControl element. 그러나 수정할 수 없는 thisControl 자체입니다.You cannot, however, modify thisControl itself.

Sub lightBlueBackground(ByVal thisForm As System.Windows.Forms.Form)  
    For Each thisControl As System.Windows.Forms.Control In thisForm.Controls  
        thisControl.BackColor = System.Drawing.Color.LightBlue  
    Next thisControl  
End Sub  

앞의 예제를 수정할 수는 BackColor 각 멤버 thisControl 요소를 수정할 수 없습니다 있지만 thisControl 자체입니다.The previous example can modify the BackColor member of each thisControl element, although it cannot modify thisControl itself.

통과 하는 배열입니다.Traversing Arrays. 때문에 Array 클래스가 구현 하는 IEnumerable 인터페이스를 모든 배열 노출는 GetEnumerator 메서드.Because the Array class implements the IEnumerable interface, all arrays expose the GetEnumerator method. 즉, 배열을 반복할 수 있는지를 For Each... Next 루프입니다.This means that you can iterate through an array with a For Each...Next loop. 그러나 배열 요소를 읽을 수 있습니다.However, you can only read the array elements. 변경할 수 있습니다.You cannot change them.


다음 예에서는 C:\ 디렉터리에 있는 모든 폴더를 사용 하 여 나열 된 DirectoryInfo 클래스입니다.The following example lists all the folders in the C:\ directory by using the DirectoryInfo class.

Dim dInfo As New System.IO.DirectoryInfo("c:\")
For Each dir As System.IO.DirectoryInfo In dInfo.GetDirectories()


다음 예제에서는 컬렉션 정렬 절차를 보여 줍니다.The following example illustrates a procedure for sorting a collection. 예제 인스턴스를 정렬 한 Car 에 저장 되는 클래스를 List<T>.The example sorts instances of a Car class that are stored in a List<T>. Car 클래스는 CompareTo 메서드가 구현되어야 하는 IComparable<T> 인터페이스를 구현합니다.The Car class implements the IComparable<T> interface, which requires that the CompareTo method be implemented.

각 호출에는 CompareTo 메서드 정렬에 사용 되는 단일 비교가 수행 됩니다.Each call to the CompareTo method makes a single comparison that's used for sorting. CompareTo 메서드의 사용자 작성 코드는 다른 개체와 현재 개체의 각 비교에 대한 값을 반환합니다.User-written code in the CompareTo method returns a value for each comparison of the current object with another object. 현재 개체가 다른 개체보다 작으면 반환되는 값이 0보다 작고, 현재 개체가 다른 개체보다 크면 0보다 크고, 같으면 0입니다.The value returned is less than zero if the current object is less than the other object, greater than zero if the current object is greater than the other object, and zero if they are equal. 이렇게 하면 보다 큼, 보다 작음 및 같음에 대한 조건을 코드에서 정의할 수 있습니다.This enables you to define in code the criteria for greater than, less than, and equal.

ListCars 메서드에서 cars.Sort() 문은 목록을 정렬합니다.In the ListCars method, the cars.Sort() statement sorts the list. List<T>Sort 메서드를 호출하면 ListCar 개체에 대해 CompareTo 메서드가 자동으로 호출됩니다.This call to the Sort method of the List<T> causes the CompareTo method to be called automatically for the Car objects in the List.

Public Sub ListCars()

    ' Create some new cars.
    Dim cars As New List(Of Car) From
        New Car With {.Name = "car1", .Color = "blue", .Speed = 20},
        New Car With {.Name = "car2", .Color = "red", .Speed = 50},
        New Car With {.Name = "car3", .Color = "green", .Speed = 10},
        New Car With {.Name = "car4", .Color = "blue", .Speed = 50},
        New Car With {.Name = "car5", .Color = "blue", .Speed = 30},
        New Car With {.Name = "car6", .Color = "red", .Speed = 60},
        New Car With {.Name = "car7", .Color = "green", .Speed = 50}

    ' Sort the cars by color alphabetically, and then by speed
    ' in descending order.

    ' View all of the cars.
    For Each thisCar As Car In cars
        Debug.Write(thisCar.Color.PadRight(5) & " ")
        Debug.Write(thisCar.Speed.ToString & " ")

    ' Output:
    '  blue  50 car4
    '  blue  30 car5
    '  blue  20 car1
    '  green 50 car7
    '  green 10 car3
    '  red   60 car6
    '  red   50 car2
End Sub

Public Class Car
    Implements IComparable(Of Car)

    Public Property Name As String
    Public Property Speed As Integer
    Public Property Color As String

    Public Function CompareTo(ByVal other As Car) As Integer _
        Implements System.IComparable(Of Car).CompareTo
        ' A call to this method makes a single comparison that is
        ' used for sorting.

        ' Determine the relative order of the objects being compared.
        ' Sort by color alphabetically, and then by speed in
        ' descending order.

        ' Compare the colors.
        Dim compare As Integer
        compare = String.Compare(Me.Color, other.Color, True)

        ' If the colors are the same, compare the speeds.
        If compare = 0 Then
            compare = Me.Speed.CompareTo(other.Speed)

            ' Use descending order for speed.
            compare = -compare
        End If

        Return compare
    End Function
End Class

참고자료See also