본문 바로가기
VB.NET&MSSQL

VB.NET 콤보박스 CHECKBOX 로 다중선택구현하기

by TobeDalin 2020. 7. 17.
반응형

콤보박스에 CHECKBOX 넣기

리스트박스에 CHECKBOX 넣기

CHECKEDLISTBOX 다중선택 구현

LISTVIEW CHECKBOX 넣기

 

VB.NET CheckedListBox 예제

고객님께서 원하시는 기능은 winform 이지만 웹에서 흔히 쓰는 다중 선택 콤보 박스 입니다.

 

vb.net winform 에서 구현해 보겠습니다.

 `

컨트롤 구현 준비물

1. panel 1개를 가져다 놓습니다.   id : PAN_CO_SECTION

2. 판넬 위에 checkedListBox 를 놓습니다.  : CKL_CO_SECTION2

3. textbox 1개 : TXT_CO_SECTION

4. botton 1개 : BTN_CO_SECTION

 

 

 

구현 시나리오

1. 버튼을 클릭하면, 판넬을 보여주고, 또 클릭하면 숨기기

2. 체크박스에 체크하고 버튼을 클릭하면 체크한 item values를 text box 에 표시하기.

 

소스

 

CKL_CO_SECTION2.Items.Add("ALL")

 

For Each item As String In PROD_COMPANY.Values

CKL_CO_SECTION2.Items.Add(item)

Next

 

Dim CO_SECTION_CHECK_MODE As String = "FALSE"

 

Private Sub BTN_CO_SECTION_Click(sender As Object, e As EventArgs) Handles BTN_CO_SECTION.Click

   If CO_SECTION_CHECK_MODE = "FALSE" Then

      CO_SECTION_CHECK_MODE = "TRUE"

      PAN_CO_SECTION.Visible = True

    Else

      CO_SECTION_CHECK_MODE = "FALSE"

      PAN_CO_SECTION.Visible = False

      For Each itemChecked As String In CKL_CO_SECTION2.CheckedItems

           TXT_CO_SECTION.Text += itemChecked.ToString() + ","

      Next

          TXT_CO_SECTION.Text =TXT_CO_SECTION.Text.Substring(0, Len(TXT_CO_SECTION.Text) - 1) 

    End If

End Sub

 

질문1 : CHECKEDLISTBOX는 왜 더블클릭을 해야 체크가 되나요? 다른 방법은 없나요? 클릭하면 체크되게 할 수 있나요?

속성탭에서 CheckOnClick = True 로 하면 클릭했을때 체크됩니다.

반응형

'VB.NET&MSSQL' 카테고리의 다른 글

[MSSQL] 숫자인지 문자인지 확인  (0) 2021.10.16
IIS LOG FILE 삭제 방법  (0) 2021.08.14
VB.NET 관리자 권한으로 실행하기  (0) 2020.06.26
VB.NET EXCEL PageSetup 속성  (0) 2020.05.21
[MSSQL] 날짜 타입 변경  (0) 2020.04.27

댓글