程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 拖動無系統標題欄的窗口

拖動無系統標題欄的窗口

編輯:VB綜合教程

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

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved