VB 点击checkbox后自动排序

最新推荐文章于 2022-02-09 10:41:16 发布

原创最新推荐文章于 2022-02-09 10:41:16 发布 · 396 阅读

0 ·

CC 4.0 BY-SA版权

VB 专栏收录该内容

8 篇文章

订阅专栏

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

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