VB.NET 检测布尔型变量的上升沿与下降沿，举例完善子程序并调用

下面是一个更完整的 VB.NET 子程序示例，用于检测布尔型变量的上升沿和下降沿，并在控制台输出相应的信息：

Public Class Form1

    Dim buttonPressed As Boolean = False '初始化变量为 False
    Dim buttonLastState As Boolean = False '保存变量的上一个状态

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If buttonPressed = True Then '检测变量是否为 True
            '检测上升沿
            If buttonPressed <> buttonLastState Then
                '执行上升沿处理代码
                Console.WriteLine("Button pressed!")
            End If
        Else
            '检测下降沿
            If buttonPressed <> buttonLastState Then
                '执行下降沿处理代码
                Console.WriteLine("Button released!")
            End If
        End If
        buttonLastState = buttonPressed '保存变量的当前状态
    End Sub

    Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
        buttonPressed = True '按钮被按下，将变量设置为 True
    End Sub

    Private Sub Button1_MouseUp(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp
        buttonPressed = False '按钮被松开，将变量设置为 False
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 10 '设置定时器的间隔为 10 毫秒
        Timer1.Start() '启动定时器
    End Sub

End Class

在这个示例中，我们在 Form1_Load 事件中启动了定时器，并设置了定时器的间隔为 10 毫秒。在 Timer1_Tick 事件中，我们检测了变量的上升沿和下降沿，并在控制台输出相应的信息。在按钮的 MouseDown 和 MouseUp 事件中，我们分别将变量设置为 True 和 False，以模拟按钮的按下和松开。

要测试这个子程序，只需在 VB.NET 中创建一个新的 Windows 窗体应用程序，将上面的代码复制到 Form1.vb 文件中，并在设计视图中添加一个按钮。然后在按钮的 MouseDown 和 MouseUp 事件中添加上面的代码，最后运行程序即可。当你按下按钮时，控制台会输出 "Button pressed!"，当你松开按钮时，控制台会输出 "Button released!"。