拖动无系统标题栏的窗口

文章作者 100test 发表时间 2011:03:18 20:37:37
来源 100Test.Com百考试题网

导读:在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=