VB.NET CheckedListBox1操作

本文介绍了使用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)

 

 

 

            Next

 

 

 

 

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)

            Next

       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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值