键值对纵一苇之所如

==============C#=====================
string[] v = { "01", "02" };
      string[] txt = { "测试一", "测试二" };
      Dictionary<string, string> dic = new Dictionary<string, string>();
      for (int i = 0; i < 2; i++)
      {
          dic.Add(v[i], txt[i]);
      }
      BindingSource bs = new BindingSource();
      bs.DataSource = dic;
      checkedListBox1.DataSource = bs;
      checkedListBox1.DisplayMember = "Value";
      checkedListBox1.ValueMember = "Key";

==============C#=====================

======================VB+===============
Dim v() As String = {"01", "02"}
        Dim txt() As String = {"测试一", "测试二"}
        'Dim dic                   '创建一个变量。
        'dic = CreateObject("Scripting.Dictionary")
        'dic.Add("a", "Athens")     '添加键和项目。

        Dim bs As BindingSource = New BindingSource()
        Dim dic As Dictionary(Of String, String) = New Dictionary(Of String, String)()

        For i = 0 To 1

dic.Add(v(i), txt(i))

        'BindingSource(bs = New BindingSource())
        bs.DataSource = dic
        CheckedListBox1.DataSource = bs
        CheckedListBox1.DisplayMember = "Value"
        CheckedListBox1.ValueMember = "Key"
For Each item As KeyValuePair(Of String, String) In CheckedListBox1.CheckedItems
                MsgBox(item.Key)
            Next

======================VB============================

键值对 纵一苇之所如

键值对纵一苇之所如