Eigene Klasse für StatusStrip + Zugriff auf Controls

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Refratechnik.

    Eigene Klasse für StatusStrip + Zugriff auf Controls

    Moin,

    in Anlehnung an:

    Button blinken lassen

    (sorry, irgendwie krieg ich den nicht als Hyperlink eingefügt)

    habe ich mir eine eigene Klasse für nen StatusStrip erstellt, damt ich dieses einfach blinken lassen kann:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports System.Timers
    5. Public Class CFlashingStatusStrip
    6. Inherits StatusStrip
    8. #Region "Variablen"
    9. Private _colOk As Color
    10. Private _colFlash1 As Color
    11. Private _colFlash2 As Color
    12. Private _EnableFlashing As Boolean
    13. Private _timFlash As New Timer(1000)
    14. Private _timInterval As Integer
    15. #End Region
    17. #Region "Properties"
    18. Public Property EnableFlashing As Boolean
    19. Get
    20. Return _EnableFlashing
    21. End Get
    22. Set(value As Boolean)
    23. _EnableFlashing = value
    24. If _EnableFlashing = False Then
    25. _timFlash.Enabled = False
    26. BackColor = _colOk
    27. Else
    28. _timFlash.Enabled = True
    29. Tick(Nothing, Nothing)
    30. End If
    31. End Set
    32. End Property
    34. Public Property ColOk As Color
    35. Get
    36. Return _colOk
    37. End Get
    38. Set(value As Color)
    39. _colOk = value
    40. End Set
    41. End Property
    43. Public Property ColFlash1 As Color
    44. Get
    45. Return _colFlash1
    46. End Get
    47. Set(value As Color)
    48. _colFlash1 = value
    49. End Set
    50. End Property
    52. Public Property ColFlash2 As Color
    53. Get
    54. Return _colFlash2
    55. End Get
    56. Set(value As Color)
    57. _colFlash2 = value
    58. End Set
    59. End Property
    61. Public Property TimInterval As Integer
    62. Get
    63. Return _timInterval
    64. End Get
    65. Set(value As Integer)
    66. _timInterval = value
    67. _timFlash.Interval = _timInterval
    68. End Set
    69. End Property
    70. #End Region
    72. #Region "Konstruktoren"
    73. Public Sub New()
    74. AddHandler _timFlash.Elapsed, AddressOf Tick
    75. _colOk = Color.LimeGreen
    76. _colFlash1 = Color.Yellow
    77. _colFlash2 = Color.Red
    78. End Sub
    80. Public Sub New(ByVal ColOk As Color, ByVal ColFlash1 As Color, ByVal ColFlash2 As Color)
    81. AddHandler _timFlash.Elapsed, AddressOf Tick
    82. _colOk = ColOk
    83. _colFlash1 = ColFlash1
    84. _colFlash2 = ColFlash2
    85. End Sub
    86. #End Region
    88. #Region "Events"
    89. Private Sub Tick(sender As Object, e As EventArgs)
    90. If EnableFlashing Then
    91. If BackColor = _colFlash1 Then
    92. BackColor = _colFlash2
    93. Else
    94. BackColor = _colFlash1
    95. End If
    96. End If
    97. End Sub
    98. #End Region
    99. End Class


    Ist ja vom Prinzip her erstmal simpel - ich kann mir jetzt diesen angepassten StatusStrip einfach auf die Form ziehen. Wie sieht es aber aus, wenn ich auch an die Elemente des StatusStrip ran will (Progressbar und StatusLabel)? Z.B. wenn ich die StatusLabels auch zum Blinken bringen möchte (nur als Beispiel).

    MfG
    Refra

    Worum geht es Dir? Dass Du mit dieser Klasse auch alle Sub-CEs mitblinken lässt, also alle synchron blinken oder dass Du ein allgemeines Blinkverhalten auf verschiedene CEs unabhängig voneinander erzeugen kannst, ohne für jedes CE eine eigene Klasse zu schreiben? (Damit will ich nicht automatisch Hoffnung machen, dass das ein oder andere klappt)
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Letztendlich geht es mir nur darum, wie ich an die Sub-CEs komme und diese modifizieren kann - mit eigener Klasse. Damit sollte dann auch ein allgemeines Blinkverhalten für jedes Control erreichbar sein. Z.B. StatusStrip blinkt in rot/gelb, Statuslabel mit eigenem Intervall in Lila/Blau...

    Um an alle Sub-CEs zu kommen, nimmst Du die Items-Property des StatusStrips her. Für eine For-Schleife also:

    VB.NET-Quellcode

    1. For Each SubCE In DeinStatusStrip.Items.Cast(Of ToolStripItem)
    2. If TypeOf SubCE Is NameDeinerBlinkendenProgressBarKlasse Then WasAuchImmerMitDieserBlinkendenProgressBarGemachtWerdenSoll()
    3. If TypeOf SubCE Is NameDeinerBlinkendenToolStripLabelKlasse Then WasAuchImmerMitDiesemBlinkendenLabelGemachtWerdenSoll()
    4. Next
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Ich würde das Ganze über ein Interface lösen. z.B.: IFlashing
    Dieses verlangt die Properties für die Farben, Interval und Enabled und eine Methode für den Ablauf des Tick Events.

    Danach würde jede Klasse (StatusStrip, StatusLabel, ...) dieses Interface implementieren welche "Blinken" soll.

    Danach kannst du durch alle Objekte welches IFlashing implementieren durchiteriieren und auf die Eigenschaften zugreifen

    VB.NET-Quellcode

    1. for each item in StatusStrip1.Items.OfType(Of IFlashing)
    2. item.TimInterval = 250
    3. item.EnableFlashing = True
    4. Next


    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende