在vb中每秒做一个布尔来回切换

Question

我想制作一个布尔值，每个定时器滴答都从true切换到false。 所以如果你打印它就会这样做

true
false
true
false
true
false
true
false

依此类推，直到我停止计时器。我尝试过以下方法：

Public Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

    Dim bool As Boolean

    For tog = 1 To 2

        If tog = 1 Then
            bool = True
        Else : bool = False

        End If

    Next

End Sub

Answer 1

变量需要是类范围，因此值保留在计时器的刻度之间。

Public Class form1
 Private bool As Boolean

 Private Sub Timer1_tick() Handles Timer1.Tick
  bool = Not bool
  'example
  'true = not true or (false)
  'or
  'false = not false or (true)
  Debug.Writeline(bool.ToString)
 End Sub

如果布尔值为True，则表达式为True = Not True，因此它现在具有False值。