有没有办法控制表单的移动位置?
如果我移动一个表单,它只能在垂直轴上移动,当我尝试水平移动时,什么也不会发生。
我不想要像locationchanged或move事件这样有缺陷的实现方式,并将其弹回到行内。我知道可以使用类似于WndProc覆盖的方法,但是经过一段时间的搜索,我找不到任何东西。请帮帮我。
有没有办法控制表单的移动位置?
如果我移动一个表单,它只能在垂直轴上移动,当我尝试水平移动时,什么也不会发生。
我不想要像locationchanged或move事件这样有缺陷的实现方式,并将其弹回到行内。我知道可以使用类似于WndProc覆盖的方法,但是经过一段时间的搜索,我找不到任何东西。请帮帮我。
例如:
using System.Runtime.InteropServices;
protected override void WndProc(ref Message m)
{
if (m.Msg == 0x216) // WM_MOVING = 0x216
{
Rectangle rect =
(Rectangle) Marshal.PtrToStructure(m.LParam, typeof (Rectangle));
if (rect.Left < 100)
{
// compensates for right side drift
rect.Width = rect.Width + (100 - rect.Left);
// force left side to 100
rect.X = 100;
Marshal.StructureToPtr(rect, m.LParam, true);
}
}
base.WndProc(ref m);
}
以上代码设置了最小左侧位置为100。
无需像driis那样重新创建RECT结构,.NET的原生Rectangle可以正常工作。但是,您必须通过X属性设置位置,因为Left是只读属性。
using System.Diagnostics;
using System.Runtime.InteropServices;
using System.Windows.Forms;
namespace VerticalMovingForm
{
public partial class Form1 : Form
{
private const int WM_MOVING = 0x0216;
private readonly int positionX;
private readonly int positionR;
public Form1()
{
Left = 400;
Width = 500;
positionX = Left;
positionR = Left + Width;
}
protected override void WndProc(ref Message m)
{
if (m.Msg == WM_MOVING)
{
var r = (RECT)Marshal.PtrToStructure(m.LParam, typeof(RECT));
r.Left = positionX;
r.Right = positionR;
Marshal.StructureToPtr(r, m.LParam, false);
}
base.WndProc(ref m);
}
[StructLayout(LayoutKind.Sequential)]
private struct RECT
{
public int Left;
public int Top;
public int Right;
public int Bottom;
}
}
}
VB.NET 版本:
Protected Overloads Overrides Sub WndProc(ByRef m As Message)
If m.Msg = &H216 Then
' WM_MOVING = 0x216
Dim rect As Rectangle = DirectCast(Marshal.PtrToStructure(m.LParam, GetType(Rectangle)), Rectangle)
If rect.Left < 100 Then
' compensates for right side drift
rect.Width = rect.Width + (100 - rect.Left)
' force left side to 100
rect.X = 100
Marshal.StructureToPtr(rect, m.LParam, True)
End If
End If
MyBase.WndProc(m)
End Sub