Question

我想制作无边框形式。我的问题是，当我想要调整大小形式（在LEFT或TOP侧）时，另一侧的形式是跳跃。（见附件gif。）我尝试了SetWindowPos和WndProc但类似的问题。

问题：如何在没有故障的情况下使用ResizeRedraw和Doublebuffering调整无边框表单的大小？

这是我的简化代码：

Public Class Form1
  Public Sub New()
      DoubleBuffered = True
      SetStyle(ControlStyles.ResizeRedraw, True)
      FormBorderStyle = FormBorderStyle.None
  End Sub
  Dim down As Boolean = False
  Dim _Right As Integer = 0
  Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
      _Right = Right
      down = True
  End Sub
  Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove
      If down Then
          Dim xy As Point = PointToScreen(e.Location)
          SetBounds(xy.X - 2, Me.Top, _Right - xy.X - 2, Height)
      End If
  End Sub
End Class

Glitch anim GIF

操作系统：Windows 7

Dev：VS 2015，VB，.NET 2.0

Answer 1

试试这是一些基于 wndproc 的 C# 代码。

protected override void WndProc(ref Message m)

    {
        const int RESIZE_HANDLE_SIZE = 10;

        switch (m.Msg)
        {
            case 0x0084/*NCHITTEST*/ :
                base.WndProc(ref m);

                if ((int)m.Result == 0x01/*HTCLIENT*/)
                {
                    Point screenPoint = new Point(m.LParam.ToInt32());
                    Point clientPoint = this.PointToClient(screenPoint);
                    if (clientPoint.Y <= RESIZE_HANDLE_SIZE)
                    {
                        if (clientPoint.X <= RESIZE_HANDLE_SIZE)
                            m.Result = (IntPtr)13/*HTTOPLEFT*/ ;
                        else if (clientPoint.X < (Size.Width - RESIZE_HANDLE_SIZE))
                            m.Result = (IntPtr)12/*HTTOP*/ ;
                        else
                            m.Result = (IntPtr)14/*HTTOPRIGHT*/ ;
                    }
                    else if (clientPoint.Y <= (Size.Height - RESIZE_HANDLE_SIZE))
                    {
                        if (clientPoint.X <= RESIZE_HANDLE_SIZE)
                            m.Result = (IntPtr)10/*HTLEFT*/ ;
                        else if (clientPoint.X < (Size.Width - RESIZE_HANDLE_SIZE))
                            m.Result = (IntPtr)2/*HTCAPTION*/ ;
                        else
                            m.Result = (IntPtr)11/*HTRIGHT*/ ;
                    }
                    else
                    {
                        if (clientPoint.X <= RESIZE_HANDLE_SIZE)
                            m.Result = (IntPtr)16/*HTBOTTOMLEFT*/ ;
                        else if (clientPoint.X < (Size.Width - RESIZE_HANDLE_SIZE))
                            m.Result = (IntPtr)15/*HTBOTTOM*/ ;
                        else
                            m.Result = (IntPtr)17/*HTBOTTOMRIGHT*/ ;
                    }
                }
                return;
        }
        base.WndProc(ref m);
    }

    protected override CreateParams CreateParams
    {
        get
        {
            CreateParams cp = base.CreateParams;
            cp.Style |= 0x20000; // <--- use 0x20000
            return cp;
        }
    }

无边框形式调整毛刺

1 个答案: