2025年定义新多级列表在哪里（定义新多级列表将更改应用于）

编程日记 • 2025-04-01 23:40 • 阅读 41

最近，有朋友提出了一个问题，VB中的列表框如何才能多选？

缺省状态下，VB中的列表框是这个样子，如下图。

可以直观的看到，鼠标点击列表框中的项目，只能有1条可以被选中。

Q：那么，如何实现列表框中的项目多选功能呢？

A：修改列表框的MultiSelect属性将其由默认的0改为1或者2即可。

那么，属性值为0、1、2分别代表什么意思呢？这也记不住啊！莫急，且看下面的属性讲解。

MultiSelect属性详解

作用：用来设置该列表框是否能选择多项。

取值如下：

0（默认值）：表示不允许多重选择，用户一次只能选择一个。
1：表示简单多重选定，用户用鼠标单击或按Space键来选取多重列表项，但一次只能增减一个项目。
2：表示高级多重选定，用户可利用Ctrl键与鼠标的配合来进行重复选取，或利用与Shift键的配合进行连续选取。
下面，一起来学习多选功能的实现吧！

获取列表框多选功能实例

实现过程：

1、窗体上添加一个列表框，一个命令按钮，列表框的MultiSelect属性值设置为1或者2都可以。

2、Form_Load事件中，编写如下代码。

Private Sub Form_Load()    List1.AddItem "学号         专业         班级   姓名  "    For i = 1 To 20        List1.AddItem 202409 & Format(i, "00") & " 计算机科学技术" & " 计算机1班 " & "vb" & i    NextEnd Sub

3、编写命令按钮单击事件代码，获取到列表框多选的内容，并将其输出到窗体上。

Private Sub Command1_Click()    For i = 1 To List1.ListCount - 1        If List1.Selected(i) = True Then            Print "您选择的内容是：" & List1.List(i)        End If    NextEnd Sub

4、实际运行，观看运行效果。

可以看到，多选功能已经实现。

仅实现功能是不够的，追求完美才是我们的最终目标。

Q：既然是多选功能，那么每一项的前面能自动加上多选框吗？如何实现？

A：这个亦不难，设置Style属性为1即可，这个1-Checkbox，相信大家非常熟悉，这不是和工具箱中的复选框一样嘛！

Style属性设置为1后，再次运行的效果如下图。

不得不说，这个方框加上之后，看起来确实好看多了呢~

Tips：Style属性设置为1后，MultiSelect属性值VB会自动置为0 。不信？那你就实际动手验证下！

完整实现代码：

Private Sub Command1_Click() '获取列边框多选内容    For i = 1 To List1.ListCount - 1        If List1.Selected(i) = True Then            Print "您选择的内容是：" & List1.List(i)        End If    NextEnd SubPrivate Sub Form_Load() '初始化列表框内容，通过for循环向列表框中动态添加内容    List1.AddItem "学号         专业         班级   姓名  "    For i = 1 To 20        List1.AddItem 202409 & Format(i, "00") & " 计算机科学技术" & " 计算机1班 " & "vb" & i    NextEnd Sub

到这里我们就会发现，知识的本质是互通的，将整个知识体系融会贯通了，其实编程也是蛮简单的！

今天的编程知识分享就到这里，愿大家在编写学习的道路上都突飞猛进！

如果你在VB编程的学习过程中遇到疑难问题或者有程序、软件开发问题，VB学习帮助你迎刃而解。您可以长按识别下方二维码添加小编微信：vbstudy521 ，添加后学习问题在线交流答疑。

学习本实例程序源码的伙伴可在跟我学VB公众号的消息对话框中，发送20241026获取。

2025年定义新多级列表在哪里（定义新多级列表将更改应用于）

相关推荐