有一种朋友不在生活里，却在生命力；有一种陪伴不在身边，却在心间。图老师即在大家的生活中又在身边。这么贴心的服务你感受到了吗？话不多说下面就和大家分享拖动无系统标题栏的窗口吧。
【 tulaoshi.com - 编程语言 】
在VB中可以通过设置Form的属性，制作无系统标题栏的窗口。可是，由于失去了系统标题栏，如何使用鼠标拖动窗口便成了一个棘手的问题。其实，借助API函数ReleaseCapture和SendMessage，这个问题便可迎刃而解了。
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）首先，在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)（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）
程序运行后，只要当光标落在Form区域时按住鼠标左键，便可以拖动窗口了。在一些要求生动活泼的界面的程序设计中，开发者常常希望自制风格独特的标题栏，以满足整个界面的要求。通过这个方法，就可以使自制的标题栏达到乱真的地步。不过，用作自制标题栏的控件，必须具有MouseDown事件以摆放上述代码。
来源:https://www.tulaoshi.com/n/20160219/1610378.html
