使标签或按钮表现为复选框？

Question

我希望代码在您点击标签时将Boolean更改为True，如果是False则更改为False，如果是True 。 它可以循环，就像一个复选框。

Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click
    Dim clickedLabel = TryCast(sender, Label)
    If bool1 = True Then
        If clickedLabel IsNot Nothing Then
            bool1 = False
    End If
    If bool1 = False Then
        If clickedLabel IsNot Nothing Then
            bool1 = True
    End If

有没有办法做到这一点？

Answer 1

当然，只需处理标签的Click事件。

Public Class Form1

    Private _MyBool As Boolean

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        _MyBool = Not _MyBool
        Label1.Text = IIf(_MyBool, "MyBool is true", "MyBool is false")
    End Sub
End Class

使用not运算符是一种简单的方法来切换布尔值 - 无论它是什么，not运算符都会将其翻转。否则，您所拥有的代码的唯一问题是您缺少End If部分的if bool1 = ...语句。