Visual Basic 리스트박스, 콤보박스

종류	이름	설명
속성	Items	리스트 박스에 나타날 항목 추가/제거
	SelectionMode	여러 항목의 선택 가능 여부 설정 One : 하나 선택 MultiSimple : 마우스 클릭하면 다중 선택, 재선택은 선택 해제 됨 MultiExtended : 마우스 드래그/ ctrl이나 shift 클릭시 다중선택
	Sorted	원하는 순으로 정렬 true : 오름차순 정렬 / false : 입력순대로 정렬
	Enabled	리스트박스 사용 여부 설정 true : 사용 / false : 사용불가
메서드	Add	목록에 문자열 추가
	Remove	인덱스 번호 사용해 항목 삭제
	Refresh	목록 최근 입력한 항목으로 수정
	Clear	모든 목록 삭제

 

리스트박스 예제(1)

순서대로 one MultiSimple MultiExtended

리스트박스 예제(2)

아래 코드로 실행했을때 이런 폼이 생성되었다.

아이러니한건 remove를 사용했는데 왜 listbox1에는 사라지지 않는것인가..

listbox2에 추가된 목록들은 잘 작동되는데..

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("팽이버섯")
        ListBox1.Items.Add("참치")
        ListBox1.Items.Add("상추")
    End Sub

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

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ListBox2.Items.Add(ListBox1.Text)
        ListBox1.Items.Remove(ListBox2.Text)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox2.Items.Remove(ListBox1.Text)
        ListBox1.Items.Add(ListBox2.Text)
    End Sub
End Class

 

 

속성	설명
DropDownStyle	콤보박스 형태 설정 DropDown : 일반적인 콤보박스 생성. 드롭다운 목록을 이용하여 항목 선택/직접입력가능 Simple : 일반 텍스트박스처럼 보임 DropDownList : 직접 입력하지 못하고 드롭다운 목록에서만 선택

콤보박스 예제

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With ComboBox1
            .Items.Add("내일")
            .Items.Add("오늘")
            .Items.Add("모래")
            .Items.Add("어제")
            .Text = .Items(1)
        End With
        With ComboBox2
            .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
        MsgBox(ComboBox1.Text & TextBox1.Text & "날씨는" & ComboBox2.Text & "입니다 ")
    End Sub
End Class