2

問題があります... containsvalue の条件が true の場合、文字列辞書キー値のリストに入れようとしています:

しかし、これは正しくありません:(

ここにコードがあります：

Private listID As New List(Of String)                       ' declaration of list
Private dictionaryID As New Dictionary(Of String, Integer)  ' declaration of dictionary

  'put a keys and values to dictionary
  dictionaryID.Add("first", 1)
  dictionaryID.Add("second", 2)
  dictionaryID.Add("first1", 1)


    If dictionaryID.ContainsValue(1) Then                 ' if value of dictinary is 1
        Dim pair As KeyValuePair(Of String, Integer)
        listID.Clear()
        For Each pair In dictionaryID
            listID.Add(pair.Key)
        Next
    End If

そして今、リストには 2 つの要素が必要です... -> "first" と "first1"

手伝って頂けますか？どうもありがとうございました！

4

2 に答える 2

1

私のVB.Netは少し錆びていますが、値が1かどうかに関係なく、すべてを追加しているようです。

Private listID As New List(Of String)                       ' declaration of list
Private dictionaryID As New Dictionary(Of String, Integer)  ' declaration of dictionary

  'put a keys and values to dictionary
  dictionaryID.Add("first", 1)
  dictionaryID.Add("second", 2)
  dictionaryID.Add("first1", 1)


    If dictionaryID.ContainsValue(1) Then                 ' if value of dictinary is 1
        Dim pair As KeyValuePair(Of String, Integer)
        listID.Clear()
        For Each pair In dictionaryID
            If pair.Value = 1 Then
                listID.Add(pair.Key)
            End If
        Next
    End If
于 2012-12-20T21:09:01.090 に答える