社区
VB基础类
帖子详情
用鼠标拖动窗体时让窗体随鼠标移动?
hisofty
2003-10-17 06:41:58
一般情况下,拖动窗体时是先移动窗体的轮廓,鼠标松开后,窗体从真正移动。但可以,改变为标拖动窗体时让窗体随鼠标移动,方法是显示属性-外观-效果,选中“ 拖动时显示窗口内容“,即可,也可以给api函数SystemParemetersInfo传递SPI_SETDRAGFULLWINDOWS这个参数来达到目的。
我想,不论系统设置是怎样的,拖动我的窗体时都是第二种情况,不知道在什么地方调用这个函数,请教?
...全文
128
10
打赏
收藏
用鼠标拖动窗体时让窗体随鼠标移动?
一般情况下,拖动窗体时是先移动窗体的轮廓,鼠标松开后,窗体从真正移动。但可以,改变为标拖动窗体时让窗体随鼠标移动,方法是显示属性-外观-效果,选中“ 拖动时显示窗口内容“,即可,也可以给api函数SystemParemetersInfo传递SPI_SETDRAGFULLWINDOWS这个参数来达到目的。 我想,不论系统设置是怎样的,拖动我的窗体时都是第二种情况,不知道在什么地方调用这个函数,请教?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
hisofty
2004-02-25
打赏
举报
回复
谢楼上的,我知道你说的方法,不过不想用,就想用个api直接了当
笨狗先飞
2004-02-25
打赏
举报
回复
没这么复杂,而且不用API就可以,只是想要有虚线框会比较麻烦
dim mx , my as single
sub form_mousedown()
mx=x
my=y
end sub
sub form_mousemove()
if button=1 then
me.left=me.left+(mx-x)
me.top=me.top+(my-y)
'上边两行的加减我记不清了,大概是这样子
'想要form2动就把代码加在这里
end if
end sub
记得大概是这个样子,去网上看看好象有代码的
hisofty
2003-12-23
打赏
举报
回复
搂住要不要俺给你一个类啊!这个类可以,满足你哦!!!:)
--------------------------------------------------------------------------------
当然需要,谢了
qdlqdl@163.com
flc
2003-12-20
打赏
举报
回复
关注
海牛
2003-12-20
打赏
举报
回复
搂住要不要俺给你一个类啊!这个类可以,满足你哦!!!:)
海牛
2003-12-20
打赏
举报
回复
嘿嘿!俺谢了一个播放器,就是这样滴!!!
hisofty
2003-10-19
打赏
举报
回复
我想問如果有二個窗體﹐怎么用鼠標拖動窗體一時候﹐窗體二也可以動。
这个问题比较好的解决方法是拦截wm_moving,wm_move,然后移动需要跟随的窗体,就可以了,我写过的。楼上说的对,用timer控件当然不好了,浪费资源且不精确
leo4587
2003-10-17
打赏
举报
回复
不要告訴我用timer,因為偶的內存才32
踏平扶桑
2003-10-17
打赏
举报
回复
我想可以设置一个布尔型数据,当点窗体后为true,然后捕捉鼠标轨迹,让窗体进行移动,当再次点击窗体后结束跟踪,不在移动
Ljat
2003-10-17
打赏
举报
回复
我想問如果有二個窗體﹐怎么用鼠標拖動窗體一時候﹐窗體二也可以動。
C#210
鼠标
拖动
窗体
,源代码
C#210
鼠标
拖动
窗体
,源代码
VB实现无标题栏靠
拖动
窗体
移动
窗体
源码
本资源用VB实现在无标题栏的情况下,靠
拖动
窗体
来实现
移动
窗体
的功能源码
WPF
窗体
拖拽效果,
窗体
随
鼠标
移动
实现类似拖拽效果: 1、按键按下新建
窗体
2、新建
窗体
随
鼠标
移动
3、松开
鼠标
取消
移动
SWT无边框
窗体
实现
鼠标
拖动
移动
SWT无边框
窗体
实现
鼠标
拖动
移动
,并添加右键菜单关闭功能
VB程序运行
时
用
鼠标
拖动
改变控件大小的2种方法
VB程序运行
时
用
鼠标
拖动
改变控件大小的2种方法 就像
鼠标
放到窗口边缘改变窗口大小一样
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章