teilweise transparentes label auf picturebox?

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von vanitas-mundi.

    teilweise transparentes label auf picturebox?

    hallo alle zusammen!

    gibt es eine möglichkeit ein label über eine picturebox zu setzen und anschließend die hintergrundfarbe des labels auf z.b. grau zu stellen und dennoch die picturebox leicht durchschimmern zu lassen?

    da sowohl die größe und der inhalt der picturebox als auch die größe und text des labels variabel sein sollte ist es leider nicht möglich den text inkl. durchschimmerndem hintergrund schon vorher auf das bild zu "malen" mit hilfe eines bildbearbeitungsprogramm.

    LG

    Hi

    Leichte Transparenz kannst du über Color.FromArgb(Alpha, Rot, Grün, Blau) erreichen. Eine geschicktere Möglichkeit wäre, wenn du statt dem Label die DrawString und FillRectangle methoden von PictureBoxN.CreateGraphics verwenden würdest...

    Allerdings wird das Label trotzdem nur den Form hintergrund(bzw. den Containerhintergrund) als transparenz machen.

    Gruß
    ~blaze~

    Hallo!

    Von ~blaze~ inspiriert habe ich schnell einmal ein nettes OpacityLabel
    gebastelt, welches ich Interessierten hier gerne zur Verfügung stellen
    wollte:

    VB.NET-Quellcode

    1. Option Explicit On
    2. Option Strict On
    3. Option Infer On
    5. Namespace Windows.Forms
    7. #Region " --------------->> Klasse <ClassName> "
    8. Public Class OpacityLabelControl
    10. Inherits ScrollableControl
    13. #Region " --------------->> Enumerationen der Klasse "
    14. '{Enumerationen}
    15. #End Region '{Enumerationen der Klasse}
    17. #Region " --------------->> Eigenschaften der Klasse "
    18. '{Eigenschaften}
    19. Public Event FadeInComplete(ByVal sender As Object, ByVal e As EventArgs)
    20. Public Event FadeOutComplete(ByVal sender As Object, ByVal e As EventArgs)
    22. Private _DoFadeInAndOut As Boolean = False
    23. Private WithEvents _StayTimer As New Timer
    24. Private _StayDelayTime As Int32
    25. Private _FadeOutDelayTime As Int32
    27. Private _FadeOpacityDelta As Int32
    28. Private _FadeCount As Int32 = 10
    29. Private _CurrentFadeCount As Int32
    31. Private _ShadowEddect As Boolean = False
    32. Private _ForeColor2 As Color = System.Drawing.SystemColors.ControlText
    33. Private WithEvents _Timer As New Timer
    34. Private _Opacity As Int32 = 100
    35. Private _GradiantMode As Drawing2D.LinearGradientMode _
    36. = Drawing2D.LinearGradientMode.BackwardDiagonal
    37. #End Region '{Eigenschaften der Klasse}
    39. #Region " --------------->> Konstruktor und Destruktor der Klasse "
    40. '{Konstruktor/ Destruktor}
    41. Public Sub New()
    42. MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
    43. Me.BackColor = Color.Transparent
    44. Me.Opacity = 100
    45. End Sub
    46. #End Region '{Konstruktor und Destruktor der Klasse}
    48. #Region " --------------->> Zugriffsmethoden der Klasse "
    49. '{Zugrifsmethoden}
    50. Public Property ShadowEddect() As Boolean
    51. Get
    52. Return _ShadowEddect
    53. End Get
    54. Set(ByVal value As Boolean)
    55. _ShadowEddect = value
    56. End Set
    57. End Property
    59. Public Property GradiantMode() As Drawing2D.LinearGradientMode
    60. Get
    61. Return _GradiantMode
    62. End Get
    63. Set(ByVal value As Drawing2D.LinearGradientMode)
    64. _GradiantMode = value
    65. Me.Refresh()
    66. End Set
    67. End Property
    69. Public Property ForeColor2() As Color
    70. Get
    71. Return _ForeColor2
    72. End Get
    73. Set(ByVal value As Color)
    74. _ForeColor2 = value
    75. Me.Refresh()
    76. End Set
    77. End Property
    79. Public Property Opacity() As Int32
    80. Get
    81. Return _Opacity
    82. End Get
    83. Set(ByVal value As Int32)
    84. Select Case value
    85. Case Is < 0
    86. _Opacity = 0
    87. Case 0 To 100
    88. _Opacity = value
    89. Case Is > 100
    90. _Opacity = 100
    91. End Select
    92. Me.Refresh()
    93. End Set
    94. End Property
    95. #End Region '{Zugriffsmethoden der Klasse}
    97. #Region " --------------->> Ereignismethoden der Klasse "
    98. '{Ereignismethoden}
    99. Private Sub OpacityLabel_Paint _
    100. (ByVal sender As Object _
    101. , ByVal e As System.Windows.Forms.PaintEventArgs) _
    102. Handles Me.Paint
    104. e.Graphics.SmoothingMode _
    105. = Drawing.Drawing2D.SmoothingMode.AntiAlias
    106. e.Graphics.TextRenderingHint _
    107. = Drawing.Text.TextRenderingHint.ClearTypeGridFit
    109. Dim opacity As Int32 = CType((255 * _Opacity) / 100, Int32)
    110. Dim size = e.Graphics.MeasureString(Me.Text, Me.Font)
    111. Dim rect As New Rectangle(0, 0 _
    112. , CType(size.Width - 1, Int32) _
    113. , CType(size.Height - 1, Int32))
    115. Me.Size = New Size(CType(size.Width + 1, Int32) _
    116. , CType(size.Height + 1, Int32))
    118. If Me.ShadowEddect Then
    120. Dim shadowColor As Color = Color.FromArgb _
    121. (opacity, BCW.etc.Functions.GenerateBrightColor(Me.ForeColor, 150))
    122. Dim shadowColor2 As Color = Color.FromArgb _
    123. (opacity, BCW.etc.Functions.GenerateBrightColor(Me.ForeColor2, 150))
    125. Using shadowBrush As New System.Drawing.Drawing2D.LinearGradientBrush _
    126. (rect _
    127. , Color.FromArgb(opacity, shadowColor) _
    128. , Color.FromArgb(opacity, shadowColor2) _
    129. , Me.GradiantMode)
    130. e.Graphics.DrawString(Me.Text, Me.Font, shadowBrush, 1, 1)
    131. End Using
    132. End If
    134. Using b As New System.Drawing.Drawing2D.LinearGradientBrush _
    135. (rect _
    136. , Color.FromArgb(opacity, Me.ForeColor) _
    137. , Color.FromArgb(opacity, Me.ForeColor2) _
    138. , Me.GradiantMode)
    139. e.Graphics.DrawString(Me.Text, Me.Font, b, 0, 0)
    140. End Using
    141. End Sub
    143. Private Sub OpacityLabel_FadeInComplete _
    144. (ByVal sender As Object _
    145. , ByVal e As System.EventArgs) _
    146. Handles Me.FadeInComplete
    148. If Not _DoFadeInAndOut Then Exit Sub
    149. _StayTimer.Interval = _StayDelayTime
    150. _StayTimer.Start()
    151. End Sub
    153. Private Sub onFadeOutComplete _
    154. (ByVal sender As Object _
    155. , ByVal e As System.EventArgs) _
    156. Handles Me.FadeOutComplete
    158. _DoFadeInAndOut = False
    159. End Sub
    161. Private Sub _StayTimer_Tick _
    162. (ByVal sender As Object _
    163. , ByVal e As System.EventArgs) _
    164. Handles _StayTimer.Tick
    166. _StayTimer.Stop()
    167. Me.FadeOut(_FadeOutDelayTime)
    168. End Sub
    170. Private Sub _Timer_Tick _
    171. (ByVal sender As Object _
    172. , ByVal e As System.EventArgs) _
    173. Handles _Timer.Tick
    175. _CurrentFadeCount -= 1
    176. Me.Opacity += _FadeOpacityDelta
    177. If _CurrentFadeCount = 0 Then
    178. _Timer.Stop()
    179. If Me.Opacity > 50 Then
    180. Me.Opacity = 100
    181. RaiseEvent FadeInComplete(Me, New EventArgs)
    182. Else
    183. Me.Opacity = 0
    184. RaiseEvent FadeOutComplete(Me, New EventArgs)
    185. End If
    186. End If
    187. End Sub
    188. #End Region
    190. #Region " --------------->> Private Methoden der Klasse "
    191. '{Private Methoden}
    192. #End Region '{Private Methoden der Klasse}
    194. #Region " --------------->> Öffentliche Methoden der Klasse "
    195. '{Öffentliche Methoden}
    196. Public Sub FadeIn(ByVal delayTime As Int32)
    197. Me.Opacity = 0
    198. _Timer.Interval = delayTime \ _FadeCount
    199. _FadeOpacityDelta = (100 \ _FadeCount)
    200. _CurrentFadeCount = _FadeCount
    201. _Timer.Start()
    202. End Sub
    204. Public Sub FadeOut(ByVal delayTime As Int32)
    205. Me.Opacity = 100
    206. _Timer.Interval = delayTime \ _FadeCount
    207. _FadeOpacityDelta = (100 \ _FadeCount) * -1
    208. _CurrentFadeCount = _FadeCount
    209. _Timer.Start()
    210. End Sub
    212. Public Sub FadeInAndOut _
    213. (ByVal fadeInDelayTime As Int32 _
    214. , ByVal stayDelayTime As Int32 _
    215. , ByVal fadeOutDelayTime As Int32)
    217. _StayDelayTime = stayDelayTime
    218. _FadeOutDelayTime = fadeOutDelayTime
    219. _DoFadeInAndOut = True
    220. Me.FadeIn(fadeInDelayTime)
    221. End Sub
    222. #End Region 'Öffentliche Methoden der Klasse}
    224. End Class
    226. #End Region '{Klasse <ClassName>}
    228. End Namespace


    Über die Opacity-Eigenschaft kann die Transparenz eingestellt werden, wobei 0 komplette
    Tranzparenz bedeuetet und 100 voll sichtbar.

    Viel Spaß damit :)