如何在鼠标单击时更改复选框中的复选标记

Question

我想知道如何根据复选框上的鼠标按钮单击（鼠标左键单击 = ✅ 标记/鼠标右键单击 = X 标记）更改复选标记。

我可以在复选框上做正常的勾号。但我想知道如何放置 X 标记以及如何检测复选框 ✅ 或 X 已选中。

Answer 1

1. 添加控件： 复选框1 = 新复选框()

2. 在属性中设置： CheckBox1.AutoCheck = False

3. 使用事件“MouseUp”：

   Private Sub CheckBox1_MouseUp(sender As Object, e As MouseEventArgs) 处理 CheckBox1.MouseUp Dim cb As CheckBox = 发件人 选择案例 e.Button Case MouseButtons.Left cb.CheckState = CheckState.Checked Case MouseButtons.Right cb.CheckState = CheckState.不确定 结束选择 结束子