Extension Methods

    • VB.NET

      Extension Methods

      Hab mich heute mal ein bißchen rumgespielt und einige Extension-Methods gebastelt. Wenn ihr dieses Modul in euer Projekt einfügt, dann habt ihr drei neue Methoden bei euren Steuerelementen (getestet mit Buttons): Shrink, Grow, Attention.
      Es richtet sich an die Bastler, für die Profis unter euch wird das nichts Neues sein. Die Bastler haben hier vielleicht einen Anreiz für eigene Ideen... (und die "Copy-und-Paste"-Kiddies... nun ja; Werdet glücklich damit;-) )

      Extension-Methods wurden mit VB2008 eingeführt, laufen also nicht vorher.

      VB.NET-Quellcode

      1. 'Erweitert die Controls mit Hilfe des Extensions-Attributs, deshalb:
      2. Imports System.Runtime.CompilerServices
      4. ''' <summary>
      5. ''' enthält diverse Erweiterungen für Controls.
      6. ''' </summary>
      7. ''' <remarks></remarks>
      8. Module Erweiterungen
      9. ''' <summary>
      10. ''' lässt das Control auf Breite=0 zusammenschrumpfen und dann verschwinden
      11. ''' </summary>
      12. ''' <param name="ct">wird auf dieses Control angewandt</param>
      13. ''' <remarks></remarks>
      14. <Extension()> Sub Shrink(ByVal ct As Control)
      15. 'Aktuelle Breite abfragen
      16. Dim breite As Integer = ct.Width
      17. 'die Schrift wird während des Vorgangs ausgeblendet
      18. Dim temptext As String = ct.Text
      19. ct.Text = ""
      20. 'das Control wird auf Breite=0 geschrumpft
      21. For q = breite To 0 Step -1
      22. ct.Width = q
      23. Next
      24. '...und zum Schluß unsichtbar gemacht
      25. ct.Visible = False
      26. 'die Breite wird wieder zurückgesetzt auf Original
      27. ct.Width = breite
      28. '...und die Beschriftung auch
      29. ct.Text = temptext
      30. End Sub
      31. ''' <summary>
      32. ''' lässt das Control erscheinen und von Breite=0 wachsen
      33. ''' </summary>
      34. ''' <param name="ct">wird auf dieses Control angewandt</param>
      35. ''' <remarks></remarks>
      36. <Extension()> Sub Grow(ByVal ct As Control)
      37. 'Wenn das Control unsichtbar ist...
      38. If ct.Visible = False Then
      39. 'die Beschriftung merken
      40. Dim temptext As String = ct.Text
      41. 'und vom Control entfernen
      42. ct.Text = ""
      43. 'die Breite merken
      44. Dim breite As Integer = ct.Width
      45. '...und auf den Startwert setzen
      46. ct.Width = 0
      47. 'dann das Control sichtbar machen
      48. ct.Visible = True
      49. 'und auf die Originalgrösse wachsen lassen
      50. For q = 0 To breite
      51. 'die Breite setzen
      52. ct.Width = q
      53. 'bei jedem 2. Schleifendurchlauf das Neuzeichnen des Controls erzwingen
      54. If CBool(q Mod 2) Then ct.Refresh()
      55. Next
      56. '...und den Text wieder auf den Originaltext setzen
      57. ct.Text = temptext
      58. End If
      59. End Sub
      60. ''' <summary>
      61. ''' bestimmt die Richtung des Attention-Effekts
      62. ''' </summary>
      63. ''' <remarks></remarks>
      64. Friend Enum enRichtung
      65. UhrzeigerSinn
      66. GegenUhrzeigerSinn
      67. End Enum
      68. ''' <summary>
      69. ''' bestimmt die Dauer des Attention-Effekts
      70. ''' </summary>
      71. ''' <remarks></remarks>
      72. Friend Enum enDauer
      73. kurz
      74. normal
      75. lang
      76. End Enum
      77. ''' <summary>
      78. ''' bestimmt, wie intensiv der Attention-Effekt ist
      79. ''' </summary>
      80. ''' <remarks></remarks>
      81. Friend Enum enIntensität
      82. sanft
      83. normal
      84. heftig
      85. End Enum
      86. ''' <summary>
      87. ''' die Aufmerksamkeit auf das Control legen
      88. ''' </summary>
      89. ''' <param name="ct">wird auf dieses Control angewandt</param>
      90. ''' <param name="dauer">die Dauer des Effekts</param>
      91. ''' <param name="Intensität">die Intensität des Effekts</param>
      92. ''' <param name="Richtung">in welcher Richtung</param>
      93. ''' <remarks>das Control wird dazu gebracht, zu "shaken", um die Aufmerksamkeit des Benzutzers zu bekommen</remarks>
      94. <Extension()> _
      95. Sub Attention(ByVal ct As Control, _
      96. Optional ByVal dauer As enDauer = enDauer.normal, _
      97. Optional ByVal Intensität As enIntensität = enIntensität.normal, _
      98. Optional ByVal Richtung As enRichtung = enRichtung.UhrzeigerSinn)
      99. 'die Anzahl der Durchläufe
      100. ' (entspricht der Dauer des Effektes)
      101. Dim Anzahl As Integer
      103. 'Abfragen des Enum-Wertes "Dauer"
      104. Select Case dauer
      105. Case enDauer.kurz
      106. Anzahl = 2
      107. Case enDauer.lang
      108. Anzahl = 15
      109. Case enDauer.normal
      110. Anzahl = 9
      111. End Select
      113. 'die Intensität des Effektes
      114. ' (soweit wird das Control nach allen Seiten bewegt)
      115. Dim iIntensität As Integer
      116. 'Abfragen des Enum-Wertes "Intensität"
      117. Select Case Intensität
      118. Case enIntensität.heftig
      119. iIntensität = 9
      120. Case enIntensität.normal
      121. iIntensität = 5
      122. Case enIntensität.sanft
      123. iIntensität = 3
      124. End Select
      126. 'den aktuellen Mauszeiger merken
      127. Dim oldMouse As System.Windows.Forms.Cursor
      128. oldMouse = ct.Cursor
      129. 'Mauszeiger ändern auf "Sanduhr"
      130. ct.Cursor = Cursors.WaitCursor
      132. 'Richtung einstellen
      133. If Richtung = enRichtung.GegenUhrzeigerSinn Then iIntensität = -iIntensität
      134. ''================================
      135. ''
      136. ''und hier geht der Effekt los...
      137. ''
      138. ''================================
      140. 'die aktuelle Position speichern
      141. 'diese Variablen werden zur Hilfe genommen, um die Position zu berechnen
      142. Dim oben As Integer = ct.Top
      143. Dim links As Integer = ct.Left
      144. 'i deklarieren (weil ich nicht immer "iIntensität" schreiben will ;-} )
      145. Dim i As Integer = iIntensität ''''''''''''''''''' mit i ist es hier momentan noch leichter
      146. Dim r As Integer = CInt(IIf(i < 0, 1, -1))
      147. 'Hilfsvariablen für die Schleifen
      148. Dim verPos, horPos As Integer
      149. ''Den Button zuerst mal in die Startposition bringen
      150. For verPos = 0 To i Step r
      151. ct.Top = oben + verPos
      152. Next
      153. For horPos = 0 To i Step r
      154. ct.Left = links + horPos
      155. Next
      156. ''Jetzt geht die Schleife los, und zwar...
      157. '' ...[Anzahl] Mal.
      158. Dim anz As Integer
      159. For anz = 1 To Anzahl
      161. 'in der Höhe in die eine Richtung gehen
      162. For verPos = i To -i Step r
      163. ct.Top = oben + verPos
      164. Next
      165. 'und jetzt in der horizontalen Richtung
      166. For horPos = i To -i Step r
      167. ct.Left = links + horPos
      168. Next
      169. 'in der Höhe ans andere Ende
      170. For verPos = -i To i Step -r
      171. ct.Top = oben + verPos
      172. Next
      173. 'und wieder auf der Horizontalen
      174. For horPos = -i To i Step -r
      175. ct.Left = links + horPos
      176. Next
      177. Next
      178. ''Jetzt kommt der Button wieder in die Ausgangsposition
      179. For verPos = i To 0 Step r
      180. ct.Top = oben + verPos
      181. Next
      182. For horPos = i To 0 Step r
      183. ct.Left = links + horPos
      184. Next
      186. 'und den Mauszeiger wieder zurücksetzen
      187. ct.Cursor = oldMouse
      188. End Sub
      190. End Module

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „der_Kurt“ ()