ListBox使用（1）

 1.沒有數據綁定的添加和刪除

....

' 將選中的行由lbxAttender移到lbxAttender

 For i As Integer = 0 To lbxAttender.SelectedItems.Count - 1

            lbxPreparer.Items.Add(lbxAttender.SelectedItems.Item(i))

        Next

 '在lbxAttender裏刪除

        While lbxAttender.SelectedItems.Count > 0

            lbxAttender.Items.Remove(lbxAttender.SelectedItems.Item(0))

        End While

......

2.有數據綁定的添加和刪除

 ...

For i As Integer = 0 To lbxPreparer.SelectedItems.Count - 1



            CType(lbxAttender.DataSource, DataTable).ImportRow(CType(lbxPreparer.DataSource, DataTable).Rows.Item(lbxPreparer.Items.IndexOf(lbxPreparer.SelectedItems.Item(i))))




        Dim selectIdxs As ListBox.SelectedObjectCollection = lbxPreparer.SelectedItems

        For i As Integer = 0 To selectIdxs.Count - 1
            CType(lbxPreparer.DataSource, DataTable).Rows.RemoveAt(lbxPreparer.Items.IndexOf(selectIdxs.Item(0)))
        Next

.....

<iframe id="gnotes-notemagic" style="DISPLAY: block; Z-INDEX: 500; RIGHT: 100px; WIDTH: 17px; POSITION: absolute; TOP: 201px; HEIGHT: 22px; opacity: 0.7" src="http://www.google.com/notebook/static_files/blank.html" frameborder="0"></iframe>