VB listview如何实现多列checkbox的效果？

[welcome520]

本人由于要做一个权限设置功能，需要多列checkbox来对应选择。

我看到有一个VB做的软件就实现了多列复选框的功能，具体是用什么表格控件，不清楚，好像是listview吧，

在网上找了很多资料，也没看到一个可用的，不知道有没有能人搞出来了，告诉大家吧。

做权限设置功能，大家如果有另外的办法，也希望有人说说怎么弄。

谢谢了

[of123]

其实不必拘泥于哪一个控件可以直接支持。 比方，用 MSFlexGrid 就可以在单元格内嵌其他控件，比如 CheckBox。

[额，饿了]

listBox 吧？？？？？？？？？？？？？？？？

[of123]

嵌入 1 个 CheckBox 的例子：记住先放 MSFlexGrid，再放 CheckBox。

Option Explicit

Dim lcol, lrow As Long

Private Sub Form_Load()
With MSFlexGrid1
.Cols = 8
.Rows = 20
lcol = 1
.Col = 1
lrow = 1
.Row = 1
MSFlexGrid1_RowColChange
End With
End Sub

Private Sub MSFlexGrid1_RowColChange()
With MSFlexGrid1
lcol = .Col
lrow = .Row
Check1.Visible = True
Check1.Height = .CellHeight
Check1.Width = .CellWidth
Check1.Left = .CellLeft + .Left
Check1.Top = .CellTop + .Top
End With
End Sub

Private Sub MSFlexGrid1_Scroll()
With MSFlexGrid1
If .RowIsVisible(lrow) And .ColIsVisible(lcol) Then
Check1.Visible = True
Check1.Height = .CellHeight
Check1.Width = .CellWidth
Check1.Left = .CellLeft + .Left
Check1.Top = .CellTop + .Top
Else
Check1.Visible = False
End If
End With
End Sub

[welcome520]

引用 1 楼 of123 的回复:

其实不必拘泥于哪一个控件可以直接支持。 比方，用 MSFlexGrid 就可以在单元格内嵌其他控件，比如 CheckBox。

谢谢回答 我以前软件中都是用MSFlexGrid ，挺好用的，但后来发现客户电脑上XP几乎都不支持这个控件，我把四个控件文件 复制到电脑注册后，还是有很多电脑不支持，所以我现在尽量不在软件中用MSFlexGrid 了。

[welcome520]

以前用的是MSHFlexGrid 应该和MSFlexGrid 的区别不大

[舉杯邀明月]

引用 5 楼 welcome520 的回复:

以前用的是MSHFlexGrid 应该和MSFlexGrid 的区别不大

这个区别应该“很大”吧！ MSFlexGrid就是一般的表格控件，但 MSHFlexGrid 的功能好像要强悍得多了。

[舉杯邀明月]

引用 3 楼 of123 的回复:

嵌入 1 个 CheckBox 的例子：记住先放 MSFlexGrid，再放 CheckBox。

Option Explicit

Dim lcol, lrow As Long

Private Sub Form_Load()
With MSFlexGrid1
.Cols = 8
.Rows = 20
lcol = 1
.Col = 1
lrow = 1
.Row = 1
MSFlexGrid1_RowColChange
End With
End Sub
.....................
End Sub

你这样， CheckBox 就算是“嵌入”MSFlexGrid控件了？

[welcome520]

人家那种权限设置，又带树，又带多列复选框的功能，VB实现不了吗

[舉杯邀明月]

不是实现不了，是没有现成的控件而已。 如果用在“特定场合”，你还是用基本控件“堆叠”一下凑合用吧， 如果你想“灵活、通用”，那么你可以自己做一个“用户控件”。

[welcome520]

再看了一下那个软件，并没有实现listview多列复选框的功能， 权限功能，我用 Dategrid控件做了，实时修改。