我有一个大型程序可以更改变量的值,例如Var
递增或递减。任何时候当Var = 5
我想执行一个子程序时,比如说Flag()
.
实现这一点的“适当”方式是什么?
我想到的是:
While True
If Var = 5 then
Flag()
End If
End While
但它看起来很傻。
将其包装在一个属性中,每当 setter 更改时调用一个函数:
Public Class MyVarWrapper
Private _i As Integer
Public Property Var() As Integer
Get
Return _i
End Get
Set
_i = value
FunctionToCall()
End Set
End Property
End Class
创建一个子或属性,使用它更改您的变量,这样您就可以检查值。
Public Class Form1
Dim Var As Integer
Private Sub updateVar(value As Integer)
Var = value
If Var = 5 Then
MsgBox("Var = 5")
End If
End Sub
End Class