listbox控件事件实例

代码如下：

乐博网lob.cn提示：调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista

Public Class listbox
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Add(InputBox("乐博网提示：输入想要添加的项"))
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Remove(ListBox1.SelectedItem)
    End Sub
    Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        MessageBox.Show("乐博网提示：你选中的是第" & ListBox1.SelectedIndex + 1 & "项" & ListBox1.SelectedItem)
    End Sub
End Class