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)