TSB wird bei Maximierung Schwarz - DockProblem mit TSB

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von mbfan.

    TSB wird bei Maximierung Schwarz - DockProblem mit TSB

    Hallo,
    ich habe ein Problem mit meinem aktuellen Programmversuch.
    Ich habe mit dem TSB-Code (weiß nicht mehr von wo genau in diesem Forum hier) ein ToolStrip in die Fensterleiste gemacht. Ich habe nun zwei Probleme:
    1. Wenn ich die Form maximiere, wird die Fenserleiste oben schwarz, wie es in Vista normalerweise ist.
    Kann man das unter Win7 ändern?
    2. Ich habe in der Form ein TableLayout drin. Wenn ich das nicht auf Dock = None stelle, kann ich das Fenster an den Seiten nicht mehr bewegen, da die Ränder vom TL überlagert werden.
    Kann man das ändern?
    Spoiler anzeigen
    Das Ergebnis

    VB.NET-Quellcode

    1. Public Class Hauptform
    3. Private Sub Hauptform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. End Sub
    7. #Region " TSB-Code "
    9. Private dwmMargins As Dwm.MARGINS
    10. Private _marginOk As Boolean
    11. Private _aeroEnabled As Boolean
    13. Public Sub New()
    14. If Environment.OSVersion.Version.Major >= 6 Then
    15. Dim enabled As Integer = 0
    16. Dim response As Integer = Dwm.DwmIsCompositionEnabled(enabled)
    17. _aeroEnabled = enabled = 1
    18. End If
    19. If _aeroEnabled = True Then
    20. SetStyle(ControlStyles.ResizeRedraw, True)
    22. InitializeComponent()
    24. ToolStrip1.Renderer = New NCARenderer()
    25. DoubleBuffered = True
    26. End If
    28. End Sub
    30. Public Shared Function LoWord(ByVal dwValue As Integer) As Integer
    31. Return dwValue And &HFFFF
    32. End Function
    34. Public Shared Function HiWord(ByVal dwValue As Integer) As Integer
    35. Return (dwValue >> 16) And &HFFFF
    36. End Function
    38. Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    39. If _aeroEnabled = True Then
    40. ToolStrip1.MaximumSize = New Size(Width - 100 - ToolStrip1.Left, 0)
    41. End If
    42. End Sub
    44. Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
    45. If _aeroEnabled = True Then
    46. If dwmMargins.cyTopHeight < ToolStrip1.Bottom Then
    47. dwmMargins.cyTopHeight = ToolStrip1.Bottom
    48. End If
    49. Dwm.DwmExtendFrameIntoClientArea(Me.Handle, dwmMargins)
    50. 'ToolStripButton2.Visible = True
    51. Else
    52. 'ToolStripButton2.Visible = False
    53. End If
    54. End Sub
    56. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    57. If _aeroEnabled Then
    58. e.Graphics.Clear(Color.Transparent)
    59. e.Graphics.FillRectangle(SystemBrushes.ButtonFace, Rectangle.FromLTRB(dwmMargins.cxLeftWidth - 0, dwmMargins.cyTopHeight - 0, Width - dwmMargins.cxRightWidth - 0, Height - dwmMargins.cyBottomHeight - 0))
    60. Else
    61. e.Graphics.Clear(Color.FromArgb(&HC2, &HD9, &HF7))
    62. End If
    63. End Sub
    65. Protected Overrides Sub WndProc(ByRef m As Message)
    66. Dim WM_NCCALCSIZE As Integer = &H83
    67. Dim WM_NCHITTEST As Integer = &H84
    68. Dim result As IntPtr
    70. Dim dwmHandled As Integer = Dwm.DwmDefWindowProc(m.HWnd, m.Msg, m.WParam, m.LParam, result)
    72. If dwmHandled = 1 Then
    73. m.Result = result
    74. Return
    75. End If
    77. If m.Msg = WM_NCCALCSIZE AndAlso CInt(m.WParam) = 1 Then
    78. Dim nccsp As SIZE_PARAMS = CType(System.Runtime.InteropServices.Marshal.PtrToStructure(m.LParam, GetType(SIZE_PARAMS)), SIZE_PARAMS)
    80. nccsp.rect0.Top += 0
    81. nccsp.rect0.Bottom += 0
    82. nccsp.rect0.Left += 0
    83. nccsp.rect0.Right += 0
    85. If (Not _marginOk) Then
    86. dwmMargins.cyTopHeight = nccsp.rect2.Top - nccsp.rect1.Top
    87. dwmMargins.cxLeftWidth = nccsp.rect2.Left - nccsp.rect1.Left
    88. dwmMargins.cyBottomHeight = nccsp.rect1.Bottom - nccsp.rect2.Bottom
    89. dwmMargins.cxRightWidth = nccsp.rect1.Right - nccsp.rect2.Right
    90. _marginOk = True
    91. End If
    93. System.Runtime.InteropServices.Marshal.StructureToPtr(nccsp, m.LParam, False)
    95. m.Result = IntPtr.Zero
    96. ElseIf m.Msg = WM_NCHITTEST AndAlso CInt(m.Result) = 0 Then
    97. m.Result = HitTestNCA(m.HWnd, m.WParam, m.LParam)
    98. Else
    99. MyBase.WndProc(m)
    100. End If
    101. End Sub
    103. Private Function HitTestNCA(ByVal hwnd As IntPtr, ByVal wparam As IntPtr, ByVal lparam As IntPtr) As IntPtr
    104. Dim HTCLIENT As Integer = 1
    105. Dim HTCAPTION As Integer = 2
    106. Dim HTLEFT As Integer = 10
    107. Dim HTRIGHT As Integer = 11
    108. Dim HTTOP As Integer = 12
    109. Dim HTTOPLEFT As Integer = 13
    110. Dim HTTOPRIGHT As Integer = 14
    111. Dim HTBOTTOM As Integer = 15
    112. Dim HTBOTTOMLEFT As Integer = 16
    113. Dim HTBOTTOMRIGHT As Integer = 17
    115. Dim p As New Point(LoWord(CInt(lparam)), HiWord(CInt(lparam)))
    117. Dim topleft As Rectangle = RectangleToScreen(New Rectangle(0, 0, dwmMargins.cxLeftWidth, dwmMargins.cxLeftWidth))
    119. If topleft.Contains(p) Then
    120. Return New IntPtr(HTTOPLEFT)
    121. End If
    123. Dim topright As Rectangle = RectangleToScreen(New Rectangle(Width - dwmMargins.cxRightWidth, 0, dwmMargins.cxRightWidth, dwmMargins.cxRightWidth))
    125. If topright.Contains(p) Then
    126. Return New IntPtr(HTTOPRIGHT)
    127. End If
    129. Dim botleft As Rectangle = RectangleToScreen(New Rectangle(0, Height - dwmMargins.cyBottomHeight, dwmMargins.cxLeftWidth, dwmMargins.cyBottomHeight))
    131. If botleft.Contains(p) Then
    132. Return New IntPtr(HTBOTTOMLEFT)
    133. End If
    135. Dim botright As Rectangle = RectangleToScreen(New Rectangle(Width - dwmMargins.cxRightWidth, Height - dwmMargins.cyBottomHeight, dwmMargins.cxRightWidth, dwmMargins.cyBottomHeight))
    137. If botright.Contains(p) Then
    138. Return New IntPtr(HTBOTTOMRIGHT)
    139. End If
    141. Dim top As Rectangle = RectangleToScreen(New Rectangle(0, 0, Width, dwmMargins.cxLeftWidth))
    143. If top.Contains(p) Then
    144. Return New IntPtr(HTTOP)
    145. End If
    147. Dim cap As Rectangle = RectangleToScreen(New Rectangle(0, dwmMargins.cxLeftWidth, Width, dwmMargins.cyTopHeight - dwmMargins.cxLeftWidth))
    149. If cap.Contains(p) Then
    150. Return New IntPtr(HTCAPTION)
    151. End If
    153. Dim left As Rectangle = RectangleToScreen(New Rectangle(0, 0, dwmMargins.cxLeftWidth, Height))
    155. If left.Contains(p) Then
    156. Return New IntPtr(HTLEFT)
    157. End If
    159. Dim right As Rectangle = RectangleToScreen(New Rectangle(Width - dwmMargins.cxRightWidth, 0, dwmMargins.cxRightWidth, Height))
    161. If right.Contains(p) Then
    162. Return New IntPtr(HTRIGHT)
    163. End If
    165. Dim bottom As Rectangle = RectangleToScreen(New Rectangle(0, Height - dwmMargins.cyBottomHeight, Width, dwmMargins.cyBottomHeight))
    167. If bottom.Contains(p) Then
    168. Return New IntPtr(HTBOTTOM)
    169. End If
    170. Return New IntPtr(HTCLIENT)
    171. End Function
    172. #End Region
    175. End Class
    Mein TSB-Code in der Hauptform

    VB.NET-Quellcode

    1. Option Explicit On
    2. Option Strict On
    4. Imports System.Runtime.InteropServices
    5. Imports System.Drawing.Drawing2D
    8. #Region "DWM"
    9. Public Class Dwm
    10. _
    11. Public Shared Function DwmDefWindowProc(ByVal hwnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr, ByRef result As IntPtr) As Integer
    12. End Function
    14. _
    15. Public Shared Function DwmIsCompositionEnabled(ByRef pfEnabled As Integer) As Integer
    16. End Function
    18. _
    19. Public Shared Function DwmExtendFrameIntoClientArea(ByVal hdc As IntPtr, ByRef marInset As MARGINS) As Integer
    20. End Function
    22. _
    23. Public Structure MARGINS
    24. Public cxLeftWidth As Integer
    25. Public cxRightWidth As Integer
    26. Public cyTopHeight As Integer
    27. Public cyBottomHeight As Integer
    29. Public Sub New(ByVal Left As Integer, ByVal Right As Integer, ByVal Top As Integer, ByVal Bottom As Integer)
    30. Me.cxLeftWidth = Left
    31. Me.cxRightWidth = Right
    32. Me.cyTopHeight = Top
    33. Me.cyBottomHeight = Bottom
    34. End Sub
    35. End Structure
    36. End Class
    37. #End Region
    40. #Region "NCARenderer"
    41. Public Class NCARenderer
    42. Inherits Office2007Renderer.Office2007Renderer
    44. Protected Overrides Sub OnRenderToolStripBackground(ByVal e As ToolStripRenderEventArgs)
    45. If e.ToolStrip.IsDropDown Then
    46. MyBase.OnRenderToolStripBackground(e)
    47. Else
    48. e.Graphics.Clear(Color.Transparent)
    49. End If
    50. End Sub
    52. Protected Overrides Sub OnRenderToolStripBorder(ByVal e As ToolStripRenderEventArgs)
    53. If e.ToolStrip.IsDropDown Then
    54. MyBase.OnRenderToolStripBorder(e)
    55. End If
    56. End Sub
    58. Protected Overrides Sub OnRenderItemText(ByVal e As ToolStripItemTextRenderEventArgs)
    59. If e.ToolStrip.IsDropDown Then
    60. MyBase.OnRenderItemText(e)
    61. Else
    62. Dim path As New GraphicsPath()
    63. path.AddString(e.Text, e.TextFont.FontFamily, CInt(Fix(e.TextFont.Style)), e.TextFont.Size + 2, e.TextRectangle.Location, New StringFormat())
    64. e.Graphics.SmoothingMode = SmoothingMode.HighQuality
    65. e.Graphics.FillPath(Brushes.Black, path)
    67. path.Dispose()
    68. End If
    69. End Sub
    71. Protected Overrides Sub OnRenderOverflowButtonBackground(ByVal e As ToolStripItemRenderEventArgs)
    72. If e.Item.Selected Then
    73. e.Graphics.Clear(Color.FromArgb(20, Color.Navy))
    74. End If
    76. Dim r As Rectangle = Rectangle.Empty
    77. If e.Item.RightToLeft = RightToLeft.Yes Then
    78. r = New Rectangle(0, e.Item.Height - 8, 9, 5)
    79. Else
    80. r = New Rectangle(e.Item.Width - 12, e.Item.Height - 16, 9, 5)
    81. End If
    83. MyBase.DrawArrow(New ToolStripArrowRenderEventArgs(e.Graphics, e.Item, r, SystemColors.ControlText, ArrowDirection.Down))
    85. e.Graphics.DrawLine(SystemPens.ControlText, CInt(Fix(r.Right - 7)), CInt(Fix(r.Y - 2)), CInt(Fix(r.Right - 3)), CInt(Fix(r.Y - 2)))
    86. End Sub
    87. End Class
    88. #End Region
    91. #Region "Api"
    92. _
    93. Public Structure RECT
    94. Public Left As Integer
    95. Public Top As Integer
    96. Public Right As Integer
    97. Public Bottom As Integer
    98. End Structure
    100. _
    101. Public Structure SIZE_PARAMS
    102. Public rect0, rect1, rect2 As RECT
    103. Public lppos As IntPtr
    104. End Structure
    105. #End Region
    Mein Code in der TSB.vb-Datei

    Wenn noch weitere Informationen benötigt werden, bitte einfach schreiben.
    mbfan
    You should live for that what you belive. - Drag-Drop Beschreibung

    Gut, dass da Option Strict On steht.
    Kannst Du den Code bitte so schreiben, dass beim Einfügen keine Fehler kommen?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich verstehe dein Anliegen leider nicht ganz.
    Beim Einfügen wohin?
    mbfan
    You should live for that what you belive. - Drag-Drop Beschreibung

    Du suchst eine Fehler und postest Code.
    Ich möchte Dir helfen und kopiere den Code in ein leeres Programm, um Deinen Effekt nachzuvollziehen.
    Dabei treten elementare Fehler auf, die Du hineingeschrieben hast und die ich nicht bereit bin, rauszumachen.
    Füge also Deinen Code in eine leere Programmhülse ein und Du wirst merken.
    z.B.
    Funktion ohne Rückgabewert.
    "_" -Zeilen im Code
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Add:
    Ich habe das Thema nun wieder gefunden, es war doch nicht hier.
    Ich habe folgendes verwendet:
    vbarchiv.net/tipps/tipp_1994-t…e-in-der-titelleiste.html
    mbfan
    You should live for that what you belive. - Drag-Drop Beschreibung

    Hättest Du selbst finden können:

    VB.NET-Quellcode

    1. Protected Overrides Sub OnRenderToolStripBackground(ByVal e As ToolStripRenderEventArgs)
    2. If e.ToolStrip.IsDropDown Then
    3. MyBase.OnRenderToolStripBackground(e)
    4. Else
    5. 'e.Graphics.Clear(Color.Transparent)
    6. e.Graphics.Clear(Color.Violet) ' schreib hier eine Farbe rein, die Dir gefällt.
    7. End If
    8. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Danke, jedoch hatte ich das eigentlich nicht gesucht.
    Wenn ich die Form Maximiere, wird die Titelleiste schwarz, nicht nur der Button. Wenn ich jedoch das Programm minimiere und dann wieder maximiere, ist dies nicht der Fall. Deswegen habe ich jetzt das Resize-Event dahingehend erweitert:

    VB.NET-Quellcode

    1. Dim maxi As Boolean = False
    2. ' Reaktion auf Form-Ereignisse
    3. Private Sub Form1_Resize(ByVal sender As Object, _
    4. ByVal e As System.EventArgs) Handles Me.Resize
    6. ToolStrip1.MaximumSize = New Size(Width - 100 - ToolStrip1.Left, 0)
    7. If WindowState = FormWindowState.Maximized Then
    8. If maxi = False Then
    9. maxi = True
    10. Me.WindowState = FormWindowState.Minimized
    11. Me.WindowState = FormWindowState.Maximized
    12. maxi = False
    13. End If
    14. End If
    15. End Sub

    Mit dem Dock-Problem könnte ich mir jetzt einen Grund herleiten: Wenn das Control TableLayoutPanel gedock wird, wird es aufgrund der Erweiterung des Client-Bereiches in den NonClient-Bereich ebenfalls über die eigentlichen Formränder erweitern werden. Ich hoffe, dass ich mit dieser Information das Problem lösen kann.
    mbfan
    You should live for that what you belive. - Drag-Drop Beschreibung

    Wie hast Du es hinbekommen, dass die üblichen Fenster-Boxen angezeigt werden (Minimize, Maximize, Close)?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Die waren nach dem Mini-Maximieren bei mir wieder da, ohne dass ich etwas gemacht habe.
    Das Dock-Problem habe ich nun ebenfalls "gelöst": Ich lasse Doch=None, aber ankere das TLP an allen vier Seiten. Das TLP muss beim Anfang eine Position von 10;30 haben und 10 Pixel vom rechten, linken und unteren Formende entfernt sein. Ins FormResize-Event muss dann nur noch diese kleine Erweiterung rein:

    VB.NET-Quellcode

    1. Dim maxi As Boolean = False
    2. ' Reaktion auf Form-Ereignisse
    3. Private Sub Form1_Resize(ByVal sender As Object, _
    4. ByVal e As System.EventArgs) Handles Me.Resize
    6. ToolStrip1.MaximumSize = New Size(Width - 100 - ToolStrip1.Left, 0)
    7. If WindowState = FormWindowState.Maximized Then
    8. If maxi = False Then
    9. maxi = True
    10. Me.WindowState = FormWindowState.Minimized
    11. Me.WindowState = FormWindowState.Maximized
    12. TableLayoutPanel1.Location = New Drawing.Point(14, 37)
    13. maxi = False
    14. End If
    15. Else
    16. TableLayoutPanel1.Location = New Drawing.Point(10, 30)
    17. End If
    18. End Sub

    mbfan
    You should live for that what you belive. - Drag-Drop Beschreibung

Facebook