Globale Statische Werte

    • VB.NET

      Globale Statische Werte

      Hallo leute..
      Ich habe zufällig was interessantes gefunden in der Pokemon Dawn Source (mit Reflector mal angeschaut): Static(Of T).
      Hat mir ein Denkanstoß gegeben und dann hab ich mir dazu selbst was geschrieben^^

      VB.NET-Quellcode

      1. Public Class [Static](Of T As {Class})
      3. Public Shared Property Value As T
      4. Get
      5. Return [Static](Of T).staticValue.Value
      6. End Get
      7. Set(value As T)
      8. [Static](Of T).staticValue = New StaticObject(Of T)(value)
      9. End Set
      10. End Property
      12. Private Shared staticValue As StaticObject(Of T)
      14. End Class
      15. Public Class StaticObject(Of T As {Class})
      17. Private _Value As T
      18. Public Property Value As T
      19. Get
      20. Return _Value
      21. End Get
      22. Friend Set(value As T)
      23. Me._Value = value
      24. End Set
      25. End Property
      27. Sub New(ByVal _Value As T)
      28. Me._Value = _Value
      29. End Sub
      30. End Class


      Ein einfaches Anwendungsbeispiel:

      VB.NET-Quellcode

      1. 'Statischen Wert setzen
      2. [Static](Of System.Drawing.Point).Value = New System.Drawing.Point(20, 50)
      4. 'Statischen Wert wiederholen
      5. Console.WriteLine([Static](Of System.Drawing.Point).Value().ToString())


      Ich hoffe es kann jemand gebrauchen :)

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „BeefyX“ ()

    Facebook
    Telefonspende