Usercontrol "Seperator"

    • VB.NET

      Usercontrol "Seperator"

      Hi!

      In Anlehnung an die beiden Threads (1, 2) habe ich mal kurz ein Usercontrol zusammengeschrieben. Ist nicht perfekt, fühlt euch frei, zu testen, verändern, spielen, lernen.
      Kommentare willkommen, Änderungswünsche zwecklos.

      Anwendung: neues Projekt erstellen, "Benutzersteuerelement" hinzufügen, dessen Quellcode durch untenstehenden ersetzen, Projekt "neu erstellen", fertisch.
      Lizenz: "have fun" ;)

      VB.NET-Quellcode

      1. ''' <summary>
      2. ''' Benutzersteuerelement "Linie"
      3. ''' </summary>
      4. ''' <remarks></remarks>
      5. Public Class Linie
      7. ''' <summary>
      8. ''' definiert intern die verwendeten Farben für den Effekt
      9. ''' </summary>
      10. ''' <remarks></remarks>
      11. Dim color_1, color_2 As Color
      13. ''' <summary>
      14. ''' definiert extern die verwendeten Farben für den Effekt
      15. ''' </summary>
      16. ''' <value></value>
      17. ''' <returns></returns>
      18. ''' <remarks>vorbelegt mit Standard-Wwert</remarks>
      19. Public Property Farbe1 As Color = Color.LightGray
      21. ''' <summary>
      22. ''' definiert extern die verwendeten Farben für den Effekt
      23. ''' </summary>
      24. ''' <value></value>
      25. ''' <returns></returns>
      26. ''' <remarks>vorbelegt mit Standard-Wwert</remarks>
      28. Public Property Farbe2 As Color = Color.White
      30. ''' <summary>
      31. ''' der Style. Linie ist eingraviert, oder erhaben...
      32. ''' </summary>
      33. ''' <remarks>...bessere Bezeichnungen sind willkommen</remarks>
      34. Public Enum enumStyle
      35. engraved
      36. hovered
      37. End Enum
      39. Private _style As enumStyle = enumStyle.engraved
      40. ''' <summary>
      41. ''' der Style der Linie
      42. ''' </summary>
      43. ''' <value></value>
      44. ''' <returns></returns>
      45. ''' <remarks></remarks>
      46. Property Style As enumStyle
      47. Set(ByVal value As enumStyle)
      48. _style = value
      49. Select Case value
      50. Case enumStyle.engraved
      51. color_1 = Farbe1
      52. color_2 = Farbe2
      53. Case enumStyle.hovered
      54. color_1 = Farbe2
      55. color_2 = Farbe1
      56. End Select
      57. Me.Invalidate()
      58. End Set
      59. Get
      60. Return _style
      61. End Get
      62. End Property
      67. Private Sub control_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
      68. 'hier wird etwas getrickst:
      70. '......die erste Linie wird gezeichnet,
      72. Using p As New Pen(color_1, 1)
      73. With e.Graphics
      74. Select Case Ausrichtung
      75. Case enumAusrichtung.vertical
      76. .DrawLine(p, 0, 1, 0, Height)
      78. Case enumAusrichtung.horizontal
      81. .DrawLine(p, 1, 0, Width, 0)
      82. Case Else
      83. End Select
      84. End With
      85. End Using
      86. '......die zweite Linie ist die Hintergrundfarbe
      87. Me.BackColor = color_2
      88. End Sub
      90. Private Sub control_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
      91. 'Bei veränderung zur Entwurfszeit
      92. If Ausrichtung = enumAusrichtung.vertical Then
      93. Me.Size = New Size(2, Height)
      94. ElseIf Ausrichtung = enumAusrichtung.horizontal Then
      95. Me.Size = New Size(Width, 2)
      96. End If
      98. Me.Invalidate()
      99. End Sub
      102. Public Enum enumAusrichtung
      103. horizontal
      104. vertical
      105. End Enum
      107. Private _ausrichtung As enumAusrichtung = enumAusrichtung.horizontal
      108. ''' <summary>
      109. ''' die Ausrichtung der Linie
      110. ''' </summary>
      111. ''' <value></value>
      112. ''' <returns></returns>
      113. ''' <remarks></remarks>
      114. Public Property Ausrichtung As enumAusrichtung
      115. Set(ByVal value As enumAusrichtung)
      116. _ausrichtung = value
      118. If Ausrichtung = enumAusrichtung.vertical Then
      119. Me.Size = New Size(2, 100)
      120. ElseIf Ausrichtung = enumAusrichtung.horizontal Then
      121. Me.Size = New Size(100, 2)
      122. End If
      125. Me.Invalidate()
      126. End Set
      127. Get
      128. Return _ausrichtung
      129. End Get
      130. End Property
      132. Sub New()
      134. ' Dieser Aufruf ist für den Designer erforderlich.
      135. InitializeComponent()
      137. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
      138. Ausrichtung = enumAusrichtung.horizontal
      139. Style = enumStyle.engraved
      140. End Sub
      142. End Class


      LG, der_Kurt

    Facebook