VB.NET CheckedListBox1操作

最新推荐文章于 2025-05-15 11:56:49 发布

一念工作室

最新推荐文章于 2025-05-15 11:56:49 发布

阅读量4.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB.Net .net CheckedListBox1操作文章标签： CheckedListBox1操作

本文链接：https://blog.youkuaiyun.com/polloo2012/article/details/79405767

VB.Net 同时被 3 个专栏收录

56 篇文章

订阅专栏

.net

37 篇文章

订阅专栏

CheckedListBox1操作

1 篇文章

订阅专栏

本文介绍了使用Visual Basic进行列表框的基本操作，包括全选、反选、清空列表、删除选中项以及修改和保留特定数量的数据项等实用功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

If CheckedListBox1.Items.Count <> 0 Then'全部选中
For u As Integer = 0 To CheckedListBox1.Items.Count - 1

CheckedListBox1.SetItemChecked(u, True)

If CheckedListBox1.Items.Count <> 0 Then '反选
For u As Integer = 0 To CheckedListBox1.Items.Count - 1

CheckedListBox1.SetItemChecked(u, Not (CheckedListBox1.GetItemChecked(u)))

Next
Else
MsgBox("反向选中遇到错误：列表数据为空，本次操作无效。", MsgBoxStyle.Critical)

End If

If CheckedListBox1.Items.Count <> 0 Then'清空数据
CheckedListBox1.Items.Clear()
Else
MsgBox("清空数据遇到错误：列表数据为空，本次操作无效。", MsgBoxStyle.Critical)

End If

Dim indexes As CheckedListBox.CheckedIndexCollection = Me.CheckedListBox1.CheckedIndices'删除选中项
If indexes.Count > 0 Then
For Each index In indexes
Me.CheckedListBox1.Items.RemoveAt(indexes(0))
Next
Label1.Text = CheckedListBox1.Items.Count
Else
MsgBox("删除数据遇到错误：列表数据为空或在列表中至少勾选一项数据。", MsgBoxStyle.Critical)

End If

If CheckedListBox1.Items.Count > 5 Then '保留前5条数据，其余全部删除
For i = 5 To CheckedListBox1.Items.Count - 1
CheckedListBox1.Items.RemoveAt(CheckedListBox1.Items.Count - 5)

End if

If InStr(CheckedListBox1.SelectedItem, "(NEW)") > 0 Then '修改选中项内容
Dim dhsyd = Replace(CheckedListBox1.SelectedItem, "(NEW)", "")
CheckedListBox1.Items.Insert(CheckedListBox1.SelectedIndex, dhsyd)
CheckedListBox1.Items.RemoveAt(CheckedListBox1.SelectedIndex)
CheckedListBox1.SelectedIndex = Label1.Text
End If