VB 点击checkbox后自动排序

本文介绍了一个使用VBA编写的函数,该函数能够遍历面板上的所有复选框,对被选中的复选框进行编号,并将编号和复选框文本返回为字符串。此外,还提供了一个文本框的键盘事件处理程序,用于调用此函数并显示结果。

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

Public Class Form1
    Private Function OrderCheckBox(ByVal panelName As String) As String
        Dim i As Integer = 0
        Dim szText As String = String.Empty
        Dim test As Panel = Me.Panel1
        Dim control2 As Control
        For Each control2 In test.Controls
            Dim chebox As CheckBox = CType(control2, CheckBox)
            If chebox.Checked = True Then
                i = i + 1  //选中后加序号
                szText += i.ToString() + chebox.Text.Trim() + ";"
            End If
        Next
        Return szText
    End Function


    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        TextBox1.Text = OrderCheckBox("Panel1")
    End Sub
End Class

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值