vb2010中ComboBox的item用法

以前使用combobox都是直接用items.add添加一些字符串，看提示add方法可以添加对象

1.比如使用point对象，具有x,y属性，使用属性x作为显示文字

ComboBox1.DisplayMember = "x"
ComboBox1.Items.Add(New Point(100, 200))

2.使用DictionaryEntry对象，具有key/value属性

ComboBox1.DisplayMember = "key"
For i = 1 To 5
    Dim s = String.Format("第{0}样方", {i.ToString})
    Dim p = New DictionaryEntry(s, i.ToString)
    ComboBox1.Items.Add(p)
Next
ComboBox1.DisplayMember = "key"

3.如何获取选取值，首先判断selectedItem是否为空，否则直接访问selectedItem的属性

If IsNothing(ComboBox1.SelectedItem) Then
    MsgBox("请选择样方")
    Exit Sub
End If
MsgBox(ComboBox1.SelectedItem.y)