Cek Checkedlistbox tercentang di vb.Net

Untuk mengambil index dan mengambil itemname pada checklistbox yang tercentang : 

Private Sub WhatIsChecked_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WhatIsChecked.Click
    ' menampilkan item name dan index pada checkedlistbox yang tercentang.
    Dim indexChecked As Integer
    Dim itemChecked As Object
    Const quote As String = """"

    ' pertama mengambilan index.
    For Each indexChecked In CheckedListBox1.CheckedIndices
        MessageBox.Show("Index#: " + indexChecked.ToString() + ", is checked. Checked state is:" + _
                        CheckedListBox1.GetItemCheckState(indexChecked).ToString() + ".")
    Next

    ' Selanjutnya mengambil itemname.
    For Each itemChecked In CheckedListBox1.CheckedItems

        MessageBox.Show("Item with title: " + quote + itemChecked.ToString() + quote + _
                        ", is checked. Checked state is: " + _
                        CheckedListBox1.GetItemCheckState(CheckedListBox1.Items.IndexOf(itemChecked)).ToString() + ".")
    Next

End Sub

Share This:

Facebook

Twitter

Google Plus

Pinterest

Linkedin