[VB.NET] ListBox / ComboBox

 

ListBox

Private Sub addBtn_Click(sender As Object, e As EventArgs) Handles addBtn.Click
    ListBox1.Items.Add(TextBox1.Text)
    TextBox1.Text = ""
    TextBox1.Focus()
End Sub

Private Sub deleteBtn_Click(sender As Object, e As EventArgs) Handles deleteBtn.Click
    ListBox1.Items.Remove(ListBox1.Text)
End Sub

 

 

ComboBox

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
    With ComboBox1
        .Items.Add("바나나")
        .Items.Add("사과")
        .Items.Add("딸기")
        .Items.Add("샤인 머스켓")
        .Items.Add("수박")
        .Items.Add("귤")
        .Text = .Items(0)       ' 기본 선택은 바나나
    End With
End Sub


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Label3.Text = ComboBox1.Text & "을(를) 선택하셨습니다"
End Sub