我是靠谱客的博主 有魅力大门，最近开发中收集的这篇文章主要介绍VB编程：ReleaseCapture&SendMessage拖动无标题栏的窗体-57_彭世瑜_新浪博客，觉得挺不错的，现在分享给大家，希望可以做个参考。
概述
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1 '161
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim r As Long
Dim i
If Button = 1 Then
i = ReleaseCapture()
r = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
End Sub
最后
以上就是有魅力大门为你收集整理的VB编程：ReleaseCapture&SendMessage拖动无标题栏的窗体-57_彭世瑜_新浪博客的全部内容，希望文章能够帮你解决VB编程：ReleaseCapture&SendMessage拖动无标题栏的窗体-57_彭世瑜_新浪博客所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复