精华区文章阅读

发信人: bloom (├┝┞┟┠┢┣�), 信区: VB
标  题: User32(转载)
发信站: 哈工大紫丁香 (2000年09月07日18:40:51 星期四), 转信

【以下文字转载自 cnTemp 讨论区】
【原文由 bloom 所发表】
名称:   ReleaseCapture
声明:
Public Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture"
() As Long

参数: 无

例子:
发信人: xiaobo (激情蕴于心中), 信区: Visual
标  题: VB调用API技巧--拖动无系统标准标题棒的窗口 (转载)
发信站: BBS 水木清华站 (Sun Oct  5 11:22:41 1997)

转自《中国计算机报》[一九九七年十月六日总第678期] 第128版

吴斌

VB调用API技巧--拖动无系统标准标题棒的窗口

　　大家知道，在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事件以摆放上述代码。

--
  江声浩荡，自屋后上升......
                            --《约翰.可利斯朵夫》

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: blo0m.bbs@smth.org]
--
※ 转载:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: 202.118.247.254]

VB 版 (精华区)