Extension Methods: Watermark für Textbox

    • VB.NET

    Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von der_Kurt.

      Extension Methods: Watermark für Textbox

      Mit Hilfe der Extension-Methods wird hier für Textboxen eine Watermark hinterlegt

      VB.NET-Quellcode

      1. ''' <summary>
      2. ''' Erweiterungsmethoden für Watermarks
      3. ''' </summary>
      4. ''' <remarks></remarks>
      5. Module wasserzeichenExtension
      7. ''' <summary>
      8. ''' Auflistung aller verfügbaren Wasserzeichen-Objekte
      9. ''' </summary>
      10. ''' <remarks></remarks>
      11. Private _allregisteredTextboxesWithWatermarks As New List(Of WTM_object)
      13. ''' <summary>
      14. ''' bindet die Wasserzeichen-Methoden an eine Textbox
      15. ''' </summary>
      16. ''' <param name="tb">die Textbox, die das Wasserzeichen erhält</param>
      17. ''' <param name="wasserzeichen">der Text, der als Wasserzeichen angezeigt wird</param>
      18. ''' <remarks></remarks>
      19. <Runtime.CompilerServices.Extension()>
      20. Sub createWatermark(tb As TextBox, wasserzeichen As String)
      22. Dim bereitsvorhanden As Boolean = False
      23. For Each obj_ausderliste In _allregisteredTextboxesWithWatermarks
      24. If obj_ausderliste.usedtextbox Is tb Then
      25. bereitsvorhanden = True
      26. End If
      27. Next
      29. If bereitsvorhanden = False Then
      31. AddHandler tb.GotFocus,
      32. AddressOf wasserzeichen_textbox_GotFocus
      33. AddHandler tb.LostFocus,
      34. AddressOf wasserzeichen_textbox_LostFocus
      38. _allregisteredTextboxesWithWatermarks.Add(
      39. New WTM_object With {.usedtextbox = tb,
      40. .wasserzeichen = wasserzeichen,
      41. .actualfont = tb.Font,
      42. .backcolor = tb.BackColor,
      43. .forecolor = tb.ForeColor,
      44. .textalign = tb.TextAlign,
      45. .usepwchar = tb.UseSystemPasswordChar})
      46. 'Effekt zum ersten Mal anwenden
      47. wasserzeichen_textbox_LostFocus(tb, Nothing)
      48. Else 'if bereitsvorhanden = True
      49. 'Wasserzeichen bereits vorhanden: Ausnahme auslösen
      50. Throw New Exception("Der Textbox '" & tb.Name & "' ist bereits ein wasserzeichen zugeordnet")
      51. End If
      52. End Sub
      55. ''' <summary>
      56. ''' entfernt die Bindung der Textbox zu einem Wasserzeichen
      57. ''' </summary>
      58. ''' <param name="tb">die Textbox, deren Wasserzeichen entfernt wird</param>
      59. ''' <remarks></remarks>
      60. <System.Runtime.CompilerServices.Extension()>
      61. Sub removeWatermark(tb As TextBox)
      63. For Each element_ausderliste In _allregisteredTextboxesWithWatermarks
      65. If element_ausderliste.usedtextbox Is tb Then
      67. 'einmal noch ausführen, um alles auf den Standard zu bringen
      68. wasserzeichen_textbox_GotFocus(tb, Nothing)
      70. RemoveHandler tb.GotFocus,
      71. AddressOf wasserzeichen_textbox_GotFocus
      72. RemoveHandler tb.LostFocus,
      73. AddressOf wasserzeichen_textbox_LostFocus
      75. _allregisteredTextboxesWithWatermarks.Remove(element_ausderliste)
      76. Exit For
      77. End If
      79. Next
      80. End Sub
      83. ''' <summary>
      84. ''' entfernt alle registrierten Wasserzeichen
      85. ''' </summary>
      86. ''' <remarks></remarks>
      87. Sub removeallWatermarks()
      88. For q = _allregisteredTextboxesWithWatermarks.Count - 1 To 0 Step -1
      89. removeWatermark(_allregisteredTextboxesWithWatermarks(q).usedtextbox)
      90. Next
      91. End Sub
      96. ''' <summary>
      97. ''' Eventhandler "GotFocus"
      98. ''' </summary>
      99. ''' <param name="sender"></param>
      100. ''' <param name="e"></param>
      101. ''' <remarks></remarks>
      102. Private Sub wasserzeichen_textbox_GotFocus(sender As Object, e As EventArgs)
      104. Dim tb_sender = CType(sender, TextBox)
      105. For Each aktuelle_standards In _allregisteredTextboxesWithWatermarks
      107. If tb_sender Is aktuelle_standards.usedtextbox Then
      109. If aktuelle_standards.effectisapplied Then
      110. With tb_sender
      112. 'Handler 'kurz' entfernen
      113. 'als Workaround, weil die TB bei Umstellung des Textalign
      114. 'und des PW-Char Probleme macht
      116. RemoveHandler .GotFocus,
      117. AddressOf wasserzeichen_textbox_GotFocus
      119. RemoveHandler .LostFocus,
      120. AddressOf wasserzeichen_textbox_LostFocus
      122. ''Cursor geht in die Box rein,
      123. 'also auf die Standards setzen
      124. .Font = aktuelle_standards.actualfont
      125. .Text = Nothing
      126. .ForeColor = aktuelle_standards.forecolor
      127. .BackColor = aktuelle_standards.backcolor
      128. .TextAlign = aktuelle_standards.textalign
      129. .UseSystemPasswordChar = aktuelle_standards.usepwchar
      131. AddHandler .GotFocus,
      132. AddressOf wasserzeichen_textbox_GotFocus
      134. AddHandler .LostFocus,
      135. AddressOf wasserzeichen_textbox_LostFocus
      136. End With
      137. aktuelle_standards.effectisapplied = False
      139. End If
      140. Exit For
      142. End If
      143. Next
      145. End Sub
      147. ''' <summary>
      148. ''' Eventhandler "LostFocus"
      149. ''' </summary>
      150. ''' <param name="sender"></param>
      151. ''' <param name="e"></param>
      152. ''' <remarks></remarks>
      153. Private Sub wasserzeichen_textbox_LostFocus(sender As Object, e As EventArgs)
      155. Dim tb_sender = CType(sender, TextBox)
      156. For Each element In _allregisteredTextboxesWithWatermarks
      157. If tb_sender Is element.usedtextbox Then
      158. If tb_sender.Text = Nothing Then
      160. With tb_sender
      162. ''Cursor geht raus aus der Textbox,
      163. ''also die Box auf die Watermark-Werte setzen
      164. .Text = element.wasserzeichen
      165. .Font = New Font(.Font,
      166. FontStyle.Italic)
      167. .BackColor = Color.FromKnownColor(KnownColor.Info)
      168. .ForeColor = Color.Gray
      169. .TextAlign = HorizontalAlignment.Left
      170. .UseSystemPasswordChar = False
      172. End With
      173. element.effectisapplied = True
      175. End If
      176. Exit For
      178. End If
      179. Next
      180. End Sub
      182. Friend Class WTM_object
      184. Friend effectisapplied As Boolean
      186. Friend usedtextbox As TextBox
      187. Friend wasserzeichen As String
      189. Friend actualfont As Font
      190. Friend forecolor As Color
      191. Friend backcolor As Color
      192. Friend textalign As HorizontalAlignment
      194. Friend usepwchar As Boolean
      196. End Class
      198. 'TODO: Änderungen der Eigenschaften der Textbox in WTM_objekt integrieren
      199. '##### Änderungen, die an der Textbox gemacht werden, während der Effekt
      200. '##### aktiv ist, müssen noch in die richtigen Bahnen gelenkt werden.
      202. 'TODO: Aussehen des Effekts veränderbar machen
      203. '##### Der Effekt ist im Moment hardcodiert, nur über den Quelltext zu ändern
      205. 'License: "Do whatever you want, but don't blame me"
      206. '######## Der Code darf frei verwendet, verändert werden
      207. '######## Namensnennung nicht notwendig
      209. End Module


      VB.NET-Quellcode

      1. 'erstellen eines Wasserzeichens für eine Textbox:
      2. TextBox1.createWatermark("<LOGIN>")
      3. TextBox2.createWatermark("<PASSWORT>")
      5. 'entfernen eines Wasserzeichens:
      6. TextBox2.removeWatermark()
      8. 'entfernen aller registrierten Wasserzeichen
      9. removeallWatermarks()


      Anwendung: neues Modul :!: erstellen (Modul deshalb, weil Extension-Methods verwendet werden. Diese benötigen ein Modul.)
      Modulcode durch den oberen Code ersetzen. Die Anwendung der Funktionen siehe unteres Beispiel.

      Keine Garantie auf volle Funktionsfähigkeit. Der Code darf frei verwendet und verändert werden. Namensnennung nicht notwendig.

      LG, der_Kurt
      Bilder

      • watermark-textbox.PNG

        15,82 kB, 610×353, 300 mal angesehen

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „der_Kurt“ () aus folgendem Grund: Screenshot hinzugefügt

      Kleine Performance und Schönheitskorrektur in der Sub createwatermark

      VB.NET-Quellcode

      1. For Each obj_ausderliste In _allregisteredTextboxesWithWatermarks
      2. If obj_ausderliste.usedtextbox Is tb Then
      3. bereitsvorhanden = True
      4. Exit For
      5. End If
      6. Next


      Es müssen nicht alle Elemente der Liste durchlaufen werden wenn die Textbox bereits einmal gefunden wurde =)
      Btw. könnte man sicherlicht auch statt einer For Each einfach die Contains-Methode wählen indem man das WTM Object vorher erstellt

      VB.NET-Quellcode

      1. Dim wtm New WTM_object With {.usedtextbox = tb,
      2. .wasserzeichen = wasserzeichen,
      3. .actualfont = tb.Font,
      4. .backcolor = tb.BackColor,
      5. .forecolor = tb.ForeColor,
      6. .textalign = tb.TextAlign,
      7. .usepwchar = tb.UseSystemPasswordChar})
      9. If Not _allregisteredTextboxesWithWatermarks.Contains(wtm) Then
      10. _allregisteredTextboxesWithWatermarks.Add(wtm)
      11. End If


      Edit: und Typenbestimmung ist unter Option Strict On auch wichtig

      VB.NET-Quellcode

      1. For q As Integer = _allregisteredTextboxesWithWatermarks.Count - 1 To 0 Step -1
      2. removeWatermark(_allregisteredTextboxesWithWatermarks(q).usedtextbox)
      3. Next

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

      Hi Dodo!

      Beim ersten Code-Beispiel gebe ich dir Recht. Das "Exit For" habe ich hier wohl vergessen....

      Ich habe mit der Behelfsvariable gearbeitet, weil ich in diesem Beispiel später mal u.A. bei einer Zuweisung eines anderen Wasserzeichen-Textes an eine bereits registrierte Textbox den Wert ändern wollte.
      Dazu wäre es notwendig, zu wissen, ob es diese Objekt schon gibt.
      Das ist ein typischer Fall von: Loch in der Mauer? Stelle einen Schrank davor.
      (Ich habe dieses Projekt abgebrochen, weil der Kunde plötzlich den Errorprovider als Hinweis verwenden wollte.)

      Typenbestimmung ist unter Option Strict On auch wichtig

      VB.NET-Quellcode

      1. For q As Integer = _allregisteredTextboxesWithWatermarks.Count - 1 To 0 Step -1

      Ist richtig, allerdings arbeite ich auch mit Option Infer! Hier wird in meinem Beispiel (ohne "as Integer") q implizit als Integer deklariert (Anfangswert ist Integer, Endwert ist Integer, Step ist Integer). Die Bezeichnung "as Integer" macht es zwar lesbarer, ist hier aber nicht zwingend notwendig.

      Danke für's Durchschauen ;)
      LG, Kurti
      Bilder

      • dim_q.png

        9,08 kB, 403×226, 232 mal angesehen