2

すべての項目が整数、文字列、ビットマップである2つの別個のリストと、すべての項目が整数、文字列文字列である1つのリストが必要です。しかし、これを行う方法や、どこを見ればよいのかさえわかりません。カスタムオブジェクトとカスタムオブジェクトリストをグーグルで検索しました。私がやろうとしているのはこれです。カスタムObject1は整数、文字列、ビットマップですカスタムObject2は整数、文字列、文字列です

1つのスレッドで、List1（Of Object1）にアイテムを追加して処理し、結果をList2（Of Object2）に追加しますが、他のスレッドからリストを見て、私にだけ与えることができる必要があります整数=（私のスレッドID）の項目、これは可能ですか？ヘルプ、またはこのリクエストに関連する情報へのリンクさえも役に立ちますか？

4

2 に答える 2

3

次のようにします。

Public Class Type1
    Private _ThreadID As Integer
    Public Property ThreadID() As Integer
       Get
           Return _ThreadID
       End Get
       Set
           _ThreadID = Value
       End Set
    End Property

    Private _MyString As String
    Public Property MyString() as String
        Get
            Return _MyString
        End Get
        Set 
            _MyString = Value
        End Set
    End Property

    Private _MyBitmap As Bitmap
    Public Property MyBitmap As Bitmap
        Get
            Return _MyBitmap
        End Get
        Set
            _MyBitmap = Value
        End Set
    End Property
 End Class

.

Dim list1 As New List(Of Type1)()
''#  ... Add some items to the list...

''# List items with a given thread id:
Dim SomeThreadID As Integer = GetMyThreadID()
list1.Where(Function(o) o.ThreadID = SomeThreadID)

もちろん、より意味のある名前を使用する必要があります。マルチスレッドの側面については、Monitorクラスを使用して、1 つのスレッドが使用している間、すべてのスレッドでリストをロックすることを検討してください。

于 2010-01-24T04:35:28.063 に答える
0 
     Private Class Object1
        Public Property int() As Integer
            Get
                Return _int
            End Get
            Set(ByVal value As Integer)
                _int = value
            End Set
        End Property

        Public Property str() As String
            Get
                Return _str
            End Get
            Set(ByVal value As String)
                _str = value
            End Set
        End Property

        Public Property bmp() As Bitmap
            Get
                Return _bmp
            End Get
            Set(ByVal value As Bitmap)
                _bmp = value
            End Set
        End Property

        Friend _int As Integer
        Friend _str As String
        Friend _bmp As Bitmap

        Public Sub New(ByVal int As Integer, ByVal str As String, ByVal bmp as Bitmap)
            _int = int
            _str = str
            _bmp = bmp
        End Sub
    End Class

その後、次のように初期化できます...

Dim obj1 as List (Of Object1)
obj1.Add(New Object1(myInt, myStr, myBmp))
于 2010-01-24T04:30:34.750 に答える