拖動無系統標題欄的窗口

在VB中可以通過設置Form的屬性，制作無系統標題欄的窗口。可是，由於失去了系統標題欄，如何使用鼠標拖動窗口便成了一個棘手的問題。其實，借助API函數ReleaseCapture和SendMessage，這個問題便可迎刃而解了。

首先，在module文件中加入下列聲明語句：

　　Declare Sub ReleaseCapture Lib"User"()
　
　　 Declare Function SendMessage Lib"User"(ByVal hWnd _
As Integer，ByVal wMsg As Integer，ByVal wParam As Integer，_lParam As Any)As Long
　
　　 Public Const WM_SYSCOMMAND=&H112
　
　　 Public Const SC_MOVE=&HF010
　　 Public Const HTCAPTION=2
　
　　 然後，在Form的MouseDown事件中加入下列代碼：
　
　　 ReleaseCapture
　
　　 Ret&=SendMessage(Me．hWnd，WM_SYSCOMMAND，_SC_MOVE+HTCAPTION，0)
　
　　 ……

程序運行後，只要當光標落在Form區域時按住鼠標左鍵，便可以拖動窗口了。在一些要求生動活潑的界面的程序設計中，開發者常常希望自制風格獨特的標題欄，以滿足整個界面的要求。通過這個方法，就可以使自制的標題欄達到亂真的地步。不過，用作自制標題欄的控件，必須具有MouseDown事件以擺放上述代碼。