Aero Efekt Problem

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Dayshadow119.

    Aero Efekt Problem

    Guten Tag,

    ich habe bei einer Form den Aero Efekt angewendet blos hab ich nun ein Problem .
    Wenn ich in meine Richtextbox etwas hineinschreibe ist die Farbe Blau manchmal hell manchmal dunkel
    hier mal ein kleiner Screen:

    Das liegt daran das Labels so nicht auf dem Glass funktionieren. Entweder per GDI zeichnen oder dieses Control benutzen:

    VB.NET-Quellcode

    1. Public Class MegaLabel
    2. Inherits Label
    4. Dim Glass As New Glass_Full
    5. Dim Panel As New Rectangle
    7. Dim _Font As Font
    8. Dim _FontSize As Integer
    9. Dim _Text As String
    11. Private Sub DrawText()
    12. Glass.DrawTextOnGlass(Me.Parent.Handle, _Text, _Font, Panel, _FontSize)
    13. Me.Visible = False
    14. End Sub
    16. Private Sub MegaLabel_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    17. If DesignMode = False Then
    18. Me.Visible = True
    19. _Font = Me.Font
    20. _FontSize = Me.Font.Size
    21. _Text = Me.Text
    22. Me.Visible = False
    23. Panel.Size = New Size(Me.Size.Width, Me.Size.Height)
    24. Panel.Location = New Point(Me.Location.X, Me.Location.Y)
    25. DrawText()
    26. End If
    27. End Sub
    28. End Class


    Quelle: dreamincode.net/forums/topic/1…glass-form-dwmapidll-api/

    @Image: Bin ganz deiner Meinung, man kann nicht alles wissen aber wer es nicht schafft sich ein Text durchzulesen sollte es lieber lassen. Trotzdem habe ich heute einen guten Tag und möchte dem TE helfen.

    Du erstellst eine neue Klasse (Class) und kopierst das hier rein:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections.Generic
    3. Imports System.Text
    4. Imports System.Drawing
    5. Imports System.Windows.Forms
    6. Imports System.Runtime.InteropServices
    7. Imports System.Diagnostics
    10. Friend Class Glass_Full
    11. Private Const DTT_COMPOSITED As Integer = CInt((1 << 13))
    12. Private Const DTT_GLOWSIZE As Integer = CInt((1 << 11))
    14. 'Text format consts
    15. Private Const DT_SINGLELINE As Integer = &H20
    16. Private Const DT_CENTER As Integer = &H1
    17. Private Const DT_VCENTER As Integer = &H4
    18. Private Const DT_NOPREFIX As Integer = &H800
    20. 'Const for BitBlt
    21. Private Const SRCCOPY As Integer = &HCC0020
    24. 'Consts for CreateDIBSection
    25. Private Const BI_RGB As Integer = 0
    26. Private Const DIB_RGB_COLORS As Integer = 0
    27. 'color table in RGBs
    28. Private Structure MARGINS
    29. Public m_Left As Integer
    30. Public m_Right As Integer
    31. Public m_Top As Integer
    32. Public m_Buttom As Integer
    33. End Structure
    35. Private Structure POINTAPI
    36. Public x As Integer
    37. Public y As Integer
    38. End Structure
    40. Private Structure DTTOPTS
    41. Public dwSize As UInteger
    42. Public dwFlags As UInteger
    43. Public crText As UInteger
    44. Public crBorder As UInteger
    45. Public crShadow As UInteger
    46. Public iTextShadowType As Integer
    47. Public ptShadowOffset As POINTAPI
    48. Public iBorderSize As Integer
    49. Public iFontPropId As Integer
    50. Public iColorPropId As Integer
    51. Public iStateId As Integer
    52. Public fApplyOverlay As Integer
    53. Public iGlowSize As Integer
    54. Public pfnDrawTextCallback As IntPtr
    55. Public lParam As Integer
    56. End Structure
    58. Private Structure RECT
    59. Public left As Integer
    60. Public top As Integer
    61. Public right As Integer
    62. Public bottom As Integer
    65. End Structure
    67. Private Structure BITMAPINFOHEADER
    68. Public biSize As Integer
    69. Public biWidth As Integer
    70. Public biHeight As Integer
    71. Public biPlanes As Short
    72. Public biBitCount As Short
    73. Public biCompression As Integer
    74. Public biSizeImage As Integer
    75. Public biXPelsPerMeter As Integer
    76. Public biYPelsPerMeter As Integer
    77. Public biClrUsed As Integer
    78. Public biClrImportant As Integer
    79. End Structure
    81. Private Structure RGBQUAD
    82. Public rgbBlue As Byte
    83. Public rgbGreen As Byte
    84. Public rgbRed As Byte
    85. Public rgbReserved As Byte
    86. End Structure
    88. Private Structure BITMAPINFO
    89. Public bmiHeader As BITMAPINFOHEADER
    90. Public bmiColors As RGBQUAD
    91. End Structure
    94. 'API declares
    95. <DllImport("dwmapi.dll")> _
    96. Private Shared Sub DwmIsCompositionEnabled(ByRef enabledptr As Integer)
    97. End Sub
    98. <DllImport("dwmapi.dll")> _
    99. Private Shared Sub DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef margin As MARGINS)
    100. End Sub
    103. Private Declare Auto Function GetDC Lib "user32.dll" (ByVal hdc As IntPtr) As IntPtr
    104. Private Declare Auto Function SaveDC Lib "gdi32.dll" (ByVal hdc As IntPtr) As Integer
    105. Private Declare Auto Function ReleaseDC Lib "user32.dll" (ByVal hdc As IntPtr, ByVal state As Integer) As Integer
    106. Private Declare Auto Function CreateCompatibleDC Lib "gdi32.dll" (ByVal hDC As IntPtr) As IntPtr
    107. <DllImport("gdi32.dll", ExactSpelling:=True)> _
    108. Private Shared Function SelectObject(ByVal hDC As IntPtr, ByVal hObject As IntPtr) As IntPtr
    109. End Function
    110. Private Declare Auto Function DeleteObject Lib "gdi32.dll" (ByVal hObject As IntPtr) As Boolean
    111. Private Declare Auto Function DeleteDC Lib "gdi32.dll" (ByVal hdc As IntPtr) As Boolean
    112. <DllImport("gdi32.dll")> _
    113. Private Shared Function BitBlt(ByVal hdc As IntPtr, ByVal nXDest As Integer, ByVal nYDest As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hdcSrc As IntPtr, _
    114. ByVal nXSrc As Integer, ByVal nYSrc As Integer, ByVal dwRop As UInteger) As Boolean
    115. End Function
    117. Private Declare Unicode Function DrawThemeTextEx Lib "UxTheme.dll" (ByVal hTheme As IntPtr, ByVal hdc As IntPtr, ByVal iPartId As Integer, ByVal iStateId As Integer, ByVal text As String, ByVal iCharCount As Integer, _
    118. ByVal dwFlags As Integer, ByRef pRect As RECT, ByRef pOptions As DTTOPTS) As Integer
    119. Private Declare Auto Function DrawThemeText Lib "UxTheme.dll" (ByVal hTheme As IntPtr, ByVal hdc As IntPtr, ByVal iPartId As Integer, ByVal iStateId As Integer, ByVal text As String, ByVal iCharCount As Integer, _
    120. ByVal dwFlags1 As Integer, ByVal dwFlags2 As Integer, ByRef pRect As RECT) As Integer
    121. Private Declare Auto Function CreateDIBSection Lib "gdi32.dll" (ByVal hdc As IntPtr, ByRef pbmi As BITMAPINFO, ByVal iUsage As UInteger, ByVal ppvBits As Integer, ByVal hSection As IntPtr, ByVal dwOffset As UInteger) As IntPtr
    123. Public Sub SetGlass(ByVal Form As Form)
    124. Dim en As Integer = 0
    125. Dim mg As New MARGINS()
    126. mg.m_Buttom = -1
    127. mg.m_Left = -1
    128. mg.m_Right = -1
    129. mg.m_Top = -1
    130. 'make sure you are not on a legacy OS
    131. If System.Environment.OSVersion.Version.Major >= 6 Then
    132. DwmIsCompositionEnabled(en)
    133. 'check if the desktop composition is enabled
    134. If en > 0 Then
    135. DwmExtendFrameIntoClientArea(Form.Handle, mg)
    136. Else
    137. Throw New ApplicationException("This computer does not have the areo interface enabled.")
    138. End If
    139. Else
    140. Throw New ApplicationException("This computer does not have the areo theme capibility.")
    141. End If
    142. End Sub
    144. Private Function IsCompositionEnabled() As Boolean
    146. If Environment.OSVersion.Version.Major < 6 Then
    147. Return False
    148. End If
    150. Dim compositionEnabled As Integer = 0
    151. DwmIsCompositionEnabled(compositionEnabled)
    152. If compositionEnabled > 0 Then
    153. Return True
    154. Else
    155. Return False
    158. End If
    159. End Function
    161. Public Sub FillBlackRegion(ByVal gph As Graphics, ByVal rgn As Rectangle)
    162. Dim rc As New RECT()
    163. rc.left = rgn.Left
    164. rc.right = rgn.Right
    165. rc.top = rgn.Top
    166. rc.bottom = rgn.Bottom
    168. Dim destdc As IntPtr = gph.GetHdc()
    169. 'hwnd must be the handle of form,not control
    170. Dim Memdc As IntPtr = CreateCompatibleDC(destdc)
    171. Dim bitmap As IntPtr
    172. Dim bitmapOld As IntPtr = IntPtr.Zero
    174. Dim dib As New BITMAPINFO()
    175. dib.bmiHeader.biHeight = -(rc.bottom - rc.top)
    176. dib.bmiHeader.biWidth = rc.right - rc.left
    177. dib.bmiHeader.biPlanes = 1
    178. dib.bmiHeader.biSize = Marshal.SizeOf(GetType(BITMAPINFOHEADER))
    179. dib.bmiHeader.biBitCount = 32
    180. dib.bmiHeader.biCompression = BI_RGB
    181. If Not (SaveDC(Memdc) = 0) Then
    182. bitmap = CreateDIBSection(Memdc, dib, DIB_RGB_COLORS, 0, IntPtr.Zero, 0)
    183. If Not (bitmap = IntPtr.Zero) Then
    184. bitmapOld = SelectObject(Memdc, bitmap)
    186. BitBlt(destdc, rc.left, rc.top, rc.right - rc.left, rc.bottom - rc.top, Memdc, _
    187. 0, 0, SRCCOPY)
    188. End If
    190. 'Remember to clean up
    191. SelectObject(Memdc, bitmapOld)
    193. DeleteObject(bitmap)
    195. ReleaseDC(Memdc, -1)
    198. DeleteDC(Memdc)
    199. End If
    201. gph.ReleaseHdc()
    202. End Sub
    204. Public Sub DrawTextOnGlass(ByVal hwnd As IntPtr, ByVal text As [String], ByVal font As Font, ByVal ctlrct As Rectangle, ByVal iglowSize As Integer)
    205. If IsCompositionEnabled() Then
    206. Dim rc As New RECT()
    207. Dim rc2 As New RECT()
    209. rc.left = ctlrct.Left
    210. rc.right = ctlrct.Right + 2 * iglowSize
    211. 'make it larger to contain the glow effect
    212. rc.top = ctlrct.Top
    213. rc.bottom = ctlrct.Bottom + 2 * iglowSize
    215. 'Just the same rect with rc,but (0,0) at the lefttop
    216. rc2.left = 0
    217. rc2.top = 0
    218. rc2.right = rc.right - rc.left
    219. rc2.bottom = rc.bottom - rc.top
    221. Dim destdc As IntPtr = GetDC(hwnd)
    222. 'hwnd must be the handle of form,not control
    223. Dim Memdc As IntPtr = CreateCompatibleDC(destdc)
    224. ' Set up a memory DC where we'll draw the text.
    225. Dim bitmap As IntPtr
    226. Dim bitmapOld As IntPtr = IntPtr.Zero
    227. Dim logfnotOld As IntPtr
    229. Dim uFormat As Integer = DT_SINGLELINE Or DT_CENTER Or DT_VCENTER Or DT_NOPREFIX
    230. 'text format
    231. Dim dib As New BITMAPINFO()
    232. dib.bmiHeader.biHeight = -(rc.bottom - rc.top)
    233. ' negative because DrawThemeTextEx() uses a top-down DIB
    234. dib.bmiHeader.biWidth = rc.right - rc.left
    235. dib.bmiHeader.biPlanes = 1
    236. dib.bmiHeader.biSize = Marshal.SizeOf(GetType(BITMAPINFOHEADER))
    237. dib.bmiHeader.biBitCount = 32
    238. dib.bmiHeader.biCompression = BI_RGB
    239. If Not (SaveDC(Memdc) = 0) Then
    240. bitmap = CreateDIBSection(Memdc, dib, DIB_RGB_COLORS, 0, IntPtr.Zero, 0)
    241. ' Create a 32-bit bmp for use in offscreen drawing when glass is on
    242. If Not (bitmap = IntPtr.Zero) Then
    243. bitmapOld = SelectObject(Memdc, bitmap)
    244. Dim hFont As IntPtr = font.ToHfont()
    245. logfnotOld = SelectObject(Memdc, hFont)
    246. Try
    248. Dim renderer As New System.Windows.Forms.VisualStyles.VisualStyleRenderer(System.Windows.Forms.VisualStyles.VisualStyleElement.window.Caption.Active)
    250. Dim dttOpts As New DTTOPTS()
    252. dttOpts.dwSize = CUInt(Marshal.SizeOf(GetType(DTTOPTS)))
    254. dttOpts.dwFlags = DTT_COMPOSITED Or DTT_GLOWSIZE
    257. dttOpts.iGlowSize = iglowSize
    259. DrawThemeTextEx(renderer.Handle, Memdc, 0, 0, text, -1, _
    260. uFormat, rc2, dttOpts)
    262. BitBlt(destdc, rc.left, rc.top, rc.right - rc.left, rc.bottom - rc.top, Memdc, _
    263. 0, 0, SRCCOPY)
    264. Catch e As Exception
    265. Trace.WriteLine(e.Message)
    266. End Try
    268. 'Remember to clean up
    269. SelectObject(Memdc, bitmapOld)
    270. SelectObject(Memdc, logfnotOld)
    271. DeleteObject(bitmap)
    272. DeleteObject(hFont)
    274. ReleaseDC(Memdc, -1)
    276. DeleteDC(Memdc)
    278. End If
    280. End If
    282. End If
    283. End Sub
    284. End Class


    Dann erstellst du eine zweite Klasse und fügst den von mir oben genannten Code rein.
    Danach erstellst du dein Projekt neu (Rechtsklick auf das Projekt und 'Neu erstellen') nun hast du vermutlich ein Control in der Toolbox was "MegaLabel" etc. heißt und das ziehst du dir auf die Form.

Facebook
Telefonspende