[비주얼베이직] 콤보박스(Combobox) 사용하기

이번 강의에는 콤보박스를 이용해서 프로그램을 작성해보겠습니다

이렇게 디자인해주세요

콤보박스1을 클릭후 속성창 List 부분에 목록을 클릭해서 CPU, HDD, RAM 을 추가해주세요

콤보1을 눌르면 리스트에 추가한것들이 뜨지요?

콤보1을 더블클릭하신후 Click으로 바꿔주세요


소스

Private Sub Combo1_Click()
Combo2.Clear                        '콤보박스2의 모든 항목을 삭제한다
If Combo1.Text = "CPU" Then   '만약 콤보1 CPU를 클릭했을때
Combo2.AddItem "펜티엄"        '콤보2 항목선택으로 표시된다
Combo2.AddItem "펜티엄2"
Combo2.AddItem "펜티엄3"
ElseIf Combo1.Text = "HDD" Then   
Combo2.AddItem "8.4G"
Combo2.AddItem "13G"
Combo2.AddItem "17G"
ElseIf Combo1.Text = "RAM" Then
Combo2.AddItem "64M"
Combo2.AddItem "128M"
End If
End sub

Private Sub Command1_Click()     '주문확인버튼
Label4.Caption = "종류 : " & Combo1.Text & Chr(10) & Chr(13)
Label4.Caption = Label4.Caption & "항목 : " & Combo2.Text & Chr(10) & Chr(13)
Label4.Caption = Label4.Caption & "수량 : " & Combo3.Text
End Sub

Private Sub Command2_Click()   '초기화버튼
Combo2.Clear
Label4.Caption = ""
End Sub

Private Sub Command3_Click()   '종료버튼
Unload Me        '폼을 종료한다
End Sub

Private Sub Form_Load()        '폼이 실행될때
Combo3.Clear         
For k = 1 To 20            1 ~ 20
Combo3.AddItem k       '콤보박스3 에 표시된다
Next
End Sub

콤보박스 예제

콤보박스 예제.zip

콤보박스 list 추가안하고 하는 다른방법

콤보박스를 하나 추가해줍시다

폼로드부분에

Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
End Sub

작성해보세요

완성 됬습니다.


이상으로 [비주얼베이직] 콤보박스(Combobox) 사용하기 포스팅을 마치겠습니다.