RollUp und RollSide Label

    • VB.NET

      RollUp und RollSide Label

      Hi Leute,
      Ich habe mal was kleines villeicht nützliches gecoded.

      VB.NET-Quellcode

      1. 'RollUp Label
      2. Public Class RollUpLabel
      3. Inherits Label
      5. 'Der Timer für das RollUp
      6. Private WithEvents _timeRollUp As New Timer
      7. 'Der Style fürs RollUp
      8. Public Property RollUpStyle As RollUpStyle = RollUpStyle.RollDown
      9. Public Sub New()
      10. 'Timer für RollUp Initializieren
      11. _timeRollUp = New Timer
      12. 'Den Standard Intervall 100 Einstellen. 100 ist sehr schnell deswegen würde ich nicht drunter gehen!
      13. _timeRollUp.Interval = 100
      14. End Sub
      15. Public Property RollUpStart As New Point(Me.Location.X, -10)
      16. Public Property Tempo As Integer
      17. Get
      18. 'gibt den Wert des Tempos zurück. Er muss durch 100 geteilt werden das es als gültige RollUp Zahl angegeben wird
      19. Return _timeRollUp.Interval / 100
      20. End Get
      21. Set(value As Integer)
      22. 'Prüfen ob die Zahl kleiner oder gleich 9 ist. Sonst wäre es zu langsam
      23. If value <= 9 Then
      24. 'Den Intervall mal 100 rechnen um es in Millisekunden anzugeben.
      25. _timeRollUp.Interval = value * 100
      26. Else
      27. 'Wäre zu langsam also Abblocken
      28. Throw New Exception("Der Wert darf nicht größer als 9 sein!")
      29. End If
      30. End Set
      31. End Property
      32. 'Der Punkt für StopRollup, also wo das Label nach RollUp Stoppen hingesetzt wird
      33. Private _pBefore As Point = New Point(10, 10)
      34. 'Startet den Rollup
      35. Sub StartRollup()
      36. 'Den RollUp Timer starten
      37. _timeRollUp.Start()
      38. 'Den Recovery Punkt für StopRollup festlegen
      39. _pBefore = Me.Location
      40. 'Die Startlocation abrufen und also Me.Location festlegen
      41. Me.Location = RollUpStart
      42. End Sub
      43. 'Stopt den Rollup
      44. Sub StopRollup()
      45. 'Stopt den Timer
      46. _timeRollUp.Stop()
      47. 'Setzt die Position die wir vorher gesaved haben
      48. Me.Location = _pBefore
      49. End Sub
      50. 'Der Code für das RollUp
      51. Private Sub _timeRollUp_Tick(sender As Object, e As EventArgs) Handles _timeRollUp.Tick
      52. 'Die Aktuelle Position deklarieren
      53. Dim meLC As Point = Me.Location
      54. 'Den RollUpStyle prüfen
      55. If Me.RollUpStyle = RollUp_Text.RollUpStyle.RollDown Then
      56. 'Es geht von Oben nach Unten also + Rechnen zu der Y Koordinate
      57. meLC.Y += 3
      58. Else
      59. 'Es geht von Unten nach Oben also - Rechnen zu der Y Koordinate
      60. meLC.Y -= 3
      61. End If
      62. 'Die bearbeitete Position setzen
      63. Me.Location = meLC
      64. 'StopRollup Position prüfen
      65. If Me.Location = StopRollupPoint Then
      66. 'Stop Rollup Auslösen
      67. StopRollup()
      68. End If
      69. End Sub
      71. 'Optional: Rollup bei einer bestimmten Position stoppen:
      72. Public Property StopRollupPoint As New Point(0, 0)
      73. End Class
      74. 'Alle RollUp Styles
      75. Public Enum RollUpStyle
      76. ''' <summary>
      77. ''' Der Text rollt von Unten nach Oben
      78. ''' </summary>
      79. RollUp
      80. ''' <summary>
      81. ''' Der Text rollt von Oben nach Unten
      82. ''' </summary>
      83. RollDown
      84. End Enum
      86. 'RollSide Label
      87. Public Class RollSideLabel
      88. Inherits Label
      90. 'Der Timer für das RollSide
      91. Private WithEvents _timeRollSide As New Timer
      92. 'Der Style fürs RollSide
      93. Public Property RollSideStyle As RollSideStyle = RollSideStyle.RollLeft
      94. Public Sub New()
      95. 'Timer für RollSide Initializieren
      96. _timeRollSide = New Timer
      97. 'Den Standard Intervall 100 Einstellen. 100 ist sehr schnell deswegen würde ich nicht drunter gehen!
      98. _timeRollSide.Interval = 100
      99. End Sub
      100. Public Property RollSideStart As New Point(-10, Me.Location.X)
      101. Public Property Tempo As Integer
      102. Get
      103. 'gibt den Wert des Tempos zurück. Er muss durch 100 geteilt werden das es als gültige RollSide Zahl angegeben wird
      104. Return _timeRollSide.Interval / 100
      105. End Get
      106. Set(value As Integer)
      107. 'Prüfen ob die Zahl kleiner oder gleich 9 ist. Sonst wäre es zu langsam
      108. If value <= 9 Then
      109. 'Den Intervall mal 100 rechnen um es in Millisekunden anzugeben.
      110. _timeRollSide.Interval = value * 100
      111. Else
      112. 'Wäre zu langsam also Abblocken
      113. Throw New Exception("Der Wert darf nicht größer als 9 sein!")
      114. End If
      115. End Set
      116. End Property
      117. 'Der Punkt für StopRollside, also wo das Label nach RollSide Stoppen hingesetzt wird
      118. Private _pBefore As Point = New Point(10, 10)
      119. 'Startet den Rollside
      120. Sub StartRollside()
      121. 'Den Rollside Timer starten
      122. _timeRollSide.Start()
      123. 'Den Recovery Punkt für StopRollside festlegen
      124. _pBefore = Me.Location
      125. 'Die Startlocation abrufen und also Me.Location festlegen
      126. Me.Location = RollSideStart
      127. End Sub
      128. 'Stopt den Rollside
      129. Sub StopRollside()
      130. 'Stopt den Timer
      131. _timeRollSide.Stop()
      132. 'Setzt die Position die wir vorher gesaved haben
      133. Me.Location = _pBefore
      134. End Sub
      135. 'Der Code für das Rollside
      136. Private Sub _timeRollSide_Tick(sender As Object, e As EventArgs) Handles _timeRollSide.Tick
      137. 'Die Aktuelle Position deklarieren
      138. Dim meLC As Point = Me.Location
      139. 'Den RollSideStyle prüfen
      140. If Me.RollSideStyle = RollUp_Text.RollSideStyle.RollLeft Then
      141. 'Es geht von Links nach Rechts also + Rechnen zu der X Koordinate
      142. meLC.X += 3
      143. Else
      144. 'Es geht von Rechts nach Links also - Rechnen zu der X Koordinate
      145. meLC.X -= 3
      146. End If
      147. 'Die bearbeitete Position setzen
      148. Me.Location = meLC
      149. 'StopRollside Position prüfen
      150. If Me.Location = StopRollsidePoint Then
      151. 'Stop Rollside Auslösen
      152. StopRollside()
      153. End If
      154. End Sub
      156. 'Optional: Rollside bei einer bestimmten Position stoppen:
      157. Public Property StopRollsidePoint As New Point(0, 0)
      158. End Class
      159. 'Alle RollSide Styles
      160. Public Enum RollSideStyle
      161. ''' <summary>
      162. ''' Der Text rollt von Links nach Rechts
      163. ''' </summary>
      164. ''' <remarks></remarks>
      165. RollRight
      166. ''' <summary>
      167. ''' Der Text rollt von Rechts nach Links
      168. ''' </summary>
      169. ''' <remarks></remarks>
      170. RollLeft
      171. End Enum

      Viel Spaß mit diesem Label. Kann villeicht bei Spielen oder bei der Credits bei Software nützlich sein.

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

    Facebook
    Telefonspende