vb.net - VB.NET 在放入 ListBox 后删除 ComboBox 中的项目

Question

选择并放入 listBox 后，如何删除组合框中的项目。

这是我的代码。请帮我。

Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class frmAdvancePayment


    Private Sub frmAdvancePayment_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lstBillNum.Items.Clear()
        Dim connection_string As String = "Data Source=.\sqlexpress;Initial Catalog=CreditAndCollection;Integrated Security=True"
        Dim connection As New SqlConnection(connection_string)
        connection.Open()
        Dim sql As String = "select BillNum from tblBillingSched where Status ='Unpaid'"
        Dim da As New SqlDataAdapter(sql, connection_string)
        Dim dt As New DataTable
        da.Fill(dt)
        cmbBillNum.DataSource = dt
        cmbBillNum.DisplayMember = "BillNum"
        cmbBillNum.ValueMember = "BillNum"
        connection.Close()
    End Sub



    Private Sub btnGet_Click(sender As Object, e As EventArgs) Handles btnGet.Click
        lstBillNum.Items.Add(cmbBillNum.SelectedValue)
    End Sub

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
        lstBillNum.Items.Clear()
    End Sub

End Class

Answer 1

这是你所期望的吗？

   Private Sub ComboBox1_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
           Dim index As Integer = ComboBox1.SelectedIndex
           ListBox1.Items.Add(ComboBox1.Items(index))
           ComboBox1.Items.RemoveAt(index)
       End Sub