VB中如何使用PostMessage移动窗体？

2006-10-30 02:58:27 319 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

创客学院嵌入式驱动开发——学习资料汇总 1.创客学院知识巩固-01C语言回顾_C/C++_Set_Mode的博客-CSDN博客https://blog.csdn.net/Set_Mode/article/details/94431050 2.创客学院知识巩固-02数据结构_Set_Mode的博客-CSDN博客https://blog.csdn.net/Set_Mode/article/details/94431087 3.创客学院知... 阅读详情

先贴我的VC代码
void CPLAYERDlg::OnMouseMove(UINT nFlags, CPoint point)
{
if(MK_LBUTTON == nFlags && point.y <= 20)
{
HCURSOR hCursor = LoadCursor(NULL, IDC_SIZEALL);
SetCursor(hCursor);
::PostMessage(GetSafeHwnd(),WM_NCLBUTTONDOWN, HTCAPTION, MAKELPARAM(point.x,point.y));
}

CDialog::OnMouseMove(nFlags, point);
}
上面的VC代码可以实现移动没有Title Bar的窗体
========================================================================
下面，是我VB中的代码（窗体BorderStyle = None）
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim nLParam As Long
Dim blReturn As Boolean

If Button = vbLeftButton Then
nLParam = CInt(Y) * &H10000 + CInt(X)
blReturn = PostMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, nLParam)
End If
End Sub

该段代码blReturn = True,但是窗体无法移动。
请高手指教,谢谢！

...全文