VB 版 (精华区)

发信人: bloom (├┝┞┟┠┢┣�), 信区: VB
标  题: 再谈“无标题栏窗口的移动技巧”
发信站: 哈工大紫丁香 (2000年08月29日12:21:15 星期二), 转信

再谈“无标题栏窗口的移动技巧”
2000-07-04· -·-
　　 读了金永涛朋友的“无标题栏窗口中鼠标拖动技巧”一文颇有启发。但该文的思路
是“通过设置时钟中断，在Mousemove()事件中根据鼠标的移动距离，实时修改窗体For
m的Top及Left值，即可准确无误地实现窗口的鼠标拖动操作。”正如该文所说，由于每
移动一步都需要重画窗口，因此利用此方法实现鼠标拖动，比常规的标题栏鼠标拖动慢
一些。而且对于窗口中如有多种控件，若想使鼠标拖动窗口中的任何位置都可实现窗口
移动，必须对窗口中的所有控件进行上述的鼠标位置记录与移动处理。
　　 这些缺陷都是该法难以克服的。下面根据笔者学习到的方法，提出另外一种“无标
题栏窗口中鼠标拖动”的方法，该方法利用了API函数ReleaseCapture和SendMessage，
通过ReleaseCapture来获取鼠标移动的信息并传到窗口中，再由SendMessage来发送信息
实现窗口的移动。这种方法的优点在于：代码简单，而且无需对窗口中的控件进行编程
。下面以VB为例。
　　 当Form的ControlBox属性为False且Caption属性没有设值时，窗口就变成了如图1
所示的“无标题栏的窗口”了。移动窗体代码如下：
　　 在Modual1.BAS文件中声明：
Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32"
Alias "SendMessageA" (ByVal hwnd As Long， _
ByVal wMsg As Long， ByVal wParam
As Long， lParam As Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
然后，在Form_MouseDown事件中：
Private Sub Form_MouseDown(Button As Integer，
 Shift As Integer， X As Single， Y As Single)
 ReleaseCapture
 SendMessage hwnd,WM_NCLBUTTONDOWN，
HTCAPTION， 0&End Sub
　　 这时你再运行程序，就会发现窗体可以移动，且上面的控件自动随窗体在移动。
　　 上述窗体在中文Visual Basic 6.0、中文Windows 98下运行通过

--
├┝┞┟┠┢┣◣◢
               ∣
             ▆▆▆    
              ▇▇            

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.170.210]