求解,怎么实现无边框窗体移动啊 非vb6.0
vb2010吧
全部回复
仅看楼主
level 1
君剑 楼主
RT。求解啊
2013年01月23日 07点01分 1
level 9
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Const WM_NCHITTEST As Integer = &H84 '窗体移动
Const HTCLIENT As Integer = &H1
Const HTCAPTION As Integer = &H2 If m.Msg = WM_NCHITTEST Then
Me.DefWndProc(m) If m.Result.ToInt32() = HTCLIENT Then
m.Result = New IntPtr(HTCAPTION)
Else
MyBase.WndProc(m)
End If
Else
MyBase.WndProc(m)
End If
End Sub
2013年01月23日 11点01分 2
谢谢
2013年01月23日 16点01分
level 1
请教,我想实现窗口移动和大小调整,然后再锁定大小位置。
需要使用什么命令,怎么个思路呢?
2013年01月23日 14点01分 3
1