窗体消息函数重载

来源：互联网发布：广州天翼模型店淘宝网编辑：程序博客网时间：2024/06/10 02:50

Public Class Form1
    Private Const MOUSECLICK1 As UInteger = &H112
    Private Const MAXBUTTON1 As UInteger = &HF030
    '重载窗体的窗口函数WndProc截获两个消息
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If (m.Msg = MOUSECLICK1) Then
            If (m.WParam = MAXBUTTON1) Then //最大化按钮消息
                Me.Top = 0
                Me.Height = Screen.PrimaryScreen.Bounds.Height - 50
                Me.Refresh()
                Return
            End If
        End If
        MyBase.WndProc(m)
    End Sub
End Class

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
   If (m.Msg = &H112) Then
         If (m.WParam = &HF020) Then
               Console.WriteLine( 最小化按钮点击了 )
         ElseIf (m.WParam = &HF030) Then
               Console.WriteLine( 最大化按钮点击了 )
         ElseIf (m.WParam = &HF060) Then
                Console.WriteLine( 关闭按钮点击了 )
        End If

End If
MyBase.WndProc(m)

end sub