怎样vb.net拖动无边框窗体
请问各位大虾,怎样vb.net拖动无边框窗体
[解决办法]
哎，你改一下就可以了，因为没有能调用MyBase.WndProc(m)：
Private HTCAPTION As IntPtr = 2
Private HTCLIENT As IntPtr = 1
Private WM_NCHITTEST As Integer = 132
Protected Overrides Sub WndProc(ByRef m As Message)
If (m.Msg = WM_NCHITTEST) Then
MyBase.WndProc(m)
If (m.Result = HTCLIENT) Then
m.Result = HTCAPTION
End If
Else
MyBase.WndProc(m)
End If
End Sub
不过楼主也太小气了，就一分，我回答过好多０分的帖子，但是１分很少见，你要是分不多倒不如发个０分的帖子...
