在VB.NET中向标题栏（如Firefox4）添加按钮&；XP或Vista/7上的WPF或WinForms

我想知道是否有可能在vb.net中的标题栏中添加一个按钮-我找到了一种方法，可以在其中一个或另一个中添加按钮，但在两个上都可以吗

以下是禁用Aero时可用的代码（导入System.RunTime.InteropServices）：

Private Const WM\u NCPAINT As Integer=133
Private Const WM_NCMOUSEMOVE作为整数=160
私有常量WM_nclubuttondown为整数=161
私有常量WM_nup为整数=162
私有常量WM_nclbuttondblck作为整数=163
私有常量WM_NCACTIVATE为整数=134
Private Const wmncmouseleaveas Integer=674
私有标题栏矩形作为矩形
私人标题栏ButtonState作为ButtonState
私有标题ArmouseDown为布尔值
私有枚举按钮状态为字节
正常的
热的
按下
结束枚举
受保护的覆盖子WndProc（ByRef m As System.Windows.Forms.Message）
'在此处处理非客户端区域消息。
选择Case m.Msg
案例WM\U NCPAINT、WM\U NCACTIVE、WM\U NCMOUSELEVE
'处理消息并将按钮重置为正常状态
”“然后画出来。这将绘制初始的按钮并重新绘制
'如果标题栏需要绘制更新。
MyBase.WndProc（m）
标题栏按钮状态=按钮状态。正常
Title ArmouseIsDown=错误
DrawButton（标题栏按钮状态）
Case WM_NCMOUSEMOVE
'鼠标正在非客户端区域移动。
如果TitleBarButtonRectangle.Contains（GetNonClientPoint（CInt（m.LParam）），则
'鼠标位于按钮中
'如果鼠标已按下，则将其拖动（如果尚未按下）
'如果鼠标未按下，则将其加热（如果尚未按下）
如果标题栏是向下的，那么
如果标题栏按钮状态按钮状态。按下，则
标题栏按钮状态=按钮状态。按下
DrawButton（标题栏按钮状态）
如果结束
其他的
如果标题栏按钮状态为state.Hot，则
TitleBarButtonState=按钮状态。热
DrawButton（标题栏按钮状态）
如果结束
如果结束
其他的
'鼠标不在按钮中。
'如果鼠标已放下，则在
'鼠标移回按钮将被重新绘制并按下。
'否则，如果尚未绘制，则绘制为正常。
如果标题栏是向下的，那么
如果标题栏按钮状态为state.Hot，则
TitleBarButtonState=按钮状态。热
DrawButton（标题栏按钮状态）
如果结束
其他的
如果标题栏按钮状态按钮状态。正常，则
标题栏按钮状态=按钮状态。正常
DrawButton（标题栏按钮状态）
如果结束
如果结束
如果结束
“当鼠标落下并离开窗口时
"它将保持在高温或受压状态。当
“把鼠标放在窗外，它会移动的。”
'收到要重新绘制的消息。
'处理所有鼠标移动。
MyBase.WndProc（m）
案例WM_nclu Buttondown
在非客户端区域按住“鼠标左键”按钮
'如果鼠标位于按钮内，则将其状态更改为按下
”他说。请记住鼠标已放下。
如果TitleBarButtonRectangle.Contains（GetNonClientPoint（CInt（m.LParam）），则
标题栏按钮状态=按钮状态。按下
DrawButton（标题栏按钮状态）
TitleBarMouseIsDown=真
其他的
'处理在非客户端中单击的消息
'区域，但不在按钮中。
MyBase.WndProc（m）
如果结束
案例WM\U NUP
'正在非客户端区域释放鼠标
如果TitleBarButtonRectangle.Contains（GetNonClientPoint（CInt（m.LParam）），则
'鼠标已按下，鼠标位于按钮中。
"被压了。
TitleBarButtonState=按钮状态。热
DrawButton（标题栏按钮状态）
MsgBox（“标题栏按钮已单击”）
其他的
'处理消息并将按钮重置为正常（如果尚未设置）。
MyBase.WndProc（m）
如果标题栏按钮状态按钮状态。正常，则
标题栏按钮状态=按钮状态。正常
DrawButton（标题栏按钮状态）
如果结束
如果结束
'重置鼠标已按下
Title ArmouseIsDown=错误
案例WM_nclundblclk
'鼠标已在非客户端区域双击。
'如果光标位于按钮中，则不要处理双击
'如果处理，表单将更改窗口状态。
如果不是TitleBarButtonRectangle.Contains（GetNonClientPoint（CInt（m.LParam）），则
MyBase.WndProc（m）
如果结束
其他情况
'处理常规消息
MyBase.WndProc（m）
结束选择
端接头
私有函数GetNonClientPoint（ByVal lParam作为整数）作为点
"老窝!
Private Const WM_NCPAINT As Integer = 133
Private Const WM_NCMOUSEMOVE As Integer = 160
Private Const WM_NCLBUTTONDOWN As Integer = 161
Private Const WM_NCLBUTTONUP As Integer = 162
Private Const WM_NCLBUTTONDBLCLK As Integer = 163
Private Const WM_NCACTIVATE As Integer = 134
Private Const WM_NCMOUSELEAVE As Integer = 674

Private TitleBarButtonRectangle As Rectangle
Private TitleBarButtonState As ButtonState
Private TitleBarMouseIsDown As Boolean

Private Enum ButtonState As Byte
    Normal
    Hot
    Pressed
End Enum




Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    'Process the non client area messages here.

    Select Case m.Msg

        Case WM_NCPAINT, WM_NCACTIVATE, WM_NCMOUSELEAVE
            'process the message and reset the <strong class="highlight">button</strong> to the normal state
            'and draw it. This will draw the initial <strong class="highlight">button</strong> and repaint it
            'if the title bar needs a paint update.
            MyBase.WndProc(m)
            TitleBarButtonState = ButtonState.Normal
            TitleBarMouseIsDown = False
            DrawButton(TitleBarButtonState)

        Case WM_NCMOUSEMOVE
            'The mouse is moving in the non client area.

            If TitleBarButtonRectangle.Contains(GetNonClientPoint(CInt(m.LParam))) Then
                'the mouse is in the <strong class="highlight">button</strong>
                'If the mouse is down then draw it pressed if not already
                'If the mouse is not down then draw it hot if not already
                If TitleBarMouseIsDown Then
                    If TitleBarButtonState <> ButtonState.Pressed Then
                        TitleBarButtonState = ButtonState.Pressed
                        DrawButton(TitleBarButtonState)
                    End If
                Else
                    If TitleBarButtonState <> ButtonState.Hot Then
                        TitleBarButtonState = ButtonState.Hot
                        DrawButton(TitleBarButtonState)
                    End If
                End If

            Else
                'The mouse is not in the <strong class="highlight">button</strong>.
                'If the mouse is down then draw it hot, when the
                'mouse moves back into the <strong class="highlight">button</strong> it will be redrawn pressed.

                'Otherwise draw it normal if its not already.
                If TitleBarMouseIsDown Then
                    If TitleBarButtonState <> ButtonState.Hot Then
                        TitleBarButtonState = ButtonState.Hot
                        DrawButton(TitleBarButtonState)
                    End If
                Else
                    If TitleBarButtonState <> ButtonState.Normal Then
                        TitleBarButtonState = ButtonState.Normal
                        DrawButton(TitleBarButtonState)
                    End If

                End If

            End If

            'When the mouse is down and it leaves the window 
            'it will remain in its hot or pressed state. when the
            'mouse is let up outside the window and moved it will 
            'recieve a message to repaint.

            'Process all the mouse moves.
            MyBase.WndProc(m)

        Case WM_NCLBUTTONDOWN
            'Left mouse <strong class="highlight">button</strong> has been held down in the non client area

            'If the mouse is inside the <strong class="highlight">button</strong> then change its state to pressed
            'and redraw it.  Store that the mouse is down.
            If TitleBarButtonRectangle.Contains(GetNonClientPoint(CInt(m.LParam))) Then
                TitleBarButtonState = ButtonState.Pressed
                DrawButton(TitleBarButtonState)
                TitleBarMouseIsDown = True
            Else
                'process the message it was clicked somewhere in the non client
                'area but not in the <strong class="highlight">button</strong>.
                MyBase.WndProc(m)
            End If


        Case WM_NCLBUTTONUP
            'Mouse is being released in the non client area

            If TitleBarMouseIsDown AndAlso TitleBarButtonRectangle.Contains(GetNonClientPoint(CInt(m.LParam))) Then
                'The mouse was down and the mouse is in the <strong class="highlight">button</strong>.
                'It has been pressed.
                TitleBarButtonState = ButtonState.Hot
                DrawButton(TitleBarButtonState)
                MsgBox("The Titlebar button was clicked")

            Else
                'Process the message and reset the <strong class="highlight">button</strong> to normal if its not already.
                MyBase.WndProc(m)

                If TitleBarButtonState <> ButtonState.Normal Then
                    TitleBarButtonState = ButtonState.Normal
                    DrawButton(TitleBarButtonState)
                End If

            End If

            'Reset that the mouse is down
            TitleBarMouseIsDown = False

        Case WM_NCLBUTTONDBLCLK
            'Mouse has been double clicked in the non client area.

            'If the cursor is in the <strong class="highlight">button</strong> then don't process the double click
            'If processed the form will change window states.
            If Not TitleBarButtonRectangle.Contains(GetNonClientPoint(CInt(m.LParam))) Then
                MyBase.WndProc(m)
            End If

        Case Else

            'Process the regular messages
            MyBase.WndProc(m)

    End Select

End Sub

Private Function GetNonClientPoint(ByVal lParam As Integer) As Point
    'The lo word in the lparam is the x coordinate and the hi word is the y.
    'The coordinates are in screen coordinates so subtract the location of the
    'form to get the location <strong class="highlight">on</strong> the title bar.  This will have to be adjusted.
    'There will be issues <strong class="highlight">on</strong> mdi forms.
    Dim ScreenPoint As New Point(CInt(lParam And Short.MaxValue), CInt(lParam >> 16))
    Return ScreenPoint - CType(Me.Location, Size)
End Function

Private Sub DrawButton(ByVal buttonState As ButtonState)
    'Gets the graphics to the entire window.
    'Draws a visual style <strong class="highlight">button</strong>.
    'Draw your own graphics here.
    'If using the visual style renderer then you will need
    'any alternate drawing mode in case the renderer is not
    'supported.  ControlPaint will draw a <strong class="highlight">button</strong> without 
    'visual styles.

    Dim EntireWindowGraphics As Graphics = Graphics.FromHdc(GetWindowDC(Me.Handle))

    Dim StrFrmt As New StringFormat
    StrFrmt.LineAlignment = StringAlignment.Center
    StrFrmt.Alignment = StringAlignment.Center
    StrFrmt.FormatFlags = StringFormatFlags.NoWrap
    StrFrmt.Trimming = StringTrimming.EllipsisCharacter

    Select Case buttonState
        Case Form1.ButtonState.Normal
            If VisualStyles.VisualStyleRenderer.IsSupported Then
                Dim VisualRenderer As New VisualStyles.VisualStyleRenderer(VisualStyles.VisualStyleElement.Button.PushButton.Normal)
                VisualRenderer.DrawBackground(EntireWindowGraphics, TitleBarButtonRectangle)
            Else
                ControlPaint.DrawButton(EntireWindowGraphics, TitleBarButtonRectangle, Windows.Forms.ButtonState.Normal)
            End If

        Case Form1.ButtonState.Hot
            If VisualStyles.VisualStyleRenderer.IsSupported Then
                Dim VisualRenderer As New VisualStyles.VisualStyleRenderer(VisualStyles.VisualStyleElement.Button.PushButton.Hot)
                VisualRenderer.DrawBackground(EntireWindowGraphics, TitleBarButtonRectangle)
            Else
                ControlPaint.DrawButton(EntireWindowGraphics, TitleBarButtonRectangle, Windows.Forms.ButtonState.Normal)
            End If

        Case Form1.ButtonState.Pressed
            If VisualStyles.VisualStyleRenderer.IsSupported Then
                Dim VisualRenderer As New VisualStyles.VisualStyleRenderer(VisualStyles.VisualStyleElement.Button.PushButton.Pressed)
                VisualRenderer.DrawBackground(EntireWindowGraphics, TitleBarButtonRectangle)
            Else
                ControlPaint.DrawButton(EntireWindowGraphics, TitleBarButtonRectangle, Windows.Forms.ButtonState.Pushed)
            End If

    End Select

    EntireWindowGraphics.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit
    EntireWindowGraphics.DrawString("Click Me", Me.Font, Brushes.Black, TitleBarButtonRectangle, StrFrmt)
    EntireWindowGraphics.Dispose()
    StrFrmt.Dispose()
End Sub

Private Sub SizeButton()
    'This is hard coded for a sizable 3d window border.
    'Other properties of the systemInformation class can
    'adjust for fixed and single borders.
    'SystemInformation.BorderSize
    'SystemInformation.FixedFrameBorderSize

    'if the window is maximized then its sizing border will not be
    'displayed so the y is set to the bordersize and the height of the <strong class="highlight">button</strong>
    'is set to the caption height.  If its not maximized the y is set to
    '0 and the <strong class="highlight">button</strong> height is set to the caption height plus the border size.
    If Me.WindowState = FormWindowState.Normal Then
        TitleBarButtonRectangle.Y = 0
        TitleBarButtonRectangle.Height = SystemInformation.CaptionHeight + SystemInformation.HorizontalResizeBorderThickness
    Else
        TitleBarButtonRectangle.Y = SystemInformation.HorizontalResizeBorderThickness
        TitleBarButtonRectangle.Height = SystemInformation.CaptionHeight
    End If
End Sub

Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
    'Change the size of the <strong class="highlight">button</strong>.
    'May have been maximized or normalized
    SizeButton()
End Sub

'Gets the graphics to the entire window.
<DllImport("user32.dll")> Public Shared Function GetWindowDC(ByVal hWnd As IntPtr) As IntPtr
End Function

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    TitleBarButtonRectangle = New Rectangle(30, 0, 75, 25)

    SizeButton()

End Sub