VB制作可以移动程序位置的按钮
我设计了一个VB的程序把窗口栏去掉了这样就要自己设计关闭、最大最小化按钮这些都设计出来了但是不知道怎样设计一个按钮功能就是单击它可以拖动这个程序的位置求大神啊~~~~~~...
我设计了一个VB的程序 把窗口栏去掉了 这样就要自己设计关闭、最大最小化按钮 这些都设计出来了 但是不知道怎样设计一个按钮 功能就是单击它可以拖动这个程序的位置 求大神啊~~~~~~~
展开
3个回答
展开全部
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
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1 '以上四行是关于移动窗口的
‘以上四行是在声明
'-----------------------------------
‘以下两句写在 你的按钮或控件的MouseDown事件上即可
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
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
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1 '以上四行是关于移动窗口的
‘以上四行是在声明
'-----------------------------------
‘以下两句写在 你的按钮或控件的MouseDown事件上即可
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
更多追问追答
追问
上面四行是输在最顶上吗？（我初学哈~不太懂）
追答
是的，最顶上，就是代码窗口最上面
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
