监控变量值，当变量值改变时，引发值改变件事。

赤脚_码农

于 2024-04-09 08:43:09 发布

阅读量122

点赞数 2

文章标签： .net

本文链接：https://blog.csdn.net/u012052110/article/details/137535191

版权

文章详细介绍了如何在VB.NET中使用事件处理机制管理变量更改，包括事件的定义、处理程序、全局变量的使用以及字典结构的应用，展示了如何跟踪和显示变量名及值的变化。

摘要由CSDN通过智能技术生成

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AddHandler 变量改变事件, AddressOf 变量改变处理程序 '将名为[变量改变事件]的事件与[变量改变处理程序]方法相关联。
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '如果没有赐值的变量，读取为空
        '不用声明，直接赐值即为声明
        '全局变量

        ' 修改部分变量的值以测试
        设置变量值("A", 100)
        设置变量值("B", 200)
        设置变量值("C", 300)

        Dim 当前A的值 As Object = 获取变量值("q")

        Console.WriteLine($"变量 '{当前A的值}'")

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        显示所有被监控变量名和值()
    End Sub










    Public Sub 变量改变处理程序(ByVal 变量名 As String, ByVal 新值 As Object)
        Console.WriteLine($"变量 '{变量名}' 的值已改变为：{新值}")
    End Sub









    Public Delegate Sub 变量改变委托(ByVal 变量名 As String, ByVal 新值 As Object)
    Public Event 变量改变事件 As 变量改变委托
    Private 变量字典 As New Dictionary(Of String, Object)

    Public Sub 设置变量值(ByVal 变量名 As String, ByVal 值 As Object)
        Dim 当前值 As Object = Nothing
        If 变量字典.TryGetValue(变量名, 当前值) Then
            If Not 当前值.Equals(值) Then
                变量字典(变量名) = 值
                RaiseEvent 变量改变事件(变量名, 值)
            End If
        Else
            变量字典.Add(变量名, 值)
            RaiseEvent 变量改变事件(变量名, 值)
        End If
    End Sub

    Public Function 获取变量值(ByVal 变量名 As String) As Object
        If 变量字典.ContainsKey(变量名) Then
            Return 变量字典(变量名)
        Else
            Return Nothing
        End If
    End Function

    Public Sub 显示所有被监控变量名和值() ' 遍历字典并输出所有变量名和对应的值
        For Each kvp As KeyValuePair(Of String, Object) In 变量字典
            Console.WriteLine($"变量名: {kvp.Key}, 值: {kvp.Value}")
        Next
    End Sub
End Class