首页 相关文章 拖动无系统标题栏的窗口

拖动无系统标题栏的窗口

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

2016-02-19 标签:

拖动无系统标题栏的窗口的相关文章

手机页面
收藏网站 回到头部