在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+HTCAP...[ 查看全文 ]