Glowing Label - leuchtendes Label

    • VB.NET

      Glowing Label - leuchtendes Label

      Ein einfaches Label mit einem Leuchteffekt. Es erbt von Label, hat also diesselben Eigenschaften wie ein Label. Zusätzlich die Eigenschaft "Glowing"
      Ich habe heute hier eine Frage gelesen, und wollte mal testen, auf welche Art sowas am Besten funktioniert...

      VB.NET-Quellcode

      1. Public Class GlowingLabel
      2. 'erbt von Label
      3. Inherits Label
      5. Private _glowing As Boolean
      6. ''' <summary>
      7. ''' Bestimmt, ob das Leuchten angezeigt wird oder nicht
      8. ''' </summary>
      9. ''' <value></value>
      10. ''' <returns></returns>
      11. ''' <remarks></remarks>
      12. Public Property Glowing() As Boolean
      13. Get
      14. Return _glowing
      15. End Get
      16. Set(ByVal value As Boolean)
      18. _glowing = value
      19. Me.Refresh()
      20. End Set
      21. End Property
      24. Private Sub Glowlabel_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
      26. If Glowing = True Then
      28. 'setzt die Variablen für den Text, die Schriftart, und die Intensität des Randes
      29. Dim dertext As String = Text
      30. Dim derfont As Font = Font
      31. Dim grosserRand As Integer = 3
      32. Dim kleinerRand As Integer = 1
      33. Dim x, y As Integer
      36. With e.Graphics
      38. Dim schatten, schatten2, textfarbe As Brush
      39. schatten = Brushes.Red
      40. schatten2 = Brushes.Orange
      41. textfarbe = New SolidBrush(ForeColor)
      43. 'Hier wird gezeichnet.
      44. .DrawString(dertext, derfont, schatten2, x - grosserRand, y + grosserRand)
      45. .DrawString(dertext, derfont, schatten2, x + grosserRand, y - grosserRand)
      46. .DrawString(dertext, derfont, schatten2, x - grosserRand, y - grosserRand)
      47. .DrawString(dertext, derfont, schatten2, x + grosserRand, y + grosserRand)
      49. .DrawString(dertext, derfont, schatten, x - kleinerRand, y + kleinerRand)
      50. .DrawString(dertext, derfont, schatten, x + kleinerRand, y - kleinerRand)
      51. .DrawString(dertext, derfont, schatten, x - kleinerRand, y - kleinerRand)
      52. .DrawString(dertext, derfont, schatten, x + kleinerRand, y + kleinerRand)
      54. .DrawString(dertext, derfont, textfarbe, x, y)
      55. End With
      56. End If
      58. End Sub
      60. End Class


      LG, der_Kurt
      Bilder

      • Glowing Label.JPG

        7,75 kB, 296×110, 303 mal angesehen

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