vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik:    |   VB-Versionen: VB2005, VB2008, VB2001.03.12
Ereignis auslösen, wenn Variable sich ändert

Eine einfache Klasse wird vorgestellt, mit deren Verwendung man auf die Veränderung einer Variablen mittels Ereignis im Programm reagieren kann.

Autor:  Dietrich HerrmannBewertung:     [ Jetzt bewerten ]Views:  2.049 
ohne HomepageSystem:  WinXP, Win7, Win8, Win10, Win11 Beispielprojekt 

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