vb.net的CheckedListBox

Question

vb.net的CheckListBox控件，当焦点迁移到该控件的时候，默认没有选中状态，所以我在Enter事件中设置了控件得Slectedindex = 0，就可以实现，但是现在有个问题，当控件没有焦点的时候，我点击该控件，我点击第二条数据，但是结果返回的却是第一条数据内容，就是因为我在Enter事件中设置了SelectedIndex = 0。如果不使用Enter事件，如何让控件在获得焦点的时候就有选中状态，不是勾选内容，并且点击的时候返回的内容还是点击的那条内容呢

Answer 1

直接在GotFocus事件里面检测有没有选中项，让一个没有选中项就把第一项目设为选中项。

Private Sub CheckListBox1_GotFocus(sender As Object, e As EventArgs) Handles CheckListBox1.GotFocus
    If CheckListBox1.CheckedItems.Count = 0 AndAlso CheckListBox1.Items.Count > 0 Then
        CheckListBox1.SetItemChecked(0, True)
    End If
End Sub