Private Const WM_NCHITTEST As Integer = &H84 Private Const HTCLIENT As Integer = &H1 Private Const HTCAPTION As Integer = &H2 Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) Select Case m.Msg Case WM_NCHITTEST MyBase.WndProc(m) If (m.Result.ToInt32 = HTCLIENT) Then m.Result = IntPtr.op_Explicit(HTCAPTION) End If Exit Sub End Select MyBase.WndProc(m) End Sub
移动没有标题的FORM
最新推荐文章于 2020-02-01 16:46:33 发布