拖動(dòng)無系統(tǒng)標(biāo)題欄的窗口
導(dǎo)讀:在VB中可以通過設(shè)置Form的屬性,制作無系統(tǒng)標(biāo)題欄的窗口?墒牵捎谑チ讼到y(tǒng)標(biāo)題欄,如何使用鼠標(biāo)拖動(dòng)窗口便成了一個(gè)棘手的問題。其實(shí),借助API函數(shù)ReleaseCapture和SendMessage,這個(gè)問題便可迎刃而解了。
首先,在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)
……
程序運(yùn)行后,只要當(dāng)光標(biāo)落在Form區(qū)域時(shí)按住鼠標(biāo)左鍵,便可以拖動(dòng)窗口了。在一些要求生動(dòng)活潑的界面的程序設(shè)計(jì)中,開發(fā)者常常希望自制風(fēng)格獨(dú)特的標(biāo)題欄,以滿足整個(gè)界面的要求。通過這個(gè)方法,就可以使自制的標(biāo)題欄達(dá)到亂真的地步。不過,用作自制標(biāo)題欄的控件,必須具有MouseDown事件以擺放上述代碼。
相關(guān)推薦:2011年上半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總
2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |