拖動無系統標題欄的窗口

　　導讀:在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事件以擺放上述代碼。

　　2011年上半年計算機等級考試報名時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB基礎教程匯總

　　2011計算機等考二級VB輔導知識技巧匯總