VB里的List1控件

[娇柔的初音]

怎么样才可以单击里面选项的时侯出现几个选项，第一个有选中 所以会出现这个可以打勾的 第二个没有打勾 所以不会出现

[娇柔的初音]

附上图做参考

[bigwind99]

问题不能理解，楼主说清楚一些

[娇柔的初音]

像百度云传上的视频一样，鼠标指上去的时侯会出现打勾的选项或者是点击播放。就像百度云自己传上的视频自己看的那样 ，附上图了 不知道怎么样的话可以看下百度云

[of123]

只是想演示 CheckBox 类型的 ListBox 使用，没想让你学复制。 请原谅我的愚昧，你的问题我还是没看懂。

[别让人生输给心情]

[娇柔的初音]

这不怪你 要怪只能怪我自己说不清楚要什么样的

[娇柔的初音]

其实我要的就是这样的，鼠标一指到选项的时侯后面就会显示几个对选项做选择的选项，可以删除什么的，我有用把它圈起来哦 看一下就懂了

[clear_zero]

这个阿，vb6好像没有系统的控件能达到 .net里面datagridview你看看，不成买一个第三方控件

[娇柔的初音]

呜呜，第三方控件的话 谁有呀 发给我好不好

[hpygzhx520]

自制控件了，用几个现有控件合成

[of123]

ListBox 的 Style 属性可以在编辑界面下设置成 1 - CheckBox。下例中，将 List1 如此设置：

Option Explicit

Private Sub Command1_Click()
Dim i As Integer

List2.Clear
For i = 0 To List1.ListCount - 1
    If List1.Selected(i) Then List2.AddItem List1.List(i)
Next i
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 24
    List1.AddItem i
Next i
End Sub

选中 List1 中的若干列表项，单击 Command1，可将其复制到 List2。

[娇柔的初音]

我要的不是将列表一的复制到列表二，而是要可以给视频打勾的功能 打勾的就采用控件Check1 单击选项的时侯就会出现那个选项的打勾，然后可以使用删除的代码把那个选项删除，多选多删