Design Pattern: Singleton

Das Singleton-Pattern ist dann nützlich, wenn man genau eine Instanz einer Klasse benötigt. Durch den Zugriff in der beschrieben Weise wird sichergestellt, dass diese eine Instanz im Moment der ersten Benutzung erzeugt und danach immer dieselbe Instanz verwendet wird.

Hier ist das Prinzip am Beispiel des alten Visual-Basic-Dialektes gezeigt, den ja vielleicht noch jemand nutzt :-)

  1. Option Explicit
  2.  
  3. Private m_ObjectName As clsClassName
  4.  
  5. Public Property Get ObjectName() As clsClassName
  6.  
  7. If m_ObjectName Is Nothing Then Set m_ObjectName = New clsClassName
  8. Set ObjectName = m_ObjectName
  9.  
  10. End Property

Anstelle von ObjectName und ClassName sollte natürlich ein sprechender Name verwendet werden.

Die Verwendung erfolgt dann einfach über den Namen des Properties, also z.B.:

  1. ObjectName.AttribName = 42
  2. MsgBox "Anmeldename: " & ObjectName.Anmeldename

Denkbar wäre zum Beispiel eine Klasse, die bestimmte Daten vorhält oder auch ein zentraler Dispatcher, auf den andere Klassen eine Referenz halten können, um z.B. dessen Events zu fangen.


SmallInvoice Logo

Ähnliche Artikel:

AuthorChristoph Jüngling

Selbständiger Softwareentwickler und Seminarleiter

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.

vier + 12 =