CheckedListBox를 이용한 Items 추가 삭제
*
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For ii = 0 To CheckedListBox1.CheckedItems.Count
ListBox1.Items.Add(CheckedListBox1.CheckedItems(ii))
ii += 1
Next
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()

CheckedListBox1.Items.Add(TextBox1.Text)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

For jj = 0 To CheckedListBox1.CheckedItems.Count
CheckedListBox1.Items.RemoveAt(jj)

jj += 1
Next


End Sub
End Class

checkedlistbox.PNG

 CheckedListBox의 Items을 추가 하고 선택된 항목을 삭제 할수 있는 프로그램

 

 

에러 부분을 수정하여 댓글 남기기

이 게시물을

댓글'1'
V닉맨
  • 2013.12.17
  • 수정: 2013.12.17 08:45:10

*선택한 항목이 삭제가 안되는 오류

*삭제 이벤트를 다음과 같이 수정한다

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim aa As Integer
        aa = CheckedListBox1.SelectedIndex
        CheckedListBox1.Items.RemoveAt(aa)

    End Sub

이 댓글을

공유하기

SEARCH

MENU NAVIGATION