Manchmal möchte oder muss man im Programm reagieren, falls sich der Wert einer Variablen ändert. Zu diesem Zweck kann man die nachfolgende Klasse verwenden: ' Variable auf Änderung überwachen Public Class clsVariableChange Private mVarValue As String Public Event VariableChanged(ByVal mVarValue As String) Public Property theVariable() As String Get theVariable = mVarValue End Get Set(ByVal value As String) mVarValue = value RaiseEvent VariableChanged(mVarValue) End Set End Property End Class Ich zeige hier mit einer Variablen vom Typ String das Prinzip. Im eigenen Programm vereinbart man eine Variable folgendermaßen: Private WithEvents theVariable As New clsVariableChange Wird dann an einer Stelle des Programms ihr Wert verändert, kann im Ereignis darauf reagiert und wie gewünscht evtl. verzweigt werden. Private Sub theVariable_VariableChanged(mValue As Object) _ Handles theVariable.VariableChanged ' ' hier jetzt die Reaktion auf die Veränderung der Variablen programmieren ' End Sub |