（新招儿） 巧妙使用ComboBox.Items的Add方法添加列表项

最近一个很偶然的机会，知道了还有这样一个类，可以专门用来向列表控件添加列表项，这个类就是 DictionaryEntry ，关于这个类的使用方法及其相关介绍，你可以在你的MSDN中找到，如果您没有安装MSDN，请点击这里

 

        Do While Reader.Read
                    ComboBox1.Items.Add(New DictionaryEntry(Reader.Item("显示字段"), Reader.Item("值字段")))
        Loop
        ComboBox1.DisplayMember = "Key"
        ComboBox1.ValueMember = "Value"

 

在使用DictionaryEntry对象向列表控件添加数据后， 如果要得到被选定项的“显示的文本”或“项的值”，那么，请使用如下的写法，

Dim strValue As String = CType(ComboBox1.SelectedItem, DictionaryEntry).Value
Dim strKey As String = CType(ComboBox1.SelectedItem, DictionaryEntry).Key