Public Class Form3
Private Sub 载入数据_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 载入数据.Click
Dim i As Integer
For i = 1 To 10
CheckedListBox1.Items.Add(i)
Next
End Sub
Private Sub 显示选中_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 显示选中.Click
Dim i As Integer
For i = 0 To CheckedListBox1.Items.Count - 1
If CheckedListBox1.GetItemChecked(i) Then
MsgBox(CheckedListBox1.Items(i))
End If
Next
End Sub
End Class
精典:
显示选中的项目
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For i = 0 To CheckedListBox1.CheckedItems.Count - 1
MsgBox(CheckedListBox1.CheckedItems(i))
Next
End Sub
分享到:
相关推荐
10.vb.net的CheckedListBox控件 11.vb.net的Combobox控件 12.vb.net的ListView控件 13.vb.net的TreeView控件 14.vb.net的ImageList控件 15.vb.net的Timer控件 16.vb.net的HScrollBar和VScrollBar控件 17.vb.net的...
10.vb.net的CheckedListBox控件 11.vb.net的Combobox控件 12.vb.net的ListView控件 13.vb.net的TreeView控件 14.vb.net的ImageList控件 15.vb.net的Timer控件 16.vb.net的HScrollBar和VScrollBar控件 17.vb.net的...