変数の値を変更する大きなプログラムがあります。たとえばVar
、インクリメントまたはデクリメントします。Var = 5
サブルーチンを実行したいときはいつでも、たとえばFlag()
.
これを実装する「適切な」方法は何ですか?
私が念頭に置いているのはこれです:
While True
If Var = 5 then
Flag()
End If
End While
しかし、それはかなりばかげているように見えました。
それをプロパティにラップし、セッターが変更されるたびに関数を呼び出します。
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