==============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))
Next
'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============================