VB.NET在列表中搜索对象，并将找到的对象的值解析到数组中

Imports System.Collections.Generic

Module Module1
    Sub Main()
        ' 创建一个列表并添加对象
        Dim myList As New List(Of MyClass)()
        myList.Add(New MyClass("Object1", 10))
        myList.Add(New MyClass("Object2", 20))
        myList.Add(New MyClass("Object3", 30))

        ' 搜索列表中的对象
        Dim searchObject As String = "Object2"
        Dim resultArray As New List(Of Integer)()

        For Each obj As MyClass In myList
            If obj.Name = searchObject Then
                resultArray.Add(obj.Value)
            End If
        Next

        ' 输出结果
        Console.WriteLine("找到的对象的值：")
        For Each value As Integer In resultArray
            Console.WriteLine(value)
        Next

        Console.ReadLine()
    End Sub

    ' 自定义的类
    Class MyClass
        Public Property Name As String
        Public Property Value As Integer

        Public Sub New(name As String, value As Integer)
            Me.Name = name
            Me.Value = value
        End Sub
    End Class
End Module